|
<% ' version 4.May 7,2545 %> <% dim connect, rs, sql, tots, i, j, k, l, nextl set connect = server.createobject("ADODB.Connection") if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\members.mdb")) else if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_ Server.MapPath("\openworld\members.mdb")) else connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("members.mdb")) end if end if %> |