Login ?
Hejsa..Jeg prøver på at lave en login script, men jeg kan ik få den til at fungere... ? er der nogen der kan hjælpe ?
<%@ LANGUAGE=\"VBSCRIPT\" %>
<%
\' Åbner
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"chat.mdb\")
Conn.Open DSN
%>
<%
\' Betingelser
If Mode=Login Then
elseif (Request.Form(\"Brugernavn\")) = \"\" Then
Response.Redirect(\"Login.asp?Brugernavn=Brugernavnet feltet er tomt\")
Elseif (Request.Form(\"Password\")) = \"\" Then
Response.Redirect(\"login.asp?Password=Password feltet er tomt\")
Elseif (Request.Form(\"Brugernavn\")) = \" & Value & \" And (Request.Form(\"Password\")) = \" & Value &\" Then
strSQL = \"Select * From Chat Where Brugernavn = \"\' & Brugernavn & \'\" And Where Password \"\' & Password & \'\"
Response.Redirect(\"Chat.asp\")
Else
Response.Redirect(\"login1.asp?mode=Brugernavn/Password er ugyldig\")
End If
%>
<%
\' Lukker
Conn.Close
Set Conn = Nothing
%>
<HTML>
<HEAD>
<title>Untitled Document</title>
</HEAD>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#804040\" vlink=\"#008080\" alink=\"#004080\">
<%=Request.QueryString(\"Brugernavn/Password\") %>
<Table align=\"Left\">
<form name=login action=\"Login.asp?mode=login\" method=\"Post\">
<TR>
<TD>Brugernavn: </TD>
<TD><input type=\"Text\" name=\"Brugernavn\" value=\"\" size=\"30\"></TD>
<TD><%=Request.QueryString(\"Brugernavn\")%></TD>
</TR>
<TR>
<TD>Password </TD>
<TD><input type=\"password\" name=\"Password\" value=\"\" size=\"30\"></TD>
<TD><%=Request.QueryString(\"Password\")%></TD>
<TR>
</TR>
<TR>
<TD></TD>
<TD><input type=\"reset\"><input type=\"Submit\" name=\"Submit\" value=\"Submit\"></TD>
<TD></TD>
</TR>
</form>
</Table>
</BODY>
</HTML>
