<%
Private Function FormatDate_MM_DD_CCYY(strDate)
Dim strCurrentDate, strYear, strMonth, strDay
' Temp Hold
'Response.Write "strDate: [" & strDate & "] "
If IsDate(strDate) = True Then
strYear = Year(strDate)
strMonth = Month(strDate)
If strMonth<10 Then strMonth = "0" & strMonth
strDay = Day(strDate)
If strDay<10 Then strDay = "0" & strDay
strCurrentDate = strMonth & "/" & strDay & "/" & strYear
Else
strCurrentDate = strDate
End If
FormatDate_MM_DD_CCYY = strCurrentDate
End Function ' End Function FormatDate_MM_DD_CCYY
'---------------------------------------------------
Private Function FormatDate_CCYYMMDD(strDate)
Dim strCurrentDate, strYear, strMonth, strDay
If IsDate(strDate) = True Then
strYear = Year(strDate)
strMonth = Month(strDate)
If strMonth<10 Then strMonth = "0" & strMonth
strDay = Day(strDate)
If strDay<10 Then strDay = "0" & strDay
strCurrentDate = strYear & strMonth & strDay
Else
strCurrentDate = strDate
End If
FormatDate_CCYYMMDD = strCurrentDate
End Function ' End Function FormatDate_CCYYMMDD
%>
<%
Dim maxTimeout
Dim adModeRead
Dim adModeWrite
Dim adModeReadWrite
Dim adModeShareDenyNone
Dim adUseNone
Dim adUseServer
Dim adUseClient
Dim adOpenForwardOnly
Dim adOpenKeyset
Dim adOpenDynamic
Dim adOpenStatic
Dim adLockReadOnly
Dim adLockPessimistic
Dim adLockOptimistic
Dim adLockBatchOptimistic
Dim adExecuteNoRecords
Dim adCmdText
maxTimeout = 120
adModeRead = 1
adModeWrite = 2
adModeReadWrite = 3
adModeShareDenyNone = 16
adUseNone = 1
adUseServer = 2
adUseClient = 3
adOpenForwardOnly = 0
adOpenKeyset = 1
adOpenDynamic = 2
adOpenStatic = 3
adLockReadOnly = 1
adLockPessimistic = 2
adLockOptimistic = 3
adLockBatchOptimistic = 4
adExecuteNoRecords = 128
adCmdText = 1
%>
<%
'**
'** Get an opened connection to the David Cruger database
'** Expects the database name, username, and password
'** Returns the connection
'**
' ********************************************************************************
' ********************************************************************************
'=================================================================================
Dim SQLIFAGCConn
Public Sub OpenIFAGCDatabase()
Dim strServerName
strServerName = UCase(Request.ServerVariables("SERVER_NAME"))
Select Case strServerName
Case "TECHPC03","128.1.18.30", "TECHPC09","TECHPC16","LOCALHOST"
Session("SQLIFAGCConnectString") = "Provider=SQLOLEDB;Data Source=128.1.18.30,1433;Initial Catalog=ilionfishandgame;UID=ilionfishandgame;PWD=POBox177;"
Case Else
Session("SQLIFAGCConnectString") = "Provider=SQLOLEDB;Data Source=ilionfishandgame.db.4283086.hostedresource.com;Initial Catalog=ilionfishandgame;UID=ilionfishandgame;PWD=POBox177;"
End Select
Set SQLIFAGCConn = Server.CreateObject("ADODB.Connection")
SQLIFAGCConn.ConnectionString = Session("SQLIFAGCConnectString")
SQLIFAGCConn.CursorLocation = 2 ' adUseServer
SQLIFAGCConn.ConnectionTimeout = 120
SQLIFAGCConn.CommandTimeout = 120
SQLIFAGCConn.Open
End Sub ' OpenIFAGCDatabase()
'=================================================================================
Public Sub CloseIFAGCDatabase()
SQLIFAGCConn.Close
Set SQLIFAGCConn = Nothing
End Sub ' CloseIFAGCDatabase()
'=================================================================================
%>
