<% 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() '================================================================================= %>

New York State
DMP - Trading Service

Registration Form

Salutation
First Name*
Middle Initial
Last Name*
Suffix
Address 1*
Address 2
City*
State*
Zip Code*
Phone Nbr* Phone Type*
EMail Address*
Preferred Zone
NYS-Hunting License Id* - -

*Required Fields.

When the form is submitted you will receive an email that you must reply to.
There will be a verification link in the email.
You MUST click the link to verify your registration.
The email will also contain your user id and password for this site.

**Note**
Your email client must support HTML emails.
If it does not you will have to manually enter the address into your web browser.

Main Page Home Page