Streamline ASP Database Connectivity programs

<%
' Option Explicit
Dim startime,conn,connstr,db,rs,rs_s,rs_s1
Startime=timer ()
db= "Bbhtgl/%^&$%/#.mdb"
Set conn = Server.CreateObject ("ADODB. Connection ")
Connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath ("&db&")
Conn. Open ConnStr

Database Tutorial Connection Code

  set Rs_2=server. CreateObject ("Adodb.recordset")
  rs_2.open "SELECT * from System", conn,1,1
  if not rs_2. EOF then
   banquan=rs_2 ("Banquan")
   beian=rs_2 ("Beian")
    zzywz=rs_2 ("Zzywz")
   kfqq=rs_2 ("QQ")
   kfemail=rs_2 ("email")
   kftel=rs_2 ("tel")
   kfdpdz=rs_2 ("Dpdz")
   kfww=rs_2 (" WW ")
                         shuchu=rs_2 ("Shuchu")
      fang=rs_2 (" Fang ")
  end if 
  rs_2.close
  set rs_2=nothing
%>

<% url= "http://" & Request.ServerVariables ("Http_host") & Mid (request.servervariables ("url"), 1, InStrRev (Request.ServerVariables ("URL"), "/")
Homeurl=url
Session ("Homeurl") =homeurl%>