![[AMD]Zmasters avatar](/av/3411.gif)
Nästa fel nu :P
Tack för visat intresse!.
ADODB.Recordset error '800a0e78'Operation is not allowed when the object is closed.
/tshirt/RegistreraIntresse.asp, line 69
Rad 69:
objRS.Close
Sökvägsfel..
47 svar · 508 visningar · startad av [AMD]Zmaster · sida 3 av 3
Frågan, av [AMD]Zmaster
Håller på att lära mig å titta lite med databaser, men får följande fel: Microsoft OLE DB Provider for ODBC Drivers error '80004005' \[Microsoft\]\[ODBC Microsoft Access Driver\]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x930 Thread 0x93c DBC 0x2185fa4c Jet'. /hamta.asp, line 9 Har hört mig för å förstått att det är sökvägsproblem.. Hur skr
Läs frågan i sin helhet →Nu ska vi göra något dumt! :p
If NOT bolFinnsRedan Then
Dim strNamn, strGata, intPost, strOrt, strTel, strEmail, strSQL
strNamn = Trim(Request.Form("namn"))
strGata = Trim(Request.Form("gatuadress"))
intPost = Trim(Request.Form("postnummer"))
strOrt = Trim(Request.Form("ort"))
strTel = Trim(Request.Form("telefon"))
strEmail = Trim(Request.Form("email"))
strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
objRS.Close
objRS.Open strSQL, objConn
Response.Write("Tack för visat intresse!.")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@hockeynytt.org"
objMail.To = strEmail
objMail.Subject = "Registreringsbevis"
objMail.Body = "Här lägger du meddelandet!"
objMail.Send
Set objMail = Nothing
End If
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
Nu funkar det..iaf att lägga till...sen om email skickas det vet jag inte...ska kolla nu!
Pom pom pom pom...JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!
JIPPIEEEEE!
Hur ska jag kunna tacka dig?? TACK SÅ HEMSKT MYCKET FÖR ALL HJÄLP!
Med risk för att vara tjatig...HURRA FÖR WF! :) ;) :P
Ska dock fråga lite om hur jag fixar brevet lite mer "personligt", säg att jag mitt i texten vill ha, och nu har du, (namn på person som registrerat sig), anmält ditt intresse.
Hur skriver jag kod så att namn på person som registrerat sig kommer automatiskt?
If NOT bolFinnsRedan Then
Dim strNamn, strGata, intPost, strOrt, strTel, strEmail, strSQL
strNamn = Trim(Request.Form("namn"))
strGata = Trim(Request.Form("gatuadress"))
intPost = Trim(Request.Form("postnummer"))
strOrt = Trim(Request.Form("ort"))
strTel = Trim(Request.Form("telefon"))
strEmail = Trim(Request.Form("email"))
strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
objRS.Close
objRS.Open strSQL, objConn
Response.Write("Tack för visat intresse!.")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@hockeynytt.org"
objMail.To = strEmail
objMail.Subject = "Registreringsbevis"
objMail.Body = "Tack för att du, " & strNamn & " visar ditt intresse!"
objMail.Send
Set objMail = Nothing
End If
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
Borde funka?
Hur gör jag om jag vill ha flera rader?
(Det du skrev ovan funkade perfekt)
Om du vill ha flera rader och inte använda HTML tror jag detta funkar:
strMeddelande = "Tack för att du, " & strNamn & " visar ditt intresse" & vbCrLf & "Här är nästa rad!" & vbCrLf & "Här är tredje raden!"
objMail.Body = strMeddelande
Oki tack!