Tomt men ändå inte...

är det ingen som kan hjälpa mig...

okey, har löst det nu så jag fick fram vad jag ville, men ändå inte. Jag har ett fält i db:n som heter RE, det har värdet Nej om man startar en ny tråd, men när man svarar så fylls ett Ja i på svaret. Det jag vill göra är att hämta alla inlägg med samma id och med fältet RE i fyllt av ett Ja, men det kommer inte ut något. varför?

<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")

sql = "Select * From add_forum WHERE svarid = '" & Request.Querystring("id") & "'"
sql2 = "select * from add_forum where orginal = 'Ja' AND id = " & Request.Querystring("id") & ""
sql3 = "select * from medlemmar"

rs.cursorlocation = 3
rs2.cursorlocation = 3
rs3.cursorlocation = 3

rs.CacheSize = 5
rs.Open sql, Databas, 3, 1
set rs2 = Databas.execute(sql2)
set rs3 = Databas.execute(sql3)

rs.PageSize = 10 
rs.AbsolutePage = nextPage

X = 0
response.write "<table width=480><tr><td><span class=urubrik><a href=/forum2/default.asp>Webforum</a> >> <a href=/forum2/asp/default.asp>Active Server Pages</a> >> "& rs2("rubrik") &"</span><br></td></tr>"
response.write "<tr><td><b>Inlägg:</b><br> "& rs2("inlagg") &"<br><hr size=1 color=#000000><br><b>Svar:</b><br></td></tr></table>"
If rs("re") = "Ja" then
DO UNTIL rs.eof OR rowCount = rs.PageSize
rowCount = rowCount + 1
if bgcolor = "#FFFFFF" then
bgcolor = "#EFEFEF"
else
bgcolor = "#FFFFFF"
end if
response.write "<table width=480 cellspacing=3 bgcolor="& bgcolor &"><tr><td width=100 valign=top>"& rs("anvandarnamn") &"</td><td width=380 valign=top><a href="& rs3("hemsida") &"><img src=home.gif border=0></a>&nbsp;&nbsp;<a href=mailto:"& rs3("mail") &"><img src=email.gif border=0></a>&nbsp;&nbsp;<a href=/medlemmar/profil.asp><img src=profile.gif border=0></a>&nbsp;&nbsp;<a href=/medlemmar/pm.asp><img src=sendpm.gif border=0></a></td></tr></table>"
response.write "<table width=480 cellspacing=3 bgcolor="& bgcolor &"><tr><td width=100 valign=top>Inlägg: "& rs3("antal_inlagg") &"</td><td width=350 valign=top>"& rs("inlagg") &"</td>" &_
"<td width=50 valign=top>"& rs("datum") &"</td></tr></table>"
rs.movenext
loop
IF rs.PageCount > 1 THEN 

FOR a = 1 to rs.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write "<a href='read.asp?nextPage="& a &"&id=" & Request.Querystring("id") & ">"& a &"&nbsp;</a>"
ELSE 
Response.Write "&nbsp;"& a

END IF 
NEXT 
END IF
end if
%>
<%
If request.form("inlagg") = "" then
%>
<form name="formular" method="POST" action="read.asp?id=<%=request.querystring("id")%>">
<b>Svara:</b><br>
<textarea rows="5" name="inlagg" cols="30"></textarea>
<input type="hidden" name="av" value="<%=Session("anvandarnamn")%>">
<input type="hidden" name="svarid" value="<%=Request.Querystring("id")%>">
<br>
<input type="submit" value="Skicka" name="B1">
</form>
<%
else
Datum = Now
SQL4 = "INSERT INTO add_forum ([datum], [inlagg], [anvandarnamn], [svarid], [re]) VALUES(#"& Datum &"#,'" & Request.Form("inlagg") & "','" & Session("anvandarnamn") &"','" & Request.Form("svarid") &"', 'Ja')"
SQL5 = "UPDATE medlemmar SET antal_inlagg = antal_inlagg +1 WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
Databas.Execute(SQL4)
Databas.Execute(SQL5)
end if
rs.CLOSE
rs2.close
Databas.CLOSE
Set rs = nothing
Set rs2 = nothing
Set Databas = nothing
%>

men snälla, kan någon hjälpa mig? :)

G8: :e :e :e

Sorry crisse6, kan tyvärr ej hjälpa dig.... :h

men det är klart att ni kan! ni är ju proffs på sånt här ;)

Jag har ett fält i db:n som heter RE

sql2 = "select * from add_forum where orginal = 'Ja' AND id = " & Request.Querystring("id") & ""

Stämmer detta?