Problemer med loginscript
Er der nogen der kan se hvad der umiddelbart er galt her? Jeg har \"lavet\" det i Dreamweaver UltrDev, så der er nok en hel del unødvendig kode, men det skulle køre./ haase
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../Connections/Conn.asp\" -->
<%
Dim rsAdmin__admin
\'Hvis data er submitted
If Request.ServerVariables(\"CONTENT_LENGTH\") <> 0 Then
rsAdmin__admin = \"RqAdmin\"
if (Request.Form(\"Admin\") <> \"\") then rsAdmin__admin = Request.Form(\"Admin\")
%>
<%
Dim rsAdmin__kodeord
rsAdmin__kodeord = \"RqKodeord\"
if (Request.Form(\"Kodeord\") <> \"\") then rsAdmin__kodeord = Request.Form(\"Kodeord\")
%>
<%
set rsAdmin = Server.CreateObject(\"ADODB.Recordset\")
rsAdmin.ActiveConnection = MM_Conn_STRING
\'Henter data der svarer til de submittede data i formen forneden
rsAdmin.Source = \"SELECT * FROM \" + Replace(rsAdmin__admin, \"\'\", \"\'\'\") + \" WHERE \" + Replace(rsAdmin__admin, \"\'\", \"\'\'\") + \" = \'RqAdmin\' AND \" + Replace(rsAdmin__kodeord, \"\'\", \"\'\'\") + \" = \'RqKodeord\'\"
rsAdmin.CursorType = 0
rsAdmin.CursorLocation = 2
rsAdmin.LockType = 3
rsAdmin.Open()
rsAdmin_numRows = 0
\'Udskriver SQL-strengen
\'Response.Write rs.Admin.Source
\' Hvis dataene ikke findes i databasen gå da tilbage til main.asp og sæt session til 0 dvs ingen adgang
If rsAdmin.EOF Then
Session(\"Access_admin\") = 0
Response.Redirect (\"main.asp\")
Else
\' Hvis dataene findes i databasen gå da til admin.asp og sæt session til 1 dvs adgang
Session(\"Access_admin\") = 1
Response.Redirect (\"admin.asp\")
End If
%>
<%
rsAdmin.Close()
%>
<% Else %>
<html>
<head>
<title>admin</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"../style.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<div align=\"center\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" height=\"100%\">
<tr>
<td>
<form name=\"admin\" method=\"post\" action=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\">
<table width=\"135\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
<tr>
<td width=\"16\"> </td>
<td width=\"135\" bgcolor=\"#4F7500\" class=\"menu_hvid\">Administratormodul:</td>
<td width=\"65\"> </td>
</tr>
<tr height=\"1\">
<td width=\"16\"> </td>
<td width=\"135\" class=\"menu_hvid\"> </td>
<td width=\"65\"> </td>
</tr>
<tr height=\"1\">
<td height=\"1\" width=\"16\"></td>
<td height=\"1\" width=\"135\" bgcolor=\"#4F7500\"></td>
<td height=\"1\" width=\"65\"></td>
</tr>
<tr>
<td width=\"16\"> </td>
<td width=\"135\"><span class=\"broed_hvid_padtop\">admin: </span><br>
<input onFocus=\"this.blur()\" type=\"text\" name=\"admin\" class=\"input\">
</td>
<td width=\"65\"> </td>
</tr>
<tr>
<td width=\"16\"> </td>
<td width=\"135\"><span class=\"broed_hvid_padtop\">kodeord: </span><br>
<input onFocus=\"this.blur()\" type=\"password\" name=\"kodeord\" class=\"input\">
</td>
<td width=\"65\"> </td>
</tr>
<tr>
<td width=\"16\"> </td>
<td width=\"135\"> </td>
<td width=\"65\"> </td>
</tr>
<tr>
<td width=\"16\"> </td>
<td width=\"135\">
<div align=\"left\">
<input type=\"reset\" name=\"reset\" value=\"s l e t\" class=\"submit\">
<input type=\"submit\" name=\"Submit\" value=\"l o g i n\" class=\"submit\">
</div>
</td>
<td width=\"65\"> </td>
</tr>
<tr>
<td width=\"16\"> </td>
<td width=\"135\"> </td>
<td width=\"65\"> </td>
</tr>
<tr height=\"1\">
<td height=\"1\" width=\"16\"></td>
<td height=\"1\" width=\"135\" bgcolor=\"#4F7500\"></td>
<td height=\"1\" width=\"65\"></td>
</tr>
</table>
<div align=\"center\"></div>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>
<% End If %>
