<%
Response.Expires = -2000
Response.Expiresabsolute = Now() - 20
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"


Dim CN
Set CN = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\data\matrimonial_db.mdb;Jet OLEDB:Database Password=admin#@!;"

 %>