<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_online" sql = "SELECT * FROM gaeste where gruppe='nms' and (info like '%%" & Request("search") &"%%' " & _ " or name like '%%" & Request("search") &"%%') " & _ "order by id desc" 'response.write(sql) 'Set RS = Conn.Execute(sql) Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql, Conn, 1,1 rc = RS.RecordCount %>

Gäste gefunden : <%=rc%>

<% Do While Not RS.EOF %> <% RS.MoveNext Loop RS.Close Conn.Close %>

" >löschen

<%=RS("datum")%> <%=RS("info")%> <%=RS("name")%>,<%=RS("vorname")%> "><%=RS("email")%>