Hejsan!
När jag har loggat in till inloggad.asp med rätt lösenord m.m så blir skärmen bara vit fast att det ska egentligen komma upp länkar.
Så här ser hela koden ut för inloggad.asp:
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = server.createobject("ADODB.Recordset")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/linkcounterlankar.mdb")
sql = "SELECT * FROM data"
recset.open sql, connect, adopenstatic, adlockoptimistic
username = RecSet("username")
password = RecSet("password")
if request.querystring("vad") = "data" then
if request.form("username") = username AND request.form("password") = password Then
session("username") = request.form("username")
session("password") = request.form("password")
Response.Redirect "inloggad.asp"
Else
Response.redirect "admin.asp?login=error"
End If
End If
recset.close
%>
<%
IF session("username") = username AND session("password") = password then
%>
<html>
<head>
<style type="text/css">
body {
scrollbar-base-color: #FFE784;
scrollbar-arrow-color: #000000;
scrollbar-highlight-color: #;
scrollbar-3dlight-color: #000000;
scrollbar-darkshadow-color: #000000;
scrollbar-track-color: #FFF7EF }
</style>
<STYLE type=text/css>A:link {
COLOR: #000080; TEXT-DECORATION: none
}
A:visited {
COLOR: #000080; TEXT-DECORATION: none
}
A:active {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #800000; TEXT-DECORATION: none
}
</STYLE>
<style type="text/css">
input,textarea {font-family: Verdana; font-size:10px; font-weight: normal; border: 1px solid (color: #000000); background-color:<%=bgform%> ; color: #000000}
</style>
<title>Ampy Länkarkiv/title>
</head>
<body bgcolor="#FFF7EF" onLoad="currentField=false;">
<table bgcolor="#FFE79C" border="0" cellpadding="2" cellspacing="3" width="500" style="border: 1 solid #000000">
<tr>
<td width="475">
<font face=verdana size=1>
<a href="inloggad.asp?vad=laggtill">Lägg till en sida</a> | <a href="inloggad.asp?vad=tabort">Ta bort</a> | <a href="inloggad.asp?vad=andra">Ändra sidor</a> | <a href="inloggad.asp?vad=loggaut">Logga ut</a>
<br>
<hr color="#008100">
<%If Request.Querystring("vad") = "laggtill" Then
Response.Write "Blablabla"
End If %>
</td></tr></table>
</body>
</html>
<% else
response.redirect "admin.asp?login=error"
end if%>
Det är ganska många fel som jag ser det. Du måste ju på något sätt specifisera var i databastabellen du vill hämta Username och Password på det första stället.
SEn kan du alltid kolla om lösenordet och användarnamnet verkligen är "sername"och "assword"
Alltså jag kommer in på inloggad.asp för att rullisten till höger är gul som den ska vara, men det är tabellen med länkarna som inte skrivs ut, varför?
Men om jag testar att skriva fel lösenord och fel användranamn så kommer jag inte in på sida, alltså allt loginsaken funkar som den ska men tabellen visas inte när man är inloggad.