%aspopen%%

'connections for main db
Sub dataconn()
	Dim sConnection
	sConnection = "driver={PostgreSQL};" &_
	"server=localhost; PORT=5432; database=netaccounting; uid=%polarisuser%; pwd=%polarispassw%"
	oConn.Open(sConnection)
End Sub

Sub dataconn2()
	oConn2.provider = "MSDASQL.1"
	sConnection2 = "Driver={Microsoft Visual FoxPro Driver};" & _
   				   "UID=;SourceDB=" & Server.Mappath("../")  & ";SourceType=DBF;"
	oConn2.Open(sConnection2)
End Sub
endvar = "&endvar=" & uautoid
%%aspclose%
<!--hgaspinclude -->