SsolbulleMedlem sedan mars 20015 287 inlägg Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/community.mdb")
'Skapa sql-frågan för att välja ut endast angiven användares gästbok.
strSQL = ""
strSQL = strSQL & "INSERT INTO tblGuestbook "
strSQL = strSQL & "(gbUserID, gbDateTime, gbText, gbFromUserID) "
strSQL = strSQL & "VALUES ("
strSQL = strSQL & lngUserID & ", "
strSQL = strSQL & "'" & Now() & "', "
strSQL = strSQL & "'" & strTemp & "', "
strSQL = strSQL & Session("userID")
strSQL = strSQL & ")"
objConn.Execute(strSQL),,128
Kanske...
JJeppezMedlem sedan jan. 200263 inlägg Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/mupp/gb.asp, line 23
--------------
gb.asp
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/community.mdb")
objConn.Open strSQL, strConn
JJeppezMedlem sedan jan. 200263 inlägg
solbulle skrev:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/community.mdb")
'Skapa sql-frågan för att välja ut endast angiven användares gästbok.
strSQL = ""
strSQL = strSQL & "INSERT INTO tblGuestbook "
strSQL = strSQL & "(gbUserID, gbDateTime, gbText, gbFromUserID) "
strSQL = strSQL & "VALUES ("
strSQL = strSQL & lngUserID & ", "
strSQL = strSQL & "'" & Now() & "', "
strSQL = strSQL & "'" & strTemp & "', "
strSQL = strSQL & Session("userID")
strSQL = strSQL & ")"
objConn.Execute(strSQL),,128
Kanske...
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/mupp/gb.asp, line 22
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/community.mdb")
-----------------------------------------------------------------^
@ndersMedlem sedan juni 200032 967 inläggDu ska inte ha med strSQL när du öppnar din connection, utan det borde räcka utmärkt med objConn.Open strConn .
Mvh
OOveRRidEMedlem sedan feb. 200112 078 inlägg Hrm?
'Ta bort ogiltiga tecken i inläggen
strTemp = Replace(rstGuestbook(2), "<", "<")
strTemp = Replace(strTemp, ">", ">")
Ersätta klammer med klammer? Nje, nåt är fel här.
Kanske en HTML-encode är på sin plats istället?
SsolbulleMedlem sedan mars 20015 287 inlägg Eftersom han inte postat med kod-taggar runt koden så antar jag att han egentligen har koden för < samt > i sin replace.
OOveRRidEMedlem sedan feb. 200112 078 inlägg
solbulle skrev:
Eftersom han inte postat med kod-taggar runt koden så antar jag att han egentligen har koden för < samt > i sin replace.
Jag misstänkte det också, så jag gick in och kollade vad som exakt står i inlägget, genom att redigera det (jag är ju moderator) och kika vad som står i 'råformatet' av inlägget.
Jag testade även med att posta inlägg med liknande tecken-kombinationer och dessa gick att gå tillbaks till (t.ex. & raquo dvs. »), så det ersätts inte något i postningen av inlägget heller.
Jeppez, såg verkligen de raderna ut så när du postade dem?