Sökvägsfel..

47 svar · 508 visningar · startad av [AMD]Zmaster 4 apr. 2003 · sida 2 av 3

Frågan, av [AMD]Zmaster 4 apr. 2003

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 →

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 11:31#21

Jo, jag tog bort ett ( :)

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 11:32#22

Blir fortfarande

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/tshirt/RegistreraIntresse.asp, line 18

OR (Request.Form("telefon") = "") OR (Request.Form("email) = "") Then
---------------------------------------------------------------------^

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 11:34#23

/red Nej men fy! Nu såg jag felet. :p

If (Request.Form("namn") = "") OR (Request.Form("gatuadress") = "") _
OR (request.Form("postnummer") = "") OR (Request.Form("ort") = "") _
OR (Request.Form("telefon") = "") OR (Request.Form("email") = "") Then
Response.Write "<a href='registrera.html'>"
Response.Write "Alla uppgifter måste fyllas i"
Response.Write "</a>"

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 11:35#24

nää :(

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/tshirt/RegistreraIntresse.asp, line 16

If (Request.Form("namn") = "") OR (Request.Form("gatuadress") = "") OR (request.Form("postnummer") = "") OR (Request.Form("ort") = "") OR (Request.Form("telefon") = "") OR (Request.Form("email) = "") Then
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 11:38#25

Tryck mer på F5! ;) (Hade redigerat mitt inlägg.)

If (Request.Form("namn") = "") OR (Request.Form("gatuadress") = "") _
OR (request.Form("postnummer") = "") OR (Request.Form("ort") = "") _
OR (Request.Form("telefon") = "") OR (Request.Form("email") = "") Then
Response.Write "<a href='registrera.html'>"
Response.Write "Alla uppgifter måste fyllas i"
Response.Write "</a>"

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 11:39#26

Yeeeeeeeeeeeeeess!!!!!!! TAAAAAAAAAACK!

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 11:49#27

Förresten, om jag nu vill att när man registrerat sig så ska det skickas ett email till den registrerades emailadress som man får skriva in vid registrering, är det jobbigt samt hur går jag till väga?

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 11:52#28

Om du har tillgång till CDONTS på servern:

Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = "din mailadress"
  objMail.To = RS("email")
  objMail.Subject = "Registreringsbevis"
  objMail.Body = "Här lägger du meddelandet!"
  objMail.Send
Set objMail = Nothing

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 12:45#29

Okej, kan jag göra såhär?;

...
If not bolFinnsRedan Then
objRs.AddNew
objRS("Namn") = Request.Form("namn")
objRS("Gatuadress") = Request.Form("gatuadress")
objRS("Postnummer") = Request.Form("postnummer")
objRS("Ort") = Request.Form("ort")
objRS("Telefon") = Request.Form("telefon")
objRS("Epost") = Request.Form("email")
objRS.Update
Response.Write "Tack för visat intresse!."
Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = "webmaster@hockeynytt.org"
  objMail.To = ("email")
  objMail.Subject = "Registreringsbevis"
  objMail.Body = "Här lägger du meddelandet!"
  objMail.Send
Set objMail = Nothing
End If
objRS.Close
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
...

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 13:08#30

Jag skulle råda dig till att göra såhär:

  If NOT bolFinnsRedan Then
    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 [i]tabellen[/i] (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', " & intPost & ", '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"
    objRS.Open strSQL, objCon

    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
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 13:37#31

Det ger följande felmeddelande:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strNamn'

/tshirt/RegistreraIntresse.asp, line 46

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 13:46#32

Aha, du använder Option Explicit!

  If NOT bolFinnsRedan Then
    Dim strNamn, strGata, intPost, strOrt, strTel, strEmail

    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.Open strSQL, objCon

    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
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 17:07#33

Då kom nästa fel...måste lägga in ett jättestort tack för att du tar dig tid och hjälper mig, hoppas du kan fortsätta tills det löser sig ;) :) .

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strSQL'

/tshirt/RegistreraIntresse.asp, line 55

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 17:16#34

För att det ska gå snabbare kan jag ju säga att varje gång du får det felmeddelandet är det bara att skriva Dim det-som-står. Nu:

  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.Open strSQL, objCon

    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
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 17:18#35

Antar att det ska vara objConn istället för objCon som du skrev under strSQLblablabla...
Isåfall kommer detta fel:

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/tshirt/RegistreraIntresse.asp, line 56

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 17:21#36

  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
  objRS.Close
  Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing

Kanske funkar? Svårt när man inte kan testa, men det är bara att sega sig fram! ;)

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 17:28#37

Mmm det löste DET problemet iaf, nu kom nästa, som jag hoppas är det sista också :)

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine could not find the object 'tabellen'. Make sure the object exists and that you spell its name and the path name correctly.

/tshirt/RegistreraIntresse.asp, line 57

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 17:30#38

Byt ut "tabellen" i SQL-frågan mot namnet för tabellen i din databas! :)

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

5 apr. 2003 17:35#39

*ändrat*
Fasen nu kom nästa fel... :OO

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/tshirt/RegistreraIntresse.asp, line 57

Rad 57:

    objRS.Open strSQL, objConn

SebbeMedlem sedan jan. 20032 285 inlägg

5 apr. 2003 17:37#40

Om nu kolumnen Postnummer inte är av typen tal, utan av typen Text eller PM, byt ut strSQL mot det här:

strSQL = "INSERT INTO tabellen (Namn, Gatuadress, Postnummer, Ort, Tetefon, Epost) VALUES ('" & strNamn & "', '" & strGata & "', '" & intPost & "', '" & strOrt & "', '" & strTel & "', '" & strEmail & "')"