05. marts 2004 - 19:44
Der er
3 kommentarer og 1 løsning
Fejl i add
Når jeg prøver at adde i min database med "test", "test" så opretter den - men når jeg opretter et mere "sofistifikeret" input får jeg flg. fejl: Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. add.asp, line 27 Således er linie 27: rs("beskrivelse") = strBeskrivelse På forhånd tak.
Annonceindlæg fra Computerworld
05. marts 2004 - 21:13
#3
Det er meningen :) If ID = "addnews" Then strOverskrift = Request.Form("overskrift") strForfatter = Session("admin") strBeskrivelse = Request.Form("beskrivelse") strArtikel = Request.Form("artikel") strBillede = Request.Form("billede") Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../sdhdatab.mdb") Conn.Open DSN Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM nyheder WHERE Id=0", conn,1,3 rs.AddNew rs("overskrift") = strOverskrift rs("forfatter") = strForfatter rs("dato") = Now() rs("beskrivelse") = strBeskrivelse rs("artikel") = strArtikel rs("billede") = strBillede rs.Update rs.Close Conn.Close Set Conn = Nothing Response.write "Din artikel er nu oprettet i databasen..." End if
05. marts 2004 - 22:00
#4
Prøv dette: ------------------------------------------ If ID = "addnews" Then strOverskrift = Request.Form("overskrift") strForfatter = Session("admin") strBeskrivelse = Request.Form("beskrivelse") strArtikel = Request.Form("artikel") strBillede = Request.Form("billede") If Trim(strOverskrift) & "x" = "x" then strOverskrift = Null If Trim(strForfatter) & "x" = "x" then strForfatter = Null If Trim(strBeskrivelse) & "x" = "x" then strBeskrivelse = Null If Trim(strArtikel) & "x" = "x" then strArtikel = Null If Trim(strBillede) & "x" = "x" then strBillede = Null Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../sdhdatab.mdb") Conn.Open DSN Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM nyheder WHERE Id=0", conn,1,3 rs.AddNew rs("overskrift") = strOverskrift rs("forfatter") = strForfatter rs("dato") = Now() rs("beskrivelse") = strBeskrivelse rs("artikel") = strArtikel rs("billede") = strBillede rs.Update rs.Close Conn.Close Set Conn = Nothing Response.write "Din artikel er nu oprettet i databasen..." End if ------------------------------------------ /Hans