so ya don't want to show a comment.
first ya got find it! (thats the hard bit)
mods name |
comments |
<%
dim look_for
look_for = Request.Form("look_for")
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "SELECT mods_list.name AS mod_name, " & _
"mods_comments.id_mod as id_mod, " & _
"mods_list.nmb_comments as comments " & _
"FROM mods_comments INNER JOIN " & _
"mods_list ON " & _
"mods_comments.id_mod = mods_list.id " & _
"GROUP BY mods_comments.id_mod, mods_list.name, " & _
"mods_list.nmb_comments " & _
"ORDER BY mod_name"
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if (tigRS.EOF) then
%>
Nothing in the database to list atm?
is that right?
Get in touch with tigger@ebom.org if there is a serious problem
<%
end if
dim id
do while not tigRS.EOF
id = tigRS("id_mod")
%>
<%=tigRS("mod_name")%> |
<%=tigRS("comments")%> |
<%
tigRS.MoveNext
loop
tigRS.close
tigCON.close
%>