Community, profil.asp fejl
I får lige koden, find fejl ;)<%
mode = Request("mode")
Response.Buffer = True
if session("brugernavn") = "" then Response.Redirect("login.asp?error=Hovsa, du er jo ikke logget ind!") end if
%>
<html>
<head>
<title>Brugerinfo</title>
<style>
<!--
a{text-decoration:none}
//-->
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<% if mode = "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("com123.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from brugere where id = " & Request.Querystring("id") & ""
rs.Open strSQL, Conn, 1, 3
%>
<table border=0 width=402>
<tr>
<td width=382><font face="Tahoma" size="2">Du ser lige nu info for <%=server.htmlEncode(rs("brugernavn"))%>, som har id <%=rs("id")%></font></td>
</tr>
</table>
<table border=0 width=502>
<tr>
<td width=83><b><font face="Tahoma" size="2">Brugerinfo</font></b></td><td width="405"></b></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Brugernavn:</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("brugernavn"))%></font></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Navn:</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("navn"))%></font></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Alder:</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("alder"))%></font></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Hjemmeside:</font></td><td width="405"><a href="<%=rs("homepage")%>"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("homepage"))%></font></a></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Fri tekst</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("fritxt"))%></font></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2"> </font></td><td width="405"></td>
</tr>
<tr>
<td width=83><b><font face="Tahoma" size="2">Kontakt</font></b></td><td width="405"></b></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Email:</font></td><td width="405"><a href="mailto:<%=rs("mail")%>"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("mail"))%></font></a></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">ICQ:</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("icq"))%></font></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Msn:</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("msn"))%></font></td>
</tr>
<tr>
<td width=83><font face="Tahoma" size="2">Eyeball:</font></td><td width="405"><font face="Tahoma" size="2"><%=server.htmlEncode(rs("eyeball"))%></font></td>
</tr>
</table><font face="Tahoma" size="2"><br>
<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
end if %>
<b><a href="java script:history.back();">Tilbage</a><b>
</font>
</body>
</html>
