if request.querystring("mode") = "save" then Set objConn = server.createobject("adodb.connection") objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../CDBestilling/database.mdb") set objRS=server.createobject("ADODB.recordset")
hmmm.... Nu kan jeg slet ikke komme ind på siden.. måske jeg lige skal om-arrangere min kode lidt.. så den ikke sender en mail til mig, så snart man logger ind.
Her er hele koden.. kan sq ikke få den til noget.. <%
if request.querystring("mode") = "save" then Set objConn = server.createobject("adodb.connection") objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../CDBestilling/database.mdb") set objRS=server.createobject("ADODB.recordset")
Function SQLstreng strSQL = "INSERT INTO Bestilling(Fornavn,Efternavn,Adresse,Postnummer,[By],Telefonnummer,Email) values ('"& Fornavn & "','" & Efternavn &"','" & Adresse &"','" & Postnummer &"','" & By &"','" & Telefonnummer &"','" & email &"')"
objConn.execute(strSQL)
objConn.close Set objConn = nothing End Function
if fornavn <> "" then
set jmail = server.createobject("JMAIL.SMTPMail") jMail.sendername = request.form("f_fornavn") & request.form("f_efternavn") jMail.sender = "musikeren@webspeed.dk" jMail.Subject = "Bestilling af CD" jMail.ServerAddress = "pasmtp.tele.dk" jMail.AddRecipient "musikeren@webspeed.dk" jMail.Body = request.form("f_fornavn") & request.form("f_efternavn") & " Vil gerne bestille en CD. " jMail.Priority = 1 jMail.execute
response.redirect("bestilt.asp")
end if
%>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.