<%
Dim objConn
Set objConn = Server.CreateObject ("ADODB.connection")
objConn.ConnectionString="Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\..\db\dirresources.mdb")
objConn.Open 
Dim objConn1
Set objConn1 = Server.CreateObject ("ADODB.connection")
objConn1.ConnectionString="Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\..\db\pharmacies.mdb")
objConn1.Open 
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "Resources",objConn,2,3, adCmdTable
Dim objRS1, strSQl
strSQL="Select * from pharmacy where status='" & "R" & "'"
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open strSQL,objConn1
While not objRS1.eof
	objRS.Addnew
	objRS("name")=objRS1("Name")
	objRS("address")=objRS1("address")
	objRS("city")=objRS1("city")
	objRS("state")=objRS1("state")
	objRS("country")=objRS1("country")
	objRS("zip")=objRS1("zip")
	objRS("email")=objRS1("email")
	objRS("website")=objRS1("website")
	objRS("tele1")=objRS1("phone1")
	objRS("tele2")=objRS1("phone2")
	objRS("fax")=objRS1("fax")
	objRS("description")=objRS1("misc")
	objRS("Live")="1"
	objRS("CategoryID")="4"
	objRS.update
	objRS1.MoveNext
Wend
objRS.close
Set objRS=nothing
objConn.close
set objConn=Nothing
objRS1.close
Set objRS1=nothing
objConn1.close
set objConn1=Nothing
%>