Baggrunden vil ikke være sort
Nogen der kan sige hvorfor jeg ikke kan få den bagrund til at være sort ??------------
<%@ Language=VBScript %>
<% Response.Buffer = true
sMode = Request.QueryString("mode")
sID = Request.QueryString("u")
If sID = "" Then sID = Request.Form("u")
If sID = "" Then sMode = ""
Select Case sMode
'Case "add" denne evt.!
Case "edit"
If Request.Form("Submit") = "Opdater" Then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/users.mdb") & ";DriverId=25;FIL=MS Access"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "UPDATE tblUsers SET username = '" & Request.Form("Navn") & "', post = " & Request.Form("post") & " WHERE (id = " & sID & ")"
rs.Open strSQL, myConn, 1, 3
Response.Redirect "view_user.asp"
Else
%>
<head>
<title>Brugere</title>
</head>
<BODY bgcolor="#000000" link="#FF0000" vlink="#FF0000" alink="#FF0000" text="#FFFFFF">
<FORM ACTION="view_user.asp?mode=del" METHOD="POST">
<INPUT TYPE="hidden" NAME="u" VALUE="<%= sID %>">
<TABLE>
<TR>
<TD>Navn:</TD>
<TD><INPUT TYPE="text" NAME="Navn" VALUE=""></TD>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="submit" NAME="Submit" VALUE="Opdater"></TD>
</TR>
<%
strSQL = "SELECT * from tblUsers"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/users.mdb") & ";DriverId=25;FIL=MS Access"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
%>
<table border="1" width="760" height="47">
<tr>
<td width="83" height="47" rowspan="2"><font color="#FFFFFF"><a href=view_user.asp?mode=edit&u=<%=rs("id")%>>ret nr. <%=rs("id")%><a href=view_user.asp?mode=del&u=<%=rs("id")%>>slet nr. <%=rs("id")%></font></td>
<td width="202" height="13"><font color="#FFFFFF"><i>Navn:</i> <%=rs("username")%></font></td>
<td width="157" height="13"><font color="#FFFFFF"><i>Køn:</i> <%=rs("sex")%></font></td>
<td width="290" height="13" colspan="2"><font color="#FFFFFF"><i>E-mail:</i> <%=rs("email")%></font></td>
</tr>
<tr>
<td width="202" height="22"><font color="#FFFFFF"><i>Adresse:</i> <%=rs("adress")%></font></td>
<td width="157" height="22"><font color="#FFFFFF"><i>By:</i> <%=rs("post")%> <%=rs("by")%></font></td>
<td width="130" height="22"><font color="#FFFFFF"><i>Mobil:</i> <%=rs("mobiltelefon")%></font></td>
<td width="154" height="22"><font color="#FFFFFF"><i>Password:</i> <%=rs("password")%><font></td>
</tr>
<p> </p>
</FORM>
<%
rs.MoveNext
Loop
Else
Response.Write "<B>Listen er tom!</B><br><br>"
End If
myConn.Close
Set myConn = Nothing
%>
<%
End Select
%>
