jeg poster lige koden, så i kan se hvor prblemet kommer:
<!-- #include file="mysqlconn.asp" --><HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 6.00.2800.1458" name=GENERATOR></HEAD>
<BODY>
<table>
<tr>
<%
Dim myPage
if request.form("showuser") <> "" then
myPage = int(request.form("showuser"))
else
myPage = Request.QueryString("side")
end if
If (IsNumeric(myPage)) And (myPage <> "") Then
' vi sikrer os at vi reelt får en værdi fra
' querystring og at værdien er numerisk, der
' så kan bruges til søgning på recordens
' ID nummer
strSQL = "Select charnavn From chars where charid=" & myPage
Set rsnavn = Conn.Execute(strSQL)
Else
Response.Write "Der mangler en bruger angivelse." & vbCrLf
End If
%>
<td>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5" colspan="3">
<font size="15">
<%=rsnavn("charnavn")%>
</font>
<br><br>
</td>
</tr>
<tr>
<td align="left" nowrap>
<font face="Verdana, Helvetica" size="2">
<ul>
<%
strSQL = "Select charnavn,rank,race,mainchar,charid From chars where charid=" & myPage
Set rschar = Conn.Execute(strSQL)
If (Not rschar.BOF) And (Not rschar.EOF) Then
' her sikrer vi os at der *ER* en eller flere
' records at arbejde med.
Response.write "<li><b>Rank: </b>" & rschar("rank") & " </li><br><br><li><b>Race: </b>" & rschar("race") & "</li><br><br><br>" & vbCrLf
Else
Response.Write "Ikke oplyst." & vbCrLf
End If
%>
</ul>
</font>
</td>
<td width="15"></td>
<td width="15">
<%
strSQL = "Select billede From chars where charid=" & myPage
Set rsbillede = Conn.Execute(strSQL)
Response.write "<FONT class=sidelinks face=verdana, Helvetica' size=1>"
if not rsbillede("billede") = "" then
Response.write "<img src='billeder/" & rsbillede("billede") & "' width='150' height='200'><br><br>"
end if
%>
</td>
</tr>
<tr>
<td align="left" valign="top" width="100">
<font face="Verdana, Helvetica" size="2">
<b>Adventure</b>
</font>
</td>
<td width="20"> </td>
<td align="left" valign="top" width="100">
<font face="Verdana, Helvetica" size="2">
<b>Crafting</b>
</font>
</td>
</tr>
<tr>
<td align="left" valign="top" width="160" nowrap>
<font face="Verdana, Helvetica" size="1">
<ul>
=====================================================================================
herfra
=====================================================================================
<%
strSQL = "select distinct schoolnavn, schoollevel From schools left join schoolslevels on schools.schoolid = schoolslevels.schoolid where schoolslevels.charid = " & myPage & " and not schools.schooltype = 2"
Response.write strsql & "<br>"
Set rsadventure = Conn.Execute(strSQL)
'if test = true then
If (Not rsadventure.BOF) And (Not rsadventure.EOF) Then
' her sikrer vi os at der *ER* en eller flere
' records at arbejde med.
do while not rsadventure.eof
Response.write "<li>" & rsadventure("schoolnavn") & " " & rsadventure("schoollevel") & "</li><br>" & vbcrlf
rsadventure.movenext
loop
Else
Response.Write "Ikke oplyst." & vbCrLf
End If
%>
=====================================================================================
hertil og...
===================================================================================== </ul>
</font>
</td>
<td> </td>
<td align="left" valign="top" width="140" nowrap>
<font face="Verdana, Helvetica" size="1">
<ul>
=====================================================================================
herfra
=====================================================================================
<%
strSQL = "select distinct schoolnavn, schoollevel From schools left join schoolslevels on schools.schoolid = schoolslevels.schoolid where schoolslevels.charid = " & myPage & " and schools.schooltype = 2"
Set rscraft = Conn.Execute(strSQL)
If (Not rscraft.BOF) And (Not rscraft.EOF) Then
' her sikrer vi os at der *ER* en eller flere
' records at arbejde med.
do while not rscraft.eof
Response.write "<li>" & rscraft("schoolnavn") & " " & rscraft("schoollevel") & "</li><br>" & vbcrlf
rscraft.movenext
loop
Else
Response.Write "Ikke oplyst." & vbCrLf
End If
if rschar("mainchar") <> 0 then
%>
=====================================================================================
hertil
===================================================================================== </ul>
</font>
</td>
</tr>
</table>
<table>
<tr>
<TD>
<font face="Verdana, Helvetica" size="2">
<b>Main char</b>
</font>
</td>
</tr>
<tr>
<td>
<font face="Verdana, Helvetica" size="1">
<ul>
<%
strSQL = "select charnavn, charid From chars where charid=" & rschar("mainchar")
Set rsmainchar = Conn.Execute(strSQL)
Response.write "<li><b><a href='profil_medlem.asp?side=" & rsmainchar("charid") & "'>" & rsmainchar("charnavn") & "</a></b></li><br>" & vbcrlf
main = true
end if
%>
</ul>
</font>
</td>
</tr>
<tr>
<TD>
<font face="Verdana, Helvetica" size="2">
<b>Alternative chars</b>
</font>
</td>
</tr>
<tr>
<td>
<font face="Verdana, Helvetica" size="1">
<ul>
<%
if main <> true then
strSQL = "select charnavn, charid From chars where mainchar=" & rschar("charid")
Set rsaltchars = Conn.Execute(strSQL)
else
strSQL = "select charnavn, charid From chars where mainchar=" & rsmainchar("charid")
Set rsaltchars = Conn.Execute(strSQL)
end if
If (Not rsaltchars.BOF) And (Not rsaltchars.EOF) Then
' her sikrer vi os at der *ER* en eller flere
' records at arbejde med.
do while not rsaltchars.eof
if not rsaltchars("charid") = rschar("charid") then
Response.write "<li><a href='profil_medlem.asp?side=" & rsaltchars("charid") & "'>" & rsaltchars("charnavn") & "</a></li><br>" & vbcrlf
end if
rsaltchars.movenext
loop
Else
Response.Write "No alt chars." & vbCrLf
End If
Conn.Close
Set Conn = Nothing
%>
</ul>
</font>
</td>
</tr>
</table>
</td>
</tr>
</table></BODY></HTML>
