Avatar billede xinc Nybegynder
12. maj 2003 - 09:33 Der er 18 kommentarer

hvordan løser jeg dette if problem ?

("id2") er en tekstbox fra forrige side hvordan for jeg dette til at virke har siddet i flere timer nu og må derfor spørge folket :/

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From kunder"
rs.open strSQL, conn, 1, 3

if ("id2") = id then response.redirect "http://lappy.dk"

end if

set rs = nothing
Conn.Close
Avatar billede keysersoze Ekspert
12. maj 2003 - 09:36 #1
du kan ikke bare nøjes med at skrive ("id2")

du skal bruge enten

request.form("id2")

eller

request.querystring("id2")

alt efter om du sender formen med post eller get.

somtidig skal id i plinger så det måske kommer til at se sådan ud;

id request.form("id2") = "id" then
Avatar billede askeb Nybegynder
12. maj 2003 - 09:36 #2
er det hele din kode eller har du gemt nogle data i nogle variabler?
Avatar billede askeb Nybegynder
12. maj 2003 - 09:39 #3
og hvad skal du bruge connectionen til? du bruger jo ikke databasen til noget?
Avatar billede xinc Nybegynder
12. maj 2003 - 09:43 #4
jeg vil jo lave sådan at hvis ikke id=id2 så skal man ikke kunne komme til næste side
Avatar billede xinc Nybegynder
12. maj 2003 - 09:44 #5
btw sender med post
Avatar billede askeb Nybegynder
12. maj 2003 - 09:45 #6
se nu fungerer det som login, hvis kunden står i databasen bliver han/hun redirectet til lappy.dk:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Set rs = conn.execute("Select * From kunder")

do while not rs.eof
if request.form("id2") = rs("id") then
response.redirect "http://lappy.dk"
end if
rs.movenext
loop

set rs = nothing
Conn.Close
%>
Avatar billede keysersoze Ekspert
12. maj 2003 - 09:45 #7
så skal du bruge;

if request.form("id2") = "id" then

hvad sker eller sker der ikke? meldes der fejl eller noget? kom med lidt mere info...
Avatar billede xinc Nybegynder
12. maj 2003 - 09:52 #8
det er jo netop et af de andre små problemer den kommer ikke med fejl... jeg er ved at lave afslutningen af et shop system. Og man skal indtaste sit personale nummer for at kunne bestille varene.. personlanummeret = id .. og id=2 den tekstbox hvor man skriver navnet ind i... hvis man ikke har et personale nummer skal den redicte til lappy.dk !

efter min mening burde dette her jo virke : Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From kunder"
rs.open strSQL, conn, 1, 3

if request.form("id2") = "Id" then response.redirect "afslut.asp"

set rs = nothing
Conn.Close
Avatar billede askeb Nybegynder
12. maj 2003 - 09:56 #9
det du sætter den til det er at hvis man indtaster "id" som personalenummer så bliver du redirectet. Du skal involvere databasen, sådan:

' start loopet her
do while not rs.eof
' hvis det personalenummer du har indtastet ikke er i databasen
if request.form("id2") <> rs("Id") then
' bliver du redirectet
response.redirect "afslut.asp"
end if
' loop sådan at du ser alle recordsne igennem
rs.movenext
loop
Avatar billede xinc Nybegynder
12. maj 2003 - 10:03 #10
ja men hvis jeg sætter det ind så bliver man redictet uanset hvad man sætter  id2 til at være.. det skal være sådan at hvis id2=id = redirect afslut.asp... hvis ikke id=id2 skal man redirect til index.asp
Avatar billede askeb Nybegynder
12. maj 2003 - 10:17 #11
' start loopet her
do while not rs.eof
' hvis det personalenummer du har indtastet ikke er i databasen
if request.form("id2") <> rs("Id") then
' bliver du redirectet
response.redirect "afslut.asp"
'ellers
else
' bliver du redirectet
response.redirect "index.asp"
end if
' loop sådan at du ser alle recordsne igennem
rs.movenext
loop

?
Avatar billede xinc Nybegynder
12. maj 2003 - 10:23 #12
hvis jeg gør sådan... går den til index.asp no matter what
Avatar billede askeb Nybegynder
12. maj 2003 - 10:24 #13
har du et link? og har du nogen poster i databasen?
Avatar billede xinc Nybegynder
12. maj 2003 - 10:27 #14
har ikke et link.. det ligger local.... ja der er 5 posts i databasen
Avatar billede xinc Nybegynder
12. maj 2003 - 10:28 #15
men jeg kan da sende hele molivitten til din mail hvis det er
Avatar billede askeb Nybegynder
12. maj 2003 - 10:30 #16
prøv at kør det her og så sig hvad der sker:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Set rs = conn.execute("Select * From kunder")

' start loopet her
do while not rs.eof
' hvis det personalenummer du har indtastet ikke er i databasen
if request.form("id2") <> rs("Id") then
' bliver du redirectet
response.redirect "afslut.asp"
'ellers
else
' bliver du redirectet
response.redirect "index.asp"
end if
' loop sådan at du ser alle recordsne igennem
rs.movenext
loop

set rs = nothing
Conn.Close
%>
Avatar billede xinc Nybegynder
12. maj 2003 - 10:33 #17
den redirecter til afslut.asp uanset hvad jeg sætter personale id til
Avatar billede askeb Nybegynder
12. maj 2003 - 10:34 #18
ahhh...nu ved jeg hvad der er galt:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Set rs = conn.execute("Select * From kunder")

' start loopet her
do while not rs.eof
' hvis det personalenummer du har indtastet ikke er i databasen
if request.form("id2") = rs("Id") then
' bliver du redirectet
response.redirect "index.asp"
end if
' loop sådan at du ser alle recordsne igennem
rs.movenext
loop

response.redirect "afslut.asp"

set rs = nothing
Conn.Close
%>
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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