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