Jeg får fejl ved conn.open efter en redirect
HejJeg har lavet en validering af postnr og by.
Det virker første gang jeg aktiverer "send" fra browseren.
Men når jeg så går "tilbage" og trykker "send" igen (med de samme data) er der fejl i linie 21 /conn.open DSN/
Håber der er en af Jer der kan hjælpe en endnu ikke så rutineret asp programmør :-)
If Request.Form("submit") <> "" Then
if Request.Form("fornavn") = "" then
Response.Redirect "Fornavn_ikke_indtastet.html"
end if
if Request.Form("efternavn") = "" then
Response.Redirect "Efternavn_ikke_indtastet.html"
end if
if Request.Form("adresse") = "" then
Response.Redirect "Adresse_ikke_indtastet.html"
end if
dim found
dim conn
dim dsn
found = false
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb")
Conn.Open DSN
strSQL = "Select * from postby"
Set rs = Conn.Execute(strSQL)
rs.movefirst
Do until found = true or rs.eof
if rs ("postnr") = Request.Form("postnr") then
found = true
end if
rs.movenext
Loop
if not found then
Conn.Close
Set Conn = Nothing
Response.Redirect "postnr_ikke_indtastet.html"
end if
rs.movefirst
found = false
Do until found = true or rs.eof
if rs ("by") = Request.Form("by") then
found = true
end if
rs.movenext
Loop
if not found then
Conn.Close
Set Conn = Nothing
Response.Redirect "By_ikke_indtastet.html"
end if
found = false
Conn.Close
Set Conn = Nothing
...........
