<% dim objConn, strConn, sqlString Set objConn=Server.CreateObject("ADODB.Connection") objConn.Mode=3 strConn= "filedsn=" & Server.MapPath("http://www.4-sexualhealth.com/bhdb.dsn") strConn=strConn & ";DBQ=" & Server.MapPath("http://www.4-sexualhealth.com/bhdb.mdb") objConn.Open strConn %>