54sf54

css

<% ' Mehmet Ata [www.ancestor.tr.cx] ' andpaur@yahoo.com %>

<%if request.form("kelime")<>"" then kelime=request.form("kelime") set bag = server.createobject ("adodb.connection") bag.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath ("ancestor.mdb") set rs = server.createobject ("adodb.recordset") sql = "Select * from a where adi" sql= sql & " like '%"&kelime&"%'" rs.open sql,bag,1,3 do while not rs.eof%> <%rs.movenext loop rs.close set rs = nothing bag.close set bag = nothing end if%>

" style="text-decoration: none"><%=rs("adi")%>

Powered ßy Ancestor