<%if request("r")=0 then%> <%else%> <% end if%>

		" response.write "" response.write "       <% dim fid,id dim name,email,subject,mesdate,mesbody,tid,tl dim rs_order,image,parentid,sql1,urHereImg,idFromq image="" urHereImg=" (You Are Here)" 'take forum id number frm querystring fid=request("fid") 'take message id from querystring id=request("id") idFromq=request("id") 'takes thread_id tid=request("tid") call headers() sql="select * from mestbl WHERE forumid = " & fid & " and id = " & id &" order by id" 'connect to db call connect() rs.open sql,conn name=rs("name") email=rs("email") subject=rs("subject") mesdate=rs("mesdate") mesbody=replace(replace(rs("mesbody"),"''","'"),vbCrLf, " ") country=rs("country") response.write "  Show Message " response.write " Name: " & "" & name & " " & " Subject: " & subject & "  Country:" & country & " " & " Date: " & mesdate & " " & mesbody & "" response.write " " response.write "Reply to This Message | Back | Home " response.write "

" set rs_order = server.createobject("adodb.recordset") if tid=0 then sql = "select * from mestbl where id="& id &" and forumid=" & fid & "" else sql = "select * from mestbl where id="& tid &" and forumid=" & fid & "" end if rs_order.open sql,conn parentID=rs_order("id") subject=rs_order("subject") fid=rs_order("forumid") tid=rs_order("thread_id") mesdate=rs_order("mesdate") name=rs_order("name") rs_order.close set rs_order = nothing call close() %>         <%if request("r") = 0 then%>   <%else%> <%end if%>