<% ' version 4.May 7,2545 %>
<%
connect.close
dim connectsubj
if (len(request.querystring("fsubj")) < 2) then
  connectsubj = "qzynbcom12"
else 
  connectsubj = request.querystring("fsubj")&request.form("fsubj")
end if  
if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
  connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\"& connectsubj &".mdb"))
else   
  if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
    connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
    Server.MapPath("\openworld\"& connectsubj & ".mdb"))
  else   
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath( connectsubj & ".mdb"))
  end if
end if
%>