Comments

<% if request("p")&""<>"" then response.write(request("p")) name=request("p") name=replace(name,"'","''") idstr="" set rs = ExecSQLGet("select * from visitors where status=1 and property like '%"&name&"%'") ' response.write("select * from visitors where status=1 and property like '%"&name&"%'") if not rs.eof then dim main While Not rs.EOF main= "

Name

"& rs("fname") & "

E-mail

" & rs("mail") & "

Comments

" & rs("comments") & "


" Response.Write main rs.MoveNext Wend end if set rs = ExecSQLGet("select * from visitors where status=1 and (property<>'"&name&"' or isnull(property))") 'response.write("select * from visitors where status=1 and (property <> '"&name&"' )") if not rs.eof then While Not rs.EOF main= "

Name

"& rs("fname") & "

E-mail

" & rs("mail") & "

Comments

" & rs("comments") & "


" Response.Write main rs.MoveNext Wend end if else set rs = ExecSQLGet("select * from visitors where status=1") if not rs.eof then While Not rs.EOF main= "

Name

"& rs("fname") & "

E-mail

" & rs("mail") & "

Comments

" & rs("comments") & "


" main= rs("fname") & ";" & rs("mail") & ";" & rs("comments") & "
" Response.Write main rs.MoveNext Wend end if end if %>