hvordan får jeg den til at skrive indtastede oplysninger..
her udfylder de returskema og når side vender vil jeg gerne have den skriver de felter de har tastet ind så man kan printe dem:De skal komme frem ved response.write
strSQL = "Insert into tilmelding (id,efternavn, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, konto, reg,holdnr, pris) values('" & replace(Request.Form("id"),"'","''") & "','" & replace(Request.Form("efternavn"),"'","''") & "','" & replace(Request.Form("forfos1"),"'","''") & "','" & replace(Request.Form("for2"),"'","''") & "','" & replace(Request.Form("forfos2"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("postnr"),"'","''") & "','" & replace(Request.Form("fby"),"'","''") & "','" & replace(Request.Form("telefon"),"'","''") & "','" & replace(Request.Form("email"),"'","''") & "','" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("dato"),"'","''") & "','" & replace(Request.Form("konto"),"'","''") & "','" & replace(Request.Form("reg"),"'","''") & "','" & holdnummer & "','" & pris & "' )"
DataConn.Execute(strSQL)
if Request.Form("adresse") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
' Her sættes modtager navn og e-mail adresse
objCDO.To = Request.Form("email")
'
' Her sættes selve teksten til mailen
objCDO.Body = "Kære " & Request.Form("efternavn") & VbCrLf & VbCrLf &"Du har opret
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
response.write "<br><br>Du har nu oprettet en returvare sag <br><br> <br><br>Hilsen .<br>"
response.End 'stopper koden her
end if
'Viser formen
%>
