Internal error 500 /AKUT!!!

LazerzubbMedlem sedan mars 2000542 inlägg

Frågan3 mars 2001 18:07#1

jag skicka med hjälp av POST ACtion
Till add1.asp där är koden
Ni kan testa på www.rentonwww.com/annons.asp och lägg in en så får ni se felmeddelandet!

<html>

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "D:/clients/rentonwww.com/wwwroot/databas/sok1.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * FROM sok"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("namn") = Request.Form("namn")
RecSet("gata") = Request.Form("gata")
RecSet("postadress") = Request.Form("postadress")
    RecSet("telefon") = Request.Form("telefon")
    RecSet("telefona") = Request.Form("telefona")
    RecSet("mobil") = Request.Form("mobil")
RecSet("fax") = Request.Form("fax")
RecSet("email") = Request.Form("email")
    RecSet("land") = Request.Form("land")
    RecSet("stad1") = Request.Form("stad1")
    RecSet("gata1") = Request.Form("gata1")
    RecSet("postadress1") = Request.Form("postadress1")
    RecSet("sängv") = Request.Form("sängv")
RecSet("xsäng") = Request.Form("xsäng")
RecSet("sovrum") = Request.Form("sovrum")
    RecSet("övrigarum") = Request.Form("övrigarum")
    RecSet("husyta") = Request.Form("husyta")
    RecSet("cyklar") = Request.Form("cyklar")
RecSet("färgtv") = Request.Form("altantak")
RecSet("deposition") = Request.Form("deposition")
    RecSet("telefon1") = Request.Form("telefon1")
    RecSet("frys") = Request.Form("frys")
    RecSet("mikro") = Request.Form("mikro")
RecSet("rökning") = Request.Form("rökning")
RecSet("utemöbler") = Request.Form("utemöbler")
    RecSet("båt") = Request.Form("båt")
    RecSet("husdjur") = Request.Form("husdjur")
    RecSet("sänglinne") = Request.Form("sänglinne")
RecSet("tvättmaskin") = Request.Form("tvättmaskin")
RecSet("öppenspis") = Request.Form("öppenspis")
    RecSet("lantgård") = Request.Form("lantgård")
    RecSet("bad") = Request.Form("bad")
    RecSet("mataffär") = Request.Form("mataffär")
    RecSet("badhav") = Request.Form("badhav")
    RecSet("golf") = Request.Form("golf")
    RecSet("pool") = Request.Form("pool")
    RecSet("språk") = Request.Form("språk")
    RecSet("stad") = Request.Form("stad")
    RecSet("period3") = Request.Form("period3")
    RecSet("period2") = Request.Form("period2")
    RecSet("period2") = Request.Form("period1")
    RecSet("beskrivning") = Request.Form("beskrivning")

RecSet.Update
RecSet.Close
Connect.Close %\>

Dinna uppgifter har nu lagts till i databasen:<p>

<% Response.Redirect "http://www.rentonwww.com/tack.htm" %>

</html>//

------------------
Lazerzubb

LazerzubbMedlem sedan mars 2000542 inlägg

3 mars 2001 18:44#2

Fungerar nu
Allt löste sig

------------------
Lazerzubb

LarsGMedlem sedan dec. 200012 464 inlägg

3 mars 2001 18:56#3

Det är din connect.open som är felaktig. Så här kan man öppna mot Access t.ex.

'***** Specifierar sökvägen *****'
MdbFilePath = "D:/clients/rentonwww.com/wwwroot/databas/sok1.mdb" 

'***** öppnar databasen *****'
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

OT
Om man stänger av user-friendly error messages i i.e. så får man fram det riktiga felet

OT2 Dina stavas med ett n

Red: Oj då, lite sen där
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 03 mar 2001]