08. april 2002 - 17:04Der er
9 kommentarer og 2 løsninger
hmmm hvordan spørger man til om et felt er = ""
Jeg har følgende kode kan man ikke ikke spørge på denne måde ? (** omkring den if sætnign ) skal have det til at virke sådan at hvis de skrive en ikek regístreret email ind i form at den så sender dem til bage med en fejlbesked
if request.form <> "" then stremail = request.form("kodeord")
Set ObjConn = Server.createobject("ADODB.Connection") ObjConn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb") Set ObjRS = Server.createObject("ADODB.Recordset")
GlemtSQL = "select Adgangskode from tblbruger where ID > 0 " GlemtSQL = GlemtSQL & " AND " & "Email" & " like '%" & StrEmail & "%' " ObjRS.open GlemtSQL,Objconn response.write GlemtSQL response.write ObjRS("Adgangskode")
*********If ObjRS("Adganskode") = "" then Response.redirect "glemt_pass.asp.asp?besked=1" end if*******
hernede komemr der så et Jmail script, det virker fint
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
mccannon >> Du prøver jo at udskrive ObjRS("Adgangskode") før du har tjekket om der er en EOF. Derfor får du fejl. Det er sikkert imens du har lavet noget debugging... :)
Jeg har prøvet at rette i koden så der virker her:
if request.form <> "" then stremail = request.form("kodeord")
Set ObjConn = Server.createobject("ADODB.Connection") ObjConn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb") Set ObjRS = Server.createObject("ADODB.Recordset")
GlemtSQL = "select Adgangskode from tblbruger where ID > 0 " GlemtSQL = GlemtSQL & " AND Email like %" & StrEmail & "%" ObjRS.open GlemtSQL,Objconn
If ObjRS.EOF then Response.redirect "glemt_pass.asp.asp?besked=1" end if
Casper, jeg har lige skrevet koden som du har rettet til .: GlemtSQL = "select Adgangskode from tblbruger where ID > 0 " GlemtSQL = GlemtSQL & " AND Email like %" & StrEmail & "%"
hvilket giver mig den her.: Error Type: Microsoft JET Database Engine (0x80040E14) Syntax error in query expression 'ID > 0 AND Email like %erwer@sfdefew.dk%'.
Hmm... SÅ sker er nok '' på alligevel... Troede jeg ikk :) : GlemtSQL = "select Adgangskode from tblbruger where ID > 0 " GlemtSQL = GlemtSQL & " AND Email like '%" & StrEmail & "%'" ObjRS.open GlemtSQL,Objconn
skulel bare have slået den der resposne.write fra !! :-) og spurgt på den rigtige måde i if sætningen nu har i jo begge tohjulpet, vil i dele pointsne ?
GlemtSQL = "select Adgangskode,Email from tblbruger where ID > 0 " GlemtSQL = GlemtSQL & " AND " & "Email" & " like '%" & StrEmail & "%' " ObjRS.open GlemtSQL,Objconn response.write GlemtSQL 'response.write ObjRS("Adgangskode")
If ObjRS.EOF = true then Response.redirect "glemt_pass.asp?besked=1" end if
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.
