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%>
------------------
Ampy.cjb.net