tænkt siden at der ikke er nogen der har svaret ligger jeg lige koden
ud som jeg skal have det skrevt i...
<!-- #include file="dataconn.asp" -->
<%
name = Replace(Request.Form("name"), "'", "'")
firma = Replace(Request.Form("firma"), "'", "'")
Adresse = Replace(Request.Form("Adresse"), "'", "'")
Postnr = Replace(Request.Form("Postnr"), "'", "'")
City = Replace(Request.Form("City"), "'", "'")
tlf = Replace(Request.Form("tlf"), "'", "'")
website = Replace(Request.Form("website"), "'", "'")
email = Replace(Request.Form("email"), "'", "'")
HowFound = Replace(Request.Form("HowFound"), "'", "'")
subject = Replace(Request.Form("subject"), "'", "'")
besked = Replace(Request.Form("besked"), "'", "'")
strSQL = "Insert into hilsner ("
strSQL = strSQL & "name, "
strSQL = strSQL & "Firma, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Postnr, "
strSQL = strSQL & "City, "
strSQL = strSQL & "tlf, "
strSQL = strSQL & "website, "
strSQL = strSQL & "email, "
strSQL = strSQL & "HowFound, "
strSQL = strSQL & "subject, "
strSQL = strSQL & "besked) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & name & "', "
strSQL = strSQL & "'" & firma & "', "
strSQL = strSQL & "'" & Adresse & "', "
strSQL = strSQL & "'" & Postnr & "', "
strSQL = strSQL & "'" & City & "', "
strSQL = strSQL & "'" & tlf & "', "
strSQL = strSQL & "'" & website & "', "
strSQL = strSQL & "'" & email & "', "
strSQL = strSQL & "'" & HowFound & "', "
strSQL = strSQL & "'" & subject& "', "
strSQL = strSQL & "'" & besked & "') "
Conn.Execute(strSQL)
%>
<!-- #include file="top.asp" -->
<TITLE>Meddelse sent</TITLE>
<BODY <% = bgcolor & " " & lnkfarver %>>
<P><CENTER><FONT COLOR="#000000" SIZE="-2" FACE="ARIAL"><% = strHTML
%></FONT></CENTER>
<!-- #include file="bund.asp" -->
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials