Problemer med login hvor sitet er bygget op i Querystrings?
Hej med jer.....Jeg har problemer med login hvor sitet er bygget op i Querystrings?Det er en simpel login som fungere fint nok hvis den skal redrict til en anden side. Men hvordan får jeg den til at vælge side med Querystrings? Altså hvis login er rigtigt så det ene ellers det andet?
Min kode:
<%
If Request.Querystring("mode") = "login" Then
If Not IsEmpty (Request.Form("send")) Then
Set oRS = Conn.Execute("SELECT * FROM IntranetLogin WHERE " & "Brugernavn='" & Request.Form("Brugernavn") & "' AND " & "Password='" & Request.Form("password") & "'")
If oRS.EOF Then
TheMessage = "Forkert brugernavn eller password!"
Else
Session("Brugernavn")=oRS("Brugernavn")
Session("Password")=oRS("Password")
Response.Redirect("default.asp?page=intranet&mode=login")
End If
Else
TheMessage = "Indtast brugernavn og password!"
End If
End iF
%>
<table width="100%" height="100%" align="left" cellpadding="10" cellspacing="0" border="0">
<tr>
<td id="tdduer" valign="top">Du er her: <a id="lnk01" href="default.asp?page=home">Startside</a> : <a id="lnk01" href="default.asp?page=intranet">Intranet</a></td>
</tr>
<tr>
<td height="60"><img src="img/1x1.gif" width="1" height="1" alt="" border="0" /></td>
</tr>
<tr>
<td align="center" valign="top">
<form action="default.asp?mode=login" method="post">
<input type="hidden" name="rem" value="true">
<table id="login" align="center" cellpadding="5" cellspacing="0" border="0">
<tr>
<td>Brugernavn:</td>
<td><input type="text" maxlength="25" name="Brugernavn" /></td>
</tr>
<tr>
<td>Password:</td>
<td><input type="password" maxlength="25" name="Password" /></td>
</tr>
<tr>
<td align="right" colspan="2">
<table cellpadding="2" cellspacing="0" border="0">
<tr>
<td align="center"><input type="reset" name="reset" value="Nulstil" /></td>
<td><img src="img/1x1.gif" width="1" height="1" alt="" border="0" /></td>
<td align="center"><input type="submit" name="send" value="Login" /></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
oConn.Close
Set oConn = Nothing
%>
<%
If Request.Querystring("mode")="login" Then
Response.Write "Du er logged into ours intranet"
Else
Response.Redirect("default.asp?show=bad")
End If
%>
