Hvorfor får jeg ikke en værid med i querysting
Hej, jeg har fundet et "logon" script. Når siden indlæses er der en ID værdi i urlen. Jeg skriver igen i den url som formen går hen til at den skal tage den ID værdi med igen, men det sker ikke. Kan i se i nedenstående script hvorfor den ikke gør det?? Skriv endelig hvis jeg ikke har udtrykt mig klart nok!SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("hemmeligt;-).mdb")
If Request("mode") = "Check" then
Function unQuote(strTekst)
strTekst = Trim(strTekst)
unQuote = Replace(strTekst,"%","53")
End Function
' Gemmer formfelterne i Variabler
strPassword = unQuote(request("password"))
Sql = "Select Count(*) as Found from annoncer where (password ='" & strPassword & "')"
Set LO = RS.Execute(Sql)
if LO("Found") = 0 then
Session("login") = ""
error = "Koden er indtastet forkert - prøv igen"
else
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("hemmeligt.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM annoncer where (password ='" & Request("password") & "')"
Set ez = myConn.Execute(strSQL)
Session("login") = "yes mate"
Response.redirect("redigerlogin.asp?id=" & Request.Querystring("id") & " ")
EZ.Close
RS.Close
Conn.Close
end if
end if
%><form method="POST" action="redigerlogin.asp?id="<% Response.Write Request.Querystring("id") %>" ">
<input type="hidden" name="mode" VALUE="Check">
<p style="margin-left: 20; margin-right: 10">
</font> <br>
<font class="header">
<input class="text" type="password" value="<%=strpassword%>" name="password" size="15">
Indtast adgangskode </font>
<br>
<br>
<input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt"> <%=error%> </p>
<p style="margin-left: 20; margin-right: 10"> </p>
<p style="margin-left: 20; margin-right: 10"> </p>
</form>
