Avatar billede mrg Nybegynder
08. april 2002 - 17:10 Der er 8 kommentarer og
1 løsning

Connection-fejl jeg ikke kan finde...

Hej Eksperter

Jeg 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
%>
Avatar billede coltau Juniormester
08. april 2002 - 17:55 #1
Ja du kan da prøve at ændre disse linier:

Set sConnstr = server.CreateObject("adodb.connection")
    sConnstr.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("nolle.mdb") & ";"

til:

Set sConnstr = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
sConnstr.Open "DBQ=" & ODBCpath & "nolle.mdb;DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

som er den måde de beskriver hos wannafind.dk
Avatar billede mrg Nybegynder
08. april 2002 - 18:05 #2
The page cannot be displayed
Avatar billede excession Nybegynder
08. april 2002 - 18:53 #3
og du er sikker på at du sender til den rigtigt side?

altså at ACTION="dinSide.asp" i FORM elementet?

-- xs
Avatar billede mrg Nybegynder
08. april 2002 - 22:30 #4
Jeps - der står rigtig URL...
Avatar billede excession Nybegynder
08. april 2002 - 22:43 #5
hmm er der ikke også noget galt her egentlig? :

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

for det første har du 2 if sætninger, men kun den ene bliver afslutet..

så redirecter du til en anden side hvis formularfelterne ikke er udfyldt, og samtidig laver et SQL kald:

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

så har du det her til sidst, men jeg kan ikke rigtig finde ud af hvad der skal ske..?:

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


-- xs
Avatar billede mrg Nybegynder
09. april 2002 - 11:24 #6
PERFEKT - tænk at en "end if" kan betyde alle de kvaler...

Koden kan ses "in action" på www.noelfrabaren.dk

Excession - et svar ?
Avatar billede excession Nybegynder
09. april 2002 - 12:24 #7
kanon :)

-- xs
Avatar billede mrg Nybegynder
09. april 2002 - 12:32 #8
Ja - så du har "støttet" Noel på vej mod 500.000....
Avatar billede excession Nybegynder
09. april 2002 - 12:33 #9
lyder ikke så tosset.. :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester