Undtagelse opstod igen

Kan du ikke bare skrive hvilken undtagelse vi snakker om? Og så vise de (+/- 10) liner der skaber undtagelsen.

okay, så poster jeg hele scriptet, der er ikke så meget andet at gøre

<!--#include file="includes/functions.asp"-->
<!--#include file="includes/inc_top.asp"-->
<%
    '------------------------------
    '-------- FORUM TREADS --------
    '------------------------------
    Set treadstemp = Server.CreateObject("ADoDB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/clan_ld_db.mdb")
    treadstemp.open DSN
    strSQL = "SELECT * FROM [Forums] WHERE (ID = " & Request("ID") & ")"
    Set rsTreads = treadstemp.Execute(strSQL)
    strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ") ORDER BY TID DESC"
    Set rsTreads = treadstemp.Execute(strSQL)
   
    If Not (rsTreads.BOF Or rsTreads.EOF) Then
       
        Response.Write "<td align=""center"" valign=""top"" height=""135"" width=""425"" background=""design/Middle.jpg"">"
        Response.Write "<font color=""#333333"" face=""verdana"" size=""2""><br><br><br><br><br><br><br><br><br><br><br><b>Forum</b></font></td>"
        Response.Write "<td align=""left"" valign=""top"" height=""135"" colspan=""3"">"
        Response.Write "<img src=""design/Right.jpg"" width=""103"" height=""199""></td></tr>"
        Response.Write "<tr>"
        Response.Write "<td align=""left"" valign=""top"" width=""31"">&nbsp;</td>"
        Response.Write "<td align=""left"" valign=""top"" width=""16""><img src=""gIf/pixel.gIf"" width=""1"" height=""1""></td>"
        Response.Write "<td align=""left"" valign=""top"" background=""gIf/dims2B.gIf"" width=""12"">&nbsp;</td>"
        Response.Write "<td align=""left"" valign=""top"" width=""425"" bgcolor=""C5C5C5""><br>"
        '----------------------------
        '-------- FORUM MENU --------
        '----------------------------
        Response.Write "<table border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"" width=""425""><tr><td>"       
        Response.Write "<table border=""0"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""100%"" valign=""top"" align=""right""><a href=""register.asp"">Register</a> - <a href=""forum_login.asp"">Login</a> - <a href=""forum_members.asp"">Members</a> - <a href=""forum_help.asp"">Help</a></font></td>"
        Response.Write "</tr></table></td></tr></table>"
        SQLTREADS = "SELECT COUNT(TID) AS CountTreads FROM [F_Treads] WHERE (FID = "& rsTreads("FID") &")"
        Set rsCountTreads = treadstemp.execute(SQLTREADS)
'        SQLREPLIES = "SELECT COUNT(RID) AS CountReplies FROM [F_Replies] WHERE (FID = "& rsTreads("FID") &")"
'        Set rsCountReplies = treadstemp.execute(SQLREPLIES)
        Response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table style=""border: 1 solid #333333"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""100%"" valign=""top""><font color=""#333333""><b>Treads: "& rsCountTreads("CountTreads") &"</b></font></td>"
        Response.Write "</tr></table></td></tr></table><br>"
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""50%"" align=""right""><a href=""new_tread.asp?FID="& rsTreads("FID") &""">New Tread</a> - <a href=""forum.asp"">Overview</a></td></tr>"
        Response.Write "</table></td></tr></table>"
        '--------------------------------
        '-------- TREAD OVERVIEW --------
        '--------------------------------
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table style=""border: 1 solid #333333"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""49%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Topics</b></font></td>"
        Response.Write "<td width=""20%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Author</b></font></td>"
        Response.Write "<td width=""20%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Date</b></font></td>"
        Response.Write "<td width=""21%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Replies</b></font></td>"
        Response.Write "</tr></table></td></tr></table>"

        Do While Not rsTreads.EOF
           
            strSQL = "SELECT COUNT(*) AS CountReplies FROM [F_Replies] WHERE (TID = " & rsTreads("TID") & ")"
            Set rsCountTreads = treadstemp.Execute(strSQL)

            Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
            Response.Write "<table style=""border-left: 1 solid #333333; border-right: 1 solid #333333; border-bottom: 1 solid #333333"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
            Response.Write "<td width=""49%"" style=""border-right: 1 solid #333333"" valign=""top""><a href=""show_treads.asp?TID="& rsTreads("TID") &"&ID=" & rsTreads("FID") & """>" & RemoveHTML(rsTreads("T_Topic")) & "</a></td>"
            Response.Write "<td width=""20%"" style=""border-right: 1 solid #333333"" align=""center"" valign=""top"">"& rsTreads("T_Alias") &"</td>"
            Response.Write "<td width=""20%"" style=""border-right: 1 solid #333333"" align=""center"" valign=""top"">"& FormatDate(rsTreads("T_Date"), 2) &"</td>"
            Response.Write "<td width=""21%"" align=""center"" valign=""top"">"& rsCountTreads("CountReplies") &"</td>"
            Response.Write "</tr></table></td></tr></table>"
            rsTreads.MoveNext
        Loop
        Set showtemp = Server.CreateObject("ADoDB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/clan_ld_db.mdb")
        showtemp.open DSN
        strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ") ORDER BY TID DESC"
        Set rsTreadL = showtemp.Execute(strSQL)
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400"">"
        Response.Write "<tr><td width=""100%"" align=""right""><a href=""new_tread.asp?FID="& rsTreadL("FID") &""">New Tread</a> - <a href=""forum.asp"">Overview</a></td></tr>"
        Response.Write "</table></td></tr></table><br>"
        treadstemp.Close : Set treadstemp = Nothing
    Else
        Set treadstemp = Server.CreateObject("ADoDB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/clan_ld_db.mdb")
        treadstemp.open DSN
        strSQL = "SELECT * FROM [Forums] WHERE (ID = " & Request("ID") & ")"
        Set rsTreads = treadstemp.Execute(strSQL)
        strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ") ORDER BY TID DESC"
        Set rsTreads = treadstemp.Execute(strSQL)
        Response.Write "<td align=""center"" valign=""top"" height=""135"" width=""425"" background=""design/Middle.jpg"">"
        Response.Write "<font color=""#333333"" face=""verdana"" size=""2""><br><br><br><br><br><br><br><br><br><br><br><b>Forum</b></font></td>"
        Response.Write "<td align=""left"" valign=""top"" height=""135"" colspan=""3"">"
        Response.Write "<img src=""design/Right.jpg"" width=""103"" height=""199""></td></tr>"
        Response.Write "<tr>"
        Response.Write "<td align=""left"" valign=""top"" width=""31"">&nbsp;</td>"
        Response.Write "<td align=""left"" valign=""top"" width=""16""><img src=""gIf/pixel.gIf"" width=""1"" height=""1""></td>"
        Response.Write "<td align=""left"" valign=""top"" background=""gIf/dims2B.gIf"" width=""12"">&nbsp;</td>"
        Response.Write "<td align=""left"" valign=""top"" width=""425"" bgcolor=""C5C5C5""><br>"
        Response.Write "<table border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"" width=""425""><tr><td>"       
        Response.Write "<table border=""0"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""100%"" valign=""top"" align=""right""><a href=""register.asp"">Register</a> - <a href=""forum_login.asp"">Login</a> - <a href=""forum_members.asp"">Members</a> - <a href=""forum_help.asp"">Help</a></font></td>"
        Response.Write "</tr></table></td></tr></table>"
        Response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table style=""border: 1 solid #333333"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""100%"" valign=""top""><font color=""#333333""><b>Treads: 0</b></font></td>"
        Response.Write "</tr></table></td></tr></table><br>"
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        'I nederstående linje kommer fejlen
        Response.Write "<td width=""50%"" align=""right""><a href=""new_tread.asp?FID="& rsTreads("FID") &""">New Tread</a> - <a href=""forum.asp"">Overview</a></td></tr>"
        Response.Write "</table></td></tr></table>"
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table style=""border: 1 solid #333333"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""49%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Topics</b></font></td>"
        Response.Write "<td width=""20%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Author</b></font></td>"
        Response.Write "<td width=""20%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Date</b></font></td>"
        Response.Write "<td width=""21%"" align=""center"" valign=""top"" bgcolor=""#E8E8E8""><font color=""#333333""><b>Replies</b></font></td>"
        Response.Write "</tr></table></td></tr></table>"
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table style=""border-left: 1 solid #333333; border-right: 1 solid #333333; border-bottom: 1 solid #333333"" align=""center"" border=""0"" cellpadding=""1"" cellspacing=""0"" width=""400""><tr>"
        Response.Write "<td width=""100%"" align=""center"">No posts in this forum yet!</td></tr></table></td></tr></table>"
        Set showtemp = Server.CreateObject("ADoDB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/clan_ld_db.mdb")
        showtemp.open DSN
        strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ")"
        Set rsTreadL = showtemp.Execute(strSQL)
        Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""425""><tr><td>"
        Response.Write "<table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400"">"
        'Hvis jeg sletter linjen, hvor fejlen kommer første gang, så kommer fejlen her igen
        Response.Write "<tr><td width=""100%"" align=""right""><a href=""new_tread.asp?FID="& rsTreadL("FID") &""">New Tread</a> - <a href=""forum.asp"">Overview</a></td></tr>"
        Response.Write "</table></td></tr></table><br>"
        treadstemp.Close : Set treadstemp = Nothing
    End If
%>
<!--#include file="includes/inc_footer.asp"-->

der står i scriptet for fejlen kommer

jo, bare der hvor fejlen sker

Det hjælper ikke meget, da den linie hvor fejlen kommer, bruger jeg længere oppe i scirptet (før else) og der virker det fint

hvad er fejlmeddelelse... ellers kan vi jo bruge en uge på at kigge koden igennem ;-)

Der kommer ikke anden fejlmelding end den jeg har skrevet...det skriver kun undtagelse opstod

oki prøv at udkommentere dine sql kald og skyd kun denne afsted

treadstemp.Execute("SELECT * FROM Forums)

har jeg prøvet og der viser den også siden, men linket kommer ikke til at virke ordenligt, den henviser bare til FID=1, ligemeget hva forum jeg er inde under

oki smid lige en

If rsTreadL.EOF Then
  response.write "ingen fundet"
End If

efter der hvor du kalder rsTreadL til at bygge et link

Hvis du ikke har set det, så har jeg sat et else ind dvs. at den sidste del af koden (efter else), skal være til udskrive at der ikke er nogle posts

oki du får en fejl fordi der er et eller andet galt med

strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ") ORDER BY TID DESC"
Set rsTreads = treadstemp.Execute(strSQL)

1. Indeholder Request("ID") en værdi eller kan den være blank?
2. kan du umiddelbart efter du smider ovenstående SQL afsted lave en response.write rsTreads("FID") ?

hov står FID i basen som tekst eller tal?

Jeg ved at strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ") ORDER BY TID DESC" virker 100%, da den bliver brugt længere oppe i scriptet, FØR else, så det må have et eller andet med det else at gøre, som den ikke helt kan finde ud af.

det er faktisk næsten aller øverst at jeg bruger den første gang

FID står som tal

hmm kigger lige igen i koden ... (selvom den er lannnng)

ja ved det, der var nok derfor at jeg tilbød at sende koden, til den der ville hjælpe...du skal nok få nogle flere point, hvis du løser mit problem :)

hvorfor smider du (næsten) det samme sql afsted to gange i rap her?

    Else
        Set treadstemp = Server.CreateObject("ADoDB.Connection")
        DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/clan_ld_db.mdb")
        treadstemp.open DSN
        strSQL = "SELECT * FROM [Forums] WHERE (ID = " & Request("ID") & ")"
        Set rsTreads = treadstemp.Execute(strSQL)
        strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ") ORDER BY TID DESC"
        Set rsTreads = treadstemp.Execute(strSQL)

ved jeg heller ik, men nu er det ihvertifald fjernet, selvom, det ikke gav nogle forskel

oki

prøv lige at lave en response.write rsTreads lige efter du åbner for connectionen... og måske skære lidt ned i SQL´et så du kan isolere problemet

okay, samme fejl

1. der er en EOF i basen eller..
2. din base er fucked up

prøv lige at skær din SQL ned styk for styk og se hvor meget du få kan få fra basen uden at det kokser... hvis du ikke gør det finder du sq aldrig fejlen

Jeg kan skære SQL'en ned til strSQL = "SELECT * FROM [F_Treads] WHERE (FID = " & Request("ID") & ")" uden at der sker nogen forskel

dvs så får du ikke en fejl? - men hvis du påfører det du havde før får du en fejl?

nej nej, hvis jeg fjerner ORDER BY TID DESC fra SQL'en kommer fejlen stadig, men jeg hvis jeg også fjerner WHERE (FID = " & Request("ID") & "), så virker siden, men som sagt så virker linket ikke

ok får du fejl hvis du skriver

"SELECT * FROM [F_Treads] WHERE (FID = " & Cint(Request("ID")) & ")"

ja desværre, samme fejl

lav lige en response.write strSQL før du executer SQL´et så jeg kan se det skide SQL *GGG*

Er næsten lige så træt af det som dig *GGGG*

hva mener du ? :)

At du udskriver strSQL så du ser hvad det er du sender ned i basen... Hvis nu f.eks. at Request("ID") sjovt nok ikke gav det du gik ud fra... Det gør jeg altid og derigennem fanger MANGE SQL fejl...

alt bare skrive Response.Write ""& strSQL &"" lige før at jeg executer strSQL ?

ja eller response.write strSQL

så vi lige ser hvad der helt præcist bliver smidt afsted

Den ignorere bare linien og kommer med samme fejlmelding igen :/

Jeg er lige igang med at uploade siden, for at se om det er mit PWS der ikke kører som det skal

jeg har uploade det og der udskriver den fejlen på SQL'en

http://www.anti-borneporno.dk/limitless/treads.asp?ID=3 <-- der kan du se det

nå, men du er jo nok blevet træt af det og det kan jeg egentligt godt forstå, men hvis du lige skriver et svar, så skal du få dine point, så må jeg jo finde ud af det på en anden måde.

k