Hmmm
Fel i skicka.asp, rad 69.
Så många rader finns inte i koden du visar!
Det är ODBC drivrutinen som rapporterar felet. Förmodligen ett fel i SQL'en.
Frågan#1
får detta felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad
/nyavl/login/skicka.asp, rad 69
på koden:
<%
'--------------------------------------------------
' Öppna databasen och hämta användarens namn
'--------------------------------------------------
password = ""
databas = "../db/databasen.mdb"
DBPath = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas)
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"
Set databas = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * From info WHERE ID=" & Request.Form("SendToUser") & ""
databas.Open SQL, MinCon, 1, 2
User = databas("anv")
'--------------------------------------------------
' Stäng databasen
'--------------------------------------------------
databas.Close
arrDatumDelar = split (date(), "-")
kortdatum = cint(arrDatumDelar(2)) & "/" & cint (arrDatumDelar(1)) & " år " & arrDatumDelar(0)
'--------------------------------------------------
' Öppna databasen för att lägga till det nya messet
'--------------------------------------------------
password = ""
databas = "../db/databsen.mdb"
DBPath = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas)
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"
Set databas = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * From message"
databas.Open SQL, MinCon, 1, 2
'--------------------------------------------------
' Lägg till det nya messet
'--------------------------------------------------
databas.AddNew
databas("msgFROM") = Request.Form("SentFromUser")
databas("msgTO") = User
databas("msgTEXT") = Request.Form("mess")
if Request.Form("rubb") = "" then
databas("msgRUBB") = "Inget ämne!"
else
databas("msgRUBB") = Request.Form("rubb")
end if
databas("datum") = kortdatum
databas("last") = 0
databas("msgTO1") = Request.Form("id")
databas("msgFROM1") = Session("id")
databas.Update
'--------------------------------------------------
' Skicka en till börja igen
'--------------------------------------------------
Response.Redirect "default.asp?link=mess"
%>
Någon som vet vad som är fel?
------------------
verktygslådan
Ett gott trams förlänger
livet :e