9 svar · 279 visningar · startad av Firegamez.com
Hejsan alla! Jag får upp ett felmeddelande! Så här ser det ut!
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'username'
/community/gb.asp, line 5
Jag har "Option Explicit" med ovanför! Dessutom "dim", jag skriver i "username" bakom dim! Som jag gjort på alla andra sidor! Sen sparar jag o skickar upp filen! Sen uppdaterar jag sidan, men felet är kvar! Vet ni vad som är fel! Det hjälper inte heller att ta bort Option Explicit
Ha de bra!
tyvärr så finns det bara 145! ;)
Här är koden:
<%
Option Explicit
Dim sql, username, rsMessages, rsMessageRead, newcount
username = Request.Cookies("username")
if username = "" then
Response.Redirect("nologin.asp?page=inbox.asp")
end if
%>
<!--#include file="conn.asp"-->
<%
sql = "SELECT Messages.*, icon FROM Users INNER JOIN Messages ON Users.username = Messages.sentfrom WHERE sendto = '" & username & "' ORDER BY datesent DESC"
Set rsMessages = Server.CreateObject("ADODB.Recordset")
rsMessages.Open sql, conn, 3, 3
'Count the amount of new messages
newcount = 0
if not rsMessages.EOF then
rsMessages.Movefirst
do until rsMessages.EOF
if rsMessages("messageread") = False then
newcount = newcount + 1
end if
rsMessages.Movenext
loop
rsMessages.Movefirst
end if
%>
<html>
<head>
<title>Firegamez Community - Inbox</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<font face="arial,helvetica" size=2>
<center>
<table width="550" cellpadding=4 cellspacing=1 border=0 bgcolor="#000000" align="center" height="47">
<tr bgcolor="#F3F3F3">
<font face="arial,helvetica" size=2>
<td align="center" width="559" bgcolor="#FFFFFF" background="images/back.JPG" height="38">
<p align="left">
<img border="0" src="images/firegamez.jpg" width="740" height="91"></td>
</tr>
</table>
<p> </p>
<table width="561" cellpadding=4 cellspacing=1 border=0 bgcolor="#000000" align="right">
<tr>
<th align="center" background="images/backup.JPG" width="515"><font face="arial,helvetica" size=1>
<%=username%>'s inbox - Nya medelanden <%=newcount%>
</font></th>
</tr>
<tr bgcolor="#F3F3F3">
<td align="center" background="images/back.JPG" width="551">
<%if rsMessages.EOF then%></font><font face="Arial" size=2>
<font size="2"><b>Du har inga nya meddelanden</b></font>
<%else
'Display messages
do until rsMessages.EOF%>
</font>
<font face="arial,helvetica" size=2>
<table width="90%" cellspacing=0 cellpadding=2 align="center" border=0 bordercolor="#000000">
<tr>
<td><font face="Arial" size=2><b>Från :</b> <%=rsMessages("sentfrom")%>
</font></td>
</tr>
<font size=2>
<tr>
<td><font size="2" face="Arial"><b>Skickat</b></font></font><font face="arial,helvetica" size=2><font face="Arial" size=2><b>
: <%=rsMessages("datesent")%></b></font></td>
<font face="Arial" size=2>
<td align="right" valign="top" width=125 rowspan=3>
<img src="icons/<%=rsMessages("icon")%>.gif"><br>
</td>
</tr>
</font>
<tr>
<td><font face="Arial" size=2><b>Ämne :</b> <%=rsMessages("subject")%></font></td>
</tr>
<tr>
<td><font face="Arial" size=2><b>Meddelande :</b> <%=rsMessages("message")%></font></td>
</tr>
</table>
<font face="Arial" size=1><b>
<a href="messagecompose.asp?senduser=<%=rsMessages("sentfrom")%>&subject=<%=Server.URLEncode(rsMessages("subject"))%>">
Svara</a> | <a href="messagedelete.asp?messageid=<%=rsMessages("id")%>">
Ta bort</a></b></font><font face="Arial" size=2>
</font>
<hr color="#000000" size=1>
<%rsMessages.Movenext
loop
end if%><font face="Arial" size=2>
</td>
</tr>
</table>
</font>
</font>
</font>
<table width="149" cellpadding=4 cellspacing=1 border=0 bgcolor="#000000" align="left" height="1">
<tr>
<td align="center" width="142" height="2" bgcolor="#98B3C9" background="images/backup.JPG">
<font size="1" face="Arial"><b>Firegamez Community</b></font></td>
</tr>
<tr bgcolor="#F3F3F3">
<td align="center" width="142" height="1" background="images/back.JPG">
<p align="left"><b><font face="Arial"><font size="1"><a href="index.asp">Start</a><%if username <> "" then Response.Write("<br><a href=""inbox.asp"">Inbox</a>") end if%></font><br>
<font size="1"><a href="philboard.asp">Fire Forum</a><br>
Chat<br>
<a href="klotter/klotter.asp">Klotterplank</a><br>
<%if username <> "" then Response.Write("<a href=""signout.asp"">Logga ut</a>") end if%> <br>
</font></font>
<font size="1" face="Arial">
<br>
<a href="inbox.asp">Kolla efter nya meddelanden</a><br>
<a href="messagecompose.asp">Skriv ett meddelande</a></font></b></p>
</td>
</tr>
</table>
</body>
</html>
<%
set rsMessageRead = conn.Execute("UPDATE Messages SET messageread = True WHERE sendto = '" & username & "'")
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
%>
vart ska jag fixa det???
ingen som vet????
Kontrollera så du laddar upp filen till rätt mapp...
Sjutton va ni e duktiga här på webforum! Vad skulle man göra utan er??? :birp
