Hjælp mig videre!!
HejJeg er igang med at lave et lille program (et af mine første ASP programmer), og sidder nu håbløst fast.
Problemet er at scriptet ikke indsætter i databasen!
-Jeg har forbindelse via ODBC til en Accesse database og datatyperne stemmer overens med dem i databasen.
-Variablerne i URL'en er der heller ikke problemer med.
Er der mon en der kan hjælpe med hvad der er galt ?
Koden :
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim dato, tekst, belob, t
dato= Request.Querystring("dato")
tekst= Request.Querystring("tekst")
belob= Ccur(Request.Querystring("belob"))
t= Request.Querystring("type")
%>
<%
Dim objConn, objRS, SqlStr, strConn
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Data Source=Regnskab;"
strConn = strConn & "User ID=sa;Password=;"
objConn.Open strConn
SqlStr = "INSERT INTO BUDGET (DATO,TEKST,BELOB,TYPE) VALUES "
SqlStr=SqlStr & "('" & dato
SqlStr=SqlStr & "','" & tekst
SqlStr=SqlStr & "','" & belob
SqlStr=SqlStr & "','" & t
SqlStr=SqlStr & "')"
objConn.Execute SqlStr
Set objRS = objConn.Execute("SELECT * FROM BUDGET")
%>
<html><title>Indsætter i databasen</title><head></head><body>
<%
While Not objRS.EOF
Response.Write objRS("ID") & " - "
Response.Write objRS("DATO") & " - "
Response.Write objRS("BELOB") & " - "
Response.Write objRS("TEKST") & " - "
Response.Write objRS("TYPE") & "<br />"
objRS.MoveNext
Wend
objRS.close : objConn.close
Set objRS = Nothing : Set objConn = Nothing
%>
</body>
</html>
Fejlmeddelelsen :
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel.
/Regnskab/insert.asp, line 26
