När jag kör det här i PWS så blir sidan bara vit nån som vet vad det är för fel? Förmodligen kommer du aldrig in i någin If-sats. Skickar du med någon querystring? Det saknas body, head och slut-html-tag, det kan ibland göra att sidan blir tom. Om du använder Netscape så kan de bero på att du inte har någon sluttag på någon table,tr,td IE är väldigt förlåttande där och fixar det, medans Netscape kräver att du vet vad du sysslar med...Blank sida
-----------------------------------------------------------------------------------
<!-- #include virtual="/applications/adovbs.inc" -->
<html>
<title>Inloggning och användardatabas</title>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\asp\data\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% '====================================================================================================================== %>
<% ' Skapa användare %>
<% '====================================================================================================================== %>
<% If Request.QueryString("alt") = "createuser" Then %>
<font size="1" face="verdana, arial">
<b>Skapa ny användare</b><p>
<form method="POST" action="admin.asp?alt=create">
<b>Nytt användarnamn</b><br>
<input type="text" size="30" name="username" style="font-size: 8pt; font-family: verdana, arial"><p>
<b>Nytt lösenord</b><br>
<input type="text" size="30" name="password" style="font-size: 8pt; font-family: verdana, arial"><p>
<b>E-post</b><br>
<input type="text" size="30" name="e-post" style="font-size: 8pt; font-family: verdana, arial"><p>
<b>Behörighet</b><br>
<input type="radio" name="access" value="A">A-access (admin)<br>
<input type="radio" name="access" value="B">B-access (användare)<p>
<input type="submit" value="Skapa nytt konto" style="font-size: 8pt; font-family: verdana, arial">
</form>
<p>
<ul>
<li>Skapa ny användare
<li>Lista användare
</ul>
</font>
<% ElseIf Request.QueryString("alt") = "create" Then %>
<font size="1" face="verdana, arial">
<b>Ny användare skapad!</b><p>
<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = Request.Form("access")
RecSet.Update %>
<p>
<ul>
<li>Skapa ny användare
<li>Lista användare
</ul>
</font>
<% RecSet.Close
End If %>
<% '====================================================================================================================== %>
<% ' Lista användare %>
<% '====================================================================================================================== %>
<% If Request.QueryString("alt") = "viewusers" Then %>
<font size="1" face="verdana, arial">
<b>Listar användare!</b><p>
<% Visa = "SELECT * FROM users"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100"><font size="1" face="verdana, arial"><b>Användare</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Lösenord</b></font></td>
<td width="150"><font size="1" face="verdana, arial"><b>E-post</b></font></td>
<td width="100"><font size="1" face="verdana, arial"><b>Behörighet</b></font></td>
</tr>
<% Do While Not RecSet.EOF %>
<tr>
<td><font size="1" face="verdana, arial"><% =RecSet("Username") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("Password") %></font></td>
<td><font size="1" face="verdana, arial">"><% =RecSet("E-post") %></font></td>
<td><font size="1" face="verdana, arial"><% =RecSet("Access") %></font></td>
</tr>
<% RecSet.MoveNext
Loop %>
<p>
<ul>
<li>Skapa ny användare
<li>Lista användare
</ul>
</font>
<% RecSet.Close
End If %>
----------------------------------------------------------------------------------- Sv: Blank sida
/JanneSv: Blank sida
/JohanSv: Blank sida