<%
dim FO, fpath
set FO = Server.CreateObject("Scripting.FileSystemObject")
fpath = FO.GetParentFolderName(Request.ServerVariables.Item("PATH_TRANSLATED")) & "/quarry1.mdb"
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&fpath&";User ID=;Password=;"
strsql = "SELECT * FROM [querry] WHERE "
set st = request.querystring("start")
set en = request.querystring("end")
if st = "" then
st = "A"
en = "A"
end if
for i = asc(st) to asc(en)
strsql = strsql + "(q LIKE '" + chr(i) + "%') OR "
next
strsql = strsql + "1 = 0 ORDER BY q "
set ser = Request.querystring("search")
if ser <> "" then strsql = "SELECT * FROM [querry] WHERE q LIKE '%" + ser + "%'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 3, 1
pc = ""
%>
Iran Quarries
