--- title: "konstigt fel!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/53064-konstigt-fel" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Firegamez.com" published: "2002-09-12T16:11:08.000Z" updated: "2002-09-13T18:33:00.000Z" replies: 9 views: 288 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/53064-konstigt-fel" --- # konstigt fel! ## #1 — Firegamez.com, 2002-09-12T16:11Z 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! Permalänk: https://www.webforum.nu/p/53064 ## #2 — Pace, 2002-09-12T16:12Z På rad 146 i filen gb.asp är felet. Eller så kan du visa kod. Permalänk: https://www.webforum.nu/p/781597 ## #3 — Firegamez.com, 2002-09-12T16:13Z tyvärr så finns det bara 145! ;) Permalänk: https://www.webforum.nu/p/781600 ## #4 — Firegamez.com, 2002-09-12T16:13Z 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 %> <% 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 %> Firegamez Community - Inbox

 

<%=username%>'s inbox - Nya medelanden <%=newcount%>
<%if rsMessages.EOF then%> Du har inga nya meddelanden <%else 'Display messages do until rsMessages.EOF%>
Från : <%=rsMessages("sentfrom")%>
Skickat : <%=rsMessages("datesent")%> .gif">
Ämne : <%=rsMessages("subject")%>
Meddelande : <%=rsMessages("message")%>
&subject=<%=Server.URLEncode(rsMessages("subject"))%>"> Svara | "> Ta bort
<%rsMessages.Movenext loop end if%>
Firegamez Community

Start<%if username <> "" then Response.Write("
Inbox") end if%>
Fire Forum
Chat
Klotterplank
<%if username <> "" then Response.Write("Logga ut") end if%>

Kolla efter nya meddelanden
Skriv ett meddelande
<% set rsMessageRead = conn.Execute("UPDATE Messages SET messageread = True WHERE sendto = '" & username & "'") rsMessages.close set rsMessages = nothing conn.close set conn = nothing %> ``` Permalänk: https://www.webforum.nu/p/781601 ## #5 — toha, 2002-09-12T16:16Z Kan bero på server-cachning. Kan hindras genom att man skriver: Response.Expires = -1 Permalänk: https://www.webforum.nu/p/781604 ## #6 — Firegamez.com, 2002-09-12T16:18Z vart ska jag fixa det??? Permalänk: https://www.webforum.nu/p/781605 ## #7 — Firegamez.com, 2002-09-12T17:26Z ingen som vet???? Permalänk: https://www.webforum.nu/p/781661 ## #8 — @nders, 2002-09-12T17:28Z Kontrollera så du laddar upp filen till rätt mapp... Permalänk: https://www.webforum.nu/p/781663 ## #9 — toha, 2002-09-13T07:31Z Skriv Response.Expires = -1 i början på sidan. ex: ``` <% Option Explicit Response.Expires = -1 ``` Permalänk: https://www.webforum.nu/p/784829 ## #10 — Firegamez.com, 2002-09-13T18:33Z Sjutton va ni e duktiga här på webforum! Vad skulle man göra utan er??? :birp Permalänk: https://www.webforum.nu/p/785363 --- Tråden på webben: https://www.webforum.nu/amne/asp/53064-konstigt-fel