<!--#include file=data.asp-->
<!--#include file=../../conn.asp-->
<%
Dim connsmss,connsmss3

On Error Resume Next
Set connsmss = Server.CreateObject("ADODB.Connection")
connsmss.open "driver={microsoft access driver (*.mdb)};uid=#twapp_ydzqbqsy1;pwd=520ydzq;dbq=" & Server.MapPath(""&const_AccessDatabase&"")
	
	Set connsmss3 = Server.CreateObject("ADODB.Connection")
connsmss3.open "driver={microsoft access driver (*.mdb)};uid=#twapp_ydzqbqsy1;pwd=520ydzq;dbq=" & Server.MapPath(""&const_SMSDatabase&"")




%>