http 500 serverfejl i den her kode
Når jeg prøver gå på nettet med den her kode får jeg http 500 serverfejl<%
Option Explicit
Dim sql,username,rsUser,status,rsStatus
username = Session("username")
%>
<!--#include file="conn.asp"-->
<%
sql = "SELECT * FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
sql = "SELECT status FROM Users WHERE username = '" & username & "'"
Set rsStatus = Server.CreateObject("ADODB.Recordset")
rsStatus.Open sql, conn, 3, 3
end if
%>
<html>
<head>
<style fprolloverstyle>A:hover {color: #9A9643; font-family: Verdana; font-size: 10 pt}
</style>
<STYLE TYPE="text/css">
<!--
BODY {
scrollbar-face-color: #C0CD58;
scrollbar-shadow-color: #E6EBBC;
scrollbar-highlight-color: #C0CD58;
scrollbar-3dlight-color: #E6EBBC;
scrollbar-darkshadow-color: #C0CD58;
scrollbar-track-color: #C0CD58;
scrollbar-arrow-color: #E6EBBC;
}
-->
</STYLE>
<title>www.NewZ-ToDaY.dk</title>
</head>
<body link="#807D38" vlink="#807D38" alink="#807D38" text="#807D38" bgcolor="#C0CD58">
<p><b><font face="Verdana" size="2">Crew :.</font></b></p>
<table align="center" border="0" width="39%" height="243">
<tr>
<td width="50%" height="14"><font face="Verdana" size="2">Ejer(e):</font></td>
<%
if rsStatus("status") = "3" then%>
<%=rsUser("username")%><br>
<td width="50%" height="14">
<p align="center"></td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Programmør(e):</font></td>
<%
if rsStatus("status") = "5" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td valign="middle" width="50%" height="21"><font face="Verdana" size="2">Redaktør(e):</font></td>
<%
if rsStatus("status") = "4" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Grafiker(e):</font></td>
<%
if rsStatus("status") = "10" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Chef reporter(e):</font></td>
<%
if rsStatus("status") = "8" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Reporter(e):</font></td>
<%
if rsStatus("status") = "6" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Chef fotograf(er):</font></td>
<%
if rsStatus("status") = "9" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Fotograf(er):</font></td>
<%
if rsStatus("status") = "7" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Figurmaker(e):</font></td>
<%
if rsStatus("status") = "11" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
<tr>
<td width="50%" height="21"><font face="Verdana" size="2">Try out(s):</font></td>
<%
if rsStatus("status") = "2" then%>
<%=rsUser("username")%><br>
<td width="50%" height="21">
<p align="center"></p>
</td>
</tr>
</table>
</body>
</html>
<%
rsUser.close
set rsUser = nothing
rsStatus.close
set rsStatus = nothing
conn.close
set conn = nothing
end if
%>
