<% ' 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
%>