<%
'	^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'	File: /Inc/InitDb.asp
'	Author: Steve Wilding
'	Purpose: To Inititialize a connection to Davies database.
'	^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Dim DB

Sub OpenConnection1
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionTimeout = Application("Connection1_ConnectionTimeout")
DB.CommandTimeout = Application("Connection1_CommandTimeout")
DB.Open Application("Connection1_ConnectionString"), Application("Connection1_RuntimeUserName"), Application("Connection1_RuntimePassword")
End Sub %>

<% Sub OpenConnection2
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionTimeout = Application("Connection2_ConnectionTimeout")
DB.CommandTimeout = Application("Connection2_CommandTimeout")
DB.Open Application("Connection2_ConnectionString"), Application("Connection2_RuntimeUserName"), Application("Connection2_RuntimePassword")

End Sub %>

<% Sub OpenConnection3
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionTimeout = Application("Connection3_ConnectionTimeout")
DB.CommandTimeout = Application("Connection3_CommandTimeout")
DB.Open Application("Connection3_ConnectionString"), Application("Connection3_RuntimeUserName"), Application("Connection3_RuntimePassword")

End Sub %>


<% Function dbReplace (text)
	If Trim(text)<>"" then
		holder=Replace(text,"``","&#34;")
		holder = Replace(holder,"""","&#34;")
		dbReplace = Replace(holder,"'","&#39;")
	Else
		dbReplace=text
	End If
	
End Function %>


<% Function CheckNull (Field)
	If Request.Form (Field) = "" then
		CheckNull = "Null"
	Else 
		CheckNull = dbReplace(Request.Form(Field))
	End IF
End Function %>
<% 
Function FormatPhone (Number)
	If Left (Number,1) = 1 then
		FormatPhone = "1 (" & Mid(Number,2,3) & ") " &Mid(Number,5,3) & "-" &Mid(Number,8,4)& " x" &Mid(Number,12,4)
	Else
	    FormatPhone = "(" & Mid(Number,1,3) & ") " &Mid(Number,4,3) & "-" &Mid(Number,7,4)& " x" &Mid(Number,11,4)
	End IF
End Function
%>
<%
Function MakeNumeric (Input)
Loops = Len (Input)
	For a = 1 to Loops Step 1
		If isNumeric (mid (Input,a,1)) then
			Output = Output & mid (Input,a,1)
	    End IF
	Next
	MakeNumeric = Output
End Function
%>