Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad
/sku/www/msk/lagg_till.asp, line 50
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=E:\Hemsidor\SKU\www\msk\sku.mdb"%>
<link rel="stylesheet" href="../main_css.css" type="text/css">
</head>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
vilka = "SELECT * FROM person"
RecSet.Open vilka, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("fornamn") = Request.Form("fornamn")
RecSet("efternamn") = Request.Form("efternamn")
If NOT Request.Form("ar")="" then RecSet("ar") = Request.Form("ar")
If NOT Request.Form("manad")="" then RecSet("manad") = Request.Form("manad")
If NOT Request.Form("dag")="" then RecSet("dag") = Request.Form("dag")
RecSet("lokalav") = Request.Form("lokalav")
RecSet("hemsida") = Request.Form("hemsida")
RecSet("mail") = Request.Form("mail")
RecSet("pic") = Request.Form("bild")
RecSet("nu") = Request.Form("nu")
RecSet("framtid") = Request.Form("framtid")
If NOT Request.Form("icq")="" Then RecSet("icq") = Request.Form("icq")
If NOT Request.Form("tele")="" Then RecSet("tele") = Request.Form("tele")
If NOT Request.Form("mobil")="" Then RecSet("mobil") = Request.Form("mobil")
RecSet("gata") = Request.Form("gata")
If NOT Request.Form("postnummer")="" Then RecSet("postnummer") = Request.Form("postnummer")
RecSet("ort") = Request.Form("ort")
If NOT Request.Form("paslm")="" Then RecSet("psalm") = Request.Form("psalm")
RecSet("bibel") = Request.Form("bibel")
RecSet("uppgift") = Request.Form("uppgift")
RecSet("om") = Request.Form("om")
RecSet("ovrigt") = Request.Form("ovrigt")
If NOT Request.Form("paslm")=false Then RecSet("ageprivat") = Request.Form("ageprivat")
If NOT Request.Form("mailprivat")=false Then RecSet("mailprivat") = true
If NOT Request.Form("adressprivat")=false Then RecSet("adressprivat") = true
If NOT Request.Form("teleprivat")=false Then RecSet("teleprivat") = true
If NOT Request.Form("info")=false Then RecSet("info") = true
RecSet("pass") = Request.Form("pass")
If NOT Request.Form("land")="" Then RecSet("langd") = Request.Form("langd")
RecSet("ogon") = Request.Form("ogon")
RecSet("har") = Request.Form("har")
RecSet("tyckerom") = Request.Form("tyckerom")
RecSet("tyckerinte") = Request.Form("tyckerinte")
RecSet("person") = Request.Form("person")
[b]RecSet.Update[/b]
RecSet.Close
Connect.Close
Set Connect = Nothing
%>
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad
/sku/www/msk/lagg_till.asp, line 50
får man föreslå en liten insert-sats istället månne?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>
Det där felet har jag sett då man inte anger värden för alla obligatoriska fält i tabellen eller att det finns någon restriktion som något värde inte uppfyller eller att det är något problem med foreign keys.
------------------ essentitia preter non sans multiplicandum
kan du inte förslå en början och ett slut så kanske jag kan fatta en sammanbang.
Tänk på att alla fält som heter någont mes "privat" är checkbox.
tack på förhand
Tror att LarsG har koll på detta sörru!!!1 Det där felet får jag då det finns angivet i databasen att fältet inte får ha nollvärde eller att den är obligatorisk. Eftersom du har en massa if kontroller kan jag nästan lova att det är något sådant fält som inte får ett värde. Kolla alltså databasen efter sådant.
