<%@ Language=VBScript %><% Option Explicit %><% Response.ContentType = "text/xml" %> <% response.expires=-1000 dim conn set conn=CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ server.MapPath("data.mdb") & ";" dim ara ara=left(request("ara"),10) if ara<>"" then ara= " WHERE KitapAdi LIKE '%" & ara & "%'" dim rs set rs=CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM Kitaplar" & ara, conn Do While Not rs.EOF Response.Write "0" & _ "" & rs("Kod") & "" & _ "" & rs("KitapAdi") & "" & _ "" & rs("Yazar") & "" & _ "" & rs("Yayinevi") & "" & _ "" & rs("Ceviren") & "" rs.MoveNext Loop rs.Close conn.close set rs=nothing set conn=nothing %>