Connection-fejl jeg ikke kan finde...
Hej EksperterJeg har en form på en side, der ved submit hopper over på en anden side - den har jeg klippet asp-koden ud af.
Den skriver "siden kan ikke vises" - jeg er ret sikker på at det er i connection-tingen det går galt, men kan ikke lige pege fejlen ud...HJÆLP!!
Siden ligger iøvrigt hos Wannafind, der skriver følgende om hvilke connection-strings de vil have:
http://www.wannafind.dk/support/more.asp?id=18
TAK!!
-----------------------------
<%@ Language=VBScript %>
<%
dim sConnstr
dim sRs
dim sSQL
dim IP
dim dagarray
dim dag
dim navn
dim bynavn
dim mail
Set sConnstr = server.CreateObject("adodb.connection")
sConnstr.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("nolle.mdb") & ";"
Set sRs = server.CreateObject("adodb.Recordset")
sRs.CursorLocation = 3
sConnstr.CursorLocation=3
ip = Request.ServerVariables("REMOTE_ADDR")
dagarray = split (formatdatetime (Date,1),",")
dag = dagarray(0)
navn = Request.Form ("Navn")
bynavn = Request.Form("By")
mail = Request.Form("textfield")
if navn = "Navn" or bynavn = "By" or mail = "Din mailadresse" then
Response.Redirect ("mangler.asp")
sSQL = "SELECT * FROM mailadresser where IP='" & ip &"' and dag='" & dag & "'"
sRs.Open sSQL, sConnstr,2,3
if sRs.RecordCount = 0 then
sConnstr.Execute ("INSERT INTO mailadresser (mailadresse,navn,byen,IP,dag) VALUES ('" & mail& "','"& navn & "','" & bynavn & "','" & ip & "','" & dag & "')")
else
Response.Redirect ("ErTilmeldt.asp")
end if
%>
