<% 'Reply : Available / Not Available option explicit dim conn dim DSNtemp dim rs dim ssql '**************************************************** 'database connection string setting DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=DSNtemp & "DBQ=" & server.mappath("../db/dbServer.mdb") DSNtemp=DSNtemp & ";Password=790527145433" set conn = server.createobject("adodb.connection") conn.Open DSNtemp ssql = "select * from tbl_store where store_name = '" & Request.Form("storename") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if rs.EOF then Response.Write "Available" else Response.Write "Not Available" end if rs.Close conn.close set rs = nothing set conn = nothing %>