Tjek af ID = ID :)

Det er til et fora..

Hold kæft hvor er det sort. Kan folk da ikke forholde sig til det de vil have svar på.
OK jeg svarer.

set oConn = server.createobject("ADODB.Connection")
oConn.open application("Connectionstring")
SQL = "Select * from forum where replyID = " &Request.querystring("ID")
set RES = oConn.execute(SQL)
If NOT RES.EOF then
  Response.write "Den er i vinkel"
else
  response.write "Jegerligesågodtilatsvaresomfolkertilatspørge"
End If

Vi bliver sgu nødt til at vide noget mere ;-)))

HVA HAR JEG GJORT??

Well, det var ikke det jeg bad om. Hvis der er ikke er et svar, skal den skrive. "Der er intet svar. Klik {url}her{/url} hvis du vil skrive et svar!"

Got it?

Nå ok...

Altså hva forstår du ikke?

Det hele.
"If ID = ReplyID = Yes then "Response.Write("ID=ReplyID") ORder by Dato"
Hvad siger den sætning?

IF ID = ReplyID Then skriver den alt i db'en hvor ID=ReplyID, i arrangeret af Dato. Men hvis ID 1 = Reply id=0 så skriver den bare at der ikke er nogle indlæg.

as

det er noget være rod....Har du et felt der hedder "ID 1"??? Lav det om til "ID1". Bagefter brug den her kode:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
SQL = "SELECT * FROM Forum"
Set rs = Server.CreateObject("ADODB.Connection")
rs.Open sql, conn, 1, 3
%>
<%
if rs("replyID") = "1" then 'hvis der kommer fejl her så slet "erne
%>
Der er intet svar. Klik {url}her{/url} hvis du vil skrive et svar!"
<%
end if

if rs("replyID") = "0" then 'hvis der kommer fejl her så slet "erne

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
SQL = "SELECT * FROM Forum"
Set rs2 = Server.CreateObject("ADODB.Connection")
rs2.Open sql, conn, 1, 3
rs2.AddNew
rs2("Felt01") = "Tekst01" ' udskift den her med fx Request.QueryString eller Request.Form
rs2.Update
' Skriv mugligvis Response.Redirect("dinside.asp") her
end if
%>

--------------------------------
MVH
Mr.Meincke