On error resume next
dim cn,rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../Database/FoodsInns.mdb")
cn.open strConnString
%>
