<%

Function ConnectSQL(dbName, dbServer, dbUser, dbPwd)
	Dim Conn
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.ConnectionTimeout = 15
	Conn.CommandTimeout = 30
	Conn.Open "DRIVER=SQL Server;SERVER=" & dbServer & ";UID=" & dbUser & ";PWD=" & dbPwd & ";DATABASE=" & dbName
	Set ConnectSQL = Conn
End Function

Function ConnectSQLNT(dbName, dbServer)
	Dim Conn, hostname
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.ConnectionTimeout = 15
	Conn.CommandTimeout = 30
	hostname = lcase(request.servervariables("HTTP_HOST"))
	if hostname = "ashtonwoodsdevelop.e-net.com" then
	  Conn.Open "Driver=SQL Server;Server=" & dbServer & ";DATABASE=ashtonwoodsdevelop"
	else
	  Conn.Open "Driver=SQL Server;Server=" & dbServer & ";DATABASE=" & dbName
	end if
	Set ConnectSQLNT = Conn
end Function

Function ConnectSQLNTOLE(dbName, dbServer)
    'This is currently not functioning
	Dim Conn
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.ConnectionTimeout = 15
	Conn.CommandTimeout = 30
	if hostname = "ashtonwoodsdevelop.e-net.com" then
	  Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ashtonwoodsdevelop;Data Source=" & dbserver 
    else
	  Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & dbName & ";Data Source=" & dbserver 
	'Conn.Open "Provider=SQLOLEDB;Data Source=" & dbServer & ";Initial Catalog=" & dbName 
	end if
	Set ConnectSQLNTOLE = Conn
end Function

Function ConnectJetdb(dbPath)
	Dim Conn
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.CommandTimeout = 300
	
	' Old ODBC call commented out 12/6/99 by SLP 3:30pm
	'Conn.Open "DBQ=" & dbPath & ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"	
	'conn.open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=" & dbPath & ";Mode=Share Deny None;Extended Properties="";COUNTRY=0;CP=1252;LANGID=0x0409"";Locale Identifier=1033;Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Global Partial Bulk Ops=2;User Id=Admin;"
	
	conn.ConnectionTimeout=15
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & dbPath & ";Mode=Share Deny None;Extended Properties="""";Locale Identifier=1033;Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
	Set ConnectJetdb = Conn
End Function

Function OpenRecordset(Conn, sql)
	Dim cmd
	Dim rs
	Set cmd = Server.CreateObject("ADODB.Command")
	cmd.CommandType = 1
	Set cmd.ActiveConnection = Conn
	cmd.CommandText = sql
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open cmd, , 1, 2
	Set OpenRecordset = rs
End Function

function checkNull(valueToCheck, ReplacementValue)
	if  Len(valuetocheck & "") = 0  then
		checkNull = ReplacementValue
	else
		checkNull = ValueToCheck
	end if
end function
%>