[Althalos]

Det kanske vara fel på databasen ocks. Jag hittade ett gratisverktyg och öppnade den med detta, sedan lade jag till "Boat_id" där som Long... men koden är helt korrekt, så jag tror inte det hjälper att lägga upp den. Här är det som rör det iallafall:

Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
conString = "DBQ=" & Server.MapPath("/databas/databas22.mdb")
DatabaseConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & conString
Set CommandObject= Server.CreateObject("ADODB.Command")
set rst = Server.CreateObject("ADODB.RecordSet")

Set CommandObject.ActiveConnection = DatabaseConnection

dim Typ, Modell, Arsmodell, Beskrivning, Stad, Priside, Fornamn, Efternamn, Telefon, Epost, Datum, Boat_id

Typ = Upload.Form("txtTyp")
Modell = Upload.Form("txtModell")
Arsmodell = Upload.Form("txtArsmodell")
Beskrivning = Upload.Form("txtBeskrivning")
Stad = Upload.Form("txtStad")
Priside = Upload.Form("txtPriside")
Fornamn = Upload.Form("txtFornamn")
Efternamn = Upload.Form("txtEfternamn")
Telefon = Upload.Form("txtTelefon")
Epost = Upload.Form("txtEpost")
Datum = date
Boatid = Upload.Form("boat_id")

rst.AddNew
rst("Typ") = Typ
rst("Modell") = Modell
rst("Arsmodell") = Arsmodell
rst("Beskrivning") = Beskrivning
rst("Stad") = Stad
rst("Prisidé") = Priside
rst("Fornamn") = Fornamn
rst("Efternamn") = Efternamn
rst("Telefon") = Telefon
rst("Epost") = Epost
rst("Datum") = Datum
rst("Boat_id") = Boatid
rst.update