banner literature about projects tools meetings search links BBS GAP home GAP home
home

Research and Applications - Add

<% '***** Main ***************************************************************************************** NumberOfPages = 8 CancelPage = "default.asp" PreviousPage = Request.Form("PageNumber") Action = Request.Form("Action") Select Case Action Case "Next >" CurrentPage = PreviousPage + 1 Case "< Back" CurrentPage = PreviousPage - 1 Case "Cancel" CurrentPage = 0 PreviousPage = 0 Case "Finish" CurrentPage = PreviousPage + 1 Case Else 'Start of Page 1 CurrentPage = 1 PreviousPage = 0 End Select Call SavePage(PreviousPage) If Action <> "< Back" Then Call ValidatePage(PreviousPage) End If Call DrawPage(CurrentPage) Call DrawButtons(CurrentPage) '**************************************************************************************************** Sub SavePage(Page) Select Case Page Case 1 Session("Type") = TRIM(Request.Form("Type")) Session("Title") = TRIM(Request.Form("Title")) Session("Number") = TRIM(Request.Form("Number")) Session("Status") = TRIM(Request.Form("Status")) Session("StartDate") = TRIM(Request.Form("StartDate")) Session("EndDate") = TRIM(Request.Form("EndDate")) Case 2 Session("ContactPerson") = TRIM(Request.Form("ContactPerson")) Session("ContactFacility") = TRIM(Request.Form("ContactFacility")) Session("ContactAddress") = TRIM(Request.Form("ContactAddress")) Session("ContactCity") = TRIM(Request.Form("ContactCity")) Session("ContactState") = TRIM(Request.Form("ContactState")) Session("ContactCountry") = TRIM(Request.Form("ContactCountry")) Session("ContactZipCode") = TRIM(Request.Form("ContactZipCode")) Session("ContactPhone") = TRIM(Request.Form("ContactPhone")) Session("ContactPhoneExtension") = TRIM(Request.Form("ContactPhoneExtension")) Session("ContactEmail") = TRIM(Request.Form("ContactEmail")) Case 3 Session("LocationCountry") = TRIM(Request.Form("LocationCountry")) Session("LocationState") = TRIM(Request.Form("LocationState")) Session("LocationArea") = TRIM(Request.Form("LocationArea")) Case 4 Session("Description") = TRIM(Request.Form("Description")) Case 5 Session("ProgressMemo") = TRIM(Request.Form("ProgressMemo")) Session("ProgressDate") = TRIM(Request.Form("ProgressDate")) Case 6 Session("Keywords") = TRIM(Request.Form("Keywords")) Case 7 Session("CooperatingInstitutions") = TRIM(Request.Form("CooperatingInstitutions")) Session("AdditionalInformation") = TRIM(Request.Form("AdditionalInformation")) Session("AdditionalInformationURL") = TRIM(Request.Form("AdditionalInformationURL")) Session("RequestForAssistance") = TRIM(Request.Form("RequestForAssistance")) End Select End Sub '**************************************************************************************************** Sub ValidatePage(Page) Select Case Page Case 1 If Session("StartDate") <> "" Then Call ValidateDate(Session("StartDate"), "Start Date", Page) If IsDate(Session("StartDate")) Then Session("StartDate") = LongDate(Session("StartDate")) End If End If If Session("EndDate") <> "" Then Call ValidateDate(Session("EndDate"), "End Date", Page) If IsDate(Session("EndDate")) Then Session("EndDate") = LongDate(Session("EndDate")) End If End If Call ValidateNull(Session("Type"), "Project Type", Page) Call ValidateNull(Session("Title"), "Project Title", Page) Call ValidateTooLong(Session("Title"), "Project Title", Page, 200) Call ValidateNull(Session("Status"), "Project Status", Page) Case 2 Call ValidateTooLong(Session("ContactPerson"), "Name of Person", Page, 200) Call ValidateNull(Session("ContactFacility"), "Name of Facility", Page) Call ValidateTooLong(Session("ContactFacility"), "Name of Facility", Page, 200) Call ValidateNull(Session("ContactAddress"), "Mailing Address", Page) Call ValidateTooLong(Session("ContactAddress"), "Mailing Address", Page, 255) Call ValidateNull(Session("ContactCity"), "City", Page) Call ValidateTooLong(Session("ContactCity"), "City", Page, 32) Call ValidateNull(Session("ContactPhone"), "Phone", Page) Call ValidateNull(Session("ContactEmail"), "E-mail", Page) Call ValidateTooLong(Session("ContactEmail"), "E-mail", Page, 128) Case 3 Call ValidateNull(Session("LocationCountry"), "Countr(y/ies)", Page) Call ValidateTooLong(Session("LocationCountry"), "Countr(y/ies)", Page, 200) Call ValidateNull(Session("LocationState"), "State(s)", Page) Call ValidateTooLong(Session("LocationState"), "State(s)", Page, 200) Call ValidateNull(Session("LocationArea"), "Area(s)", Page) Call ValidateTooLong(Session("LocationArea"), "Area(s)", Page, 200) Case 4 Call ValidateNull(Session("Description"), "Project Description", Page) Call ValidateTooLong(Session("Description"), "Project Description", Page, 4000) Case 5 Call ValidateNull(Session("ProgressMemo"), "Progress/Results", Page) Call ValidateNull(Session("ProgressDate"), "Date", Page) If Session("ProgressDate") <> "" Then Call ValidateDate(Session("ProgressDate"), "Date", Page) If IsDate(Session("ProgressDate")) Then Session("ProgressDate") = LongDate(Session("ProgressDate")) End If End If Case 6 Call ValidateNull(Session("KeyWords"), "Keywords", Page) Case 7 Call ValidateNull(Session("CooperatingInstitutions"), "Cooperating Institutions", Page) Call ValidateTooLong(Session("CooperatingInstitutions"), "Cooperating Institutions", Page, 200) Call ValidateTooLong(Session("AdditionalInformation"), "Additional Information Available", Page, 200) Call ValidateTooLong(Session("AdditionalInformationURL"), "Additional Information URL", Page, 200) If Session("AdditionalInformationURL") <> "" Then Call ValidateURL(Session("AdditionalInformationURL"), "Additional Information URL", Page) End If Session("RequestForAssistance") = TRIM(Request.Form("RequestForAssistance")) Call ValidateTooLong(Session("RequestForAssistance"), "Request for Assistance", Page, 200) End Select End Sub '**************************************************************************************************** Sub DrawPage(Page) Response.Write("

") Response.Write("") Select Case Page Case 0 Session.Abandon Response.Write("

Your entry has been canceled. Click here to continue.

") Case 1 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" General Information") Response.Write("
  
") Response.Write(" Project Type  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Choose one. Research projects are those that seek to develop or test methodologies while Applications are projects that apply data and information to a problem. Projects that have aspects of both develop new methods and apply them.") Response.Write("
") Response.Write(" Project Title  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Should be no more than 200 characters long. Capitalize ONLY the first word and proper nouns.") Response.Write("
") Response.Write(" Project Number  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" (Optional) Official number or code used to identity this project, e.g. RWO or Coop. Agreement number.") Response.Write("
") Response.Write(" Project Status  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Choose one. Active (currently funded or products yet to be completed), Completed (data collection complete and products delivered), or Terminated (did not complete).") Response.Write("
") Response.Write(" Start Date  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Month, day, and year the project started or is expected to start. Leave blank if unknown.") Response.Write("
") Response.Write(" End Date  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Month, day, and year the project is scheduled to be completed or was terminated. Leave blank if unknown.") Response.Write("
") Case 2 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" Project Contact") Response.Write("
  
") Response.Write(" Name of Person  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Last name, first name, middle initial of person to whom scientific and technical questions should be addressed. Leave blank if unknown.") Response.Write("
") Response.Write(" Name of Facility  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" The institution or organization conducting the project.") Response.Write("
") Response.Write(" Mailing Address  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Mailing address, e.g. Street, Route, PO Box, etc.") Response.Write("
") Response.Write(" City  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" City.") Response.Write("
") Response.Write(" State  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" State, province, canton, etc. No abbreviations.") Response.Write("
") Response.Write(" Country  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" Country.") Response.Write("
") Response.Write(" Postal Code  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" For US: Zip code and four digit extension (if known), e.g. 01234-5678. For foreign: appropriate postal code.") Response.Write("
") Response.Write(" Phone  ") Response.Write(" ") Response.Write(" Extension ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" For US: Phone number with area code, e.g. 208-555-1212. For foreign: country code + phone number. Phone extension if applicable.") Response.Write("
") Response.Write(" E-mail  ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write("  ") Response.Write(" ") Response.Write(" E-mail address.") Response.Write("
") Case 3 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" Project Location") Response.Write("
  
") Response.Write("Countr(y/ies)  ") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("Countr(y/ies) (comma separated).") Response.Write("
") Response.Write("State(s)  ") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("State(s) (comma separated FULL names).") Response.Write("
") Response.Write("Area(s) ") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("Area(s) (comma separated).") Response.Write("
") Case 4 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" Project Description") Response.Write("
") Response.Write("  ") Response.Write("
") Response.Write(" ") Response.Write("
") Response.Write(" Describe the purpose of the project (why is the study being done?), scientific objectives (what do you expect to find out from this study?), type of GAP information being used, how GAP information is used. Maximum length: 4000 characters.") Response.Write("
") Case 5 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" Progress/Results") Response.Write("
") Response.Write("  ") Response.Write("
") Response.Write(" ") Response.Write("
") Response.Write(" Describe the progress achieved toward reaching the objectives.") Response.Write("
") Response.Write(" Date  ") Response.Write("
") Response.Write(" Month, day, and year that the Progress/Results are reported.") Response.Write("
") Case 6 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
") Response.Write(" Keywords") Response.Write("
") Response.Write("  ") Response.Write("
") Response.Write(" ") Response.Write("
") Response.Write(" Enter at least one keyword identifying the scientific and/or programmatic focus of your project. Choose from the list provided below or add your own descriptors. Separate the keywords by commas.") Response.Write("
") Response.Write(" academic, accuracy assessment, advocacy, amphibians, aquatic, atlas development, biomarkers, birds, climate, coastal, conservation, contaminants, desert and arid lands, development, disease, ecosystem science, education, endangered species, federal government, fire, fish, forests, game, genetics, grassland/rangeland, harvest management, human impacts, information transfer, international, invasive species, inventory, invertebrates, land management, land use planning, local government, mammals, mapping, marine, methods development, migratory, modeling, monitoring, mussels, outreach, plants, populations, recreation, reptiles, public lands, resource use, restoration, riparian, river systems, social science, standards and protocols, state government, status and trends, stock assessment, taxonomy/systematics, terrestrial, toxicology, waterfowl, wetlands, wildlife") Response.Write("
") Case 7 Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" Additional Information") Response.Write("
  
") Response.Write("Cooperating Institution(s)  ") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("Cooperatiing Institution(s). One per line, no abbreviations. Maximum length: 200 characters.") Response.Write("
") Response.Write("Additional Information Available  ") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("Additional available information, e.g. "A white paper is available that can be obtained from the contact person".") Response.Write("
") Response.Write("Additional Information URL") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("URL (Address) of additional available information on the Web.") Response.Write("
") Response.Write("Request for Assistance") Response.Write("") Response.Write("") Response.Write("
") Response.Write(" ") Response.Write("") Response.Write("(Optional) Indicate if the researcher is seeking additional funding, in-kind support, collaboration, etc. Maximum length: 200 characters.") Response.Write("
") Case 8 Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("

This is the information that you are about to submit, please check it for errors. If you need to make changes use the "< Back" and "Next >" buttons. When the information is correct, come back here and press the "Finish" button.

") Response.Write("
") Response.Write(" ") Response.Write("
") Response.Write("Project Type: " & Server.HTMLEncode(Session("Type")) & "
") Response.Write("Project Title: " & Server.HTMLEncode(Session("Title")) & "
") Response.Write("Project Number: " & Server.HTMLEncode(Session("Number")) & "
") Response.Write("Project Status: " & Server.HTMLEncode(Session("Status")) & "
") Response.Write("Project Start Date: " & Server.HTMLEncode(Session("StartDate")) & "
") Response.Write("Project End Date: " & Server.HTMLEncode(Session("EndDate")) & "
") Response.Write("Project Contact - Name of Person: " & Server.HTMLEncode(Session("ContactPerson")) & "
") Response.Write("Project Contact - Name of Facility: " & Server.HTMLEncode(Session("ContactFacility")) & "
") Response.Write("Project Contact - Mailing Address:
" & AddBreaks(Server.HTMLEncode(Session("ContactAddress"))) & "
") Response.Write("Project Contact - City: " & Server.HTMLEncode(Session("ContactCity")) & "
") Response.Write("Project Contact - State: " & Server.HTMLEncode(Session("ContactState")) & "
") Response.Write("Project Contact - Country: " & Server.HTMLEncode(Session("ContactCountry")) & "
") Response.Write("Project Contact - Postal Code: " & Server.HTMLEncode(Session("ContactZipCode")) & "
") Response.Write("Project Contact - Phone: " & Server.HTMLEncode(Session("ContactPhone")) & "
") Response.Write("Project Contact - Phone Extension: " & Server.HTMLEncode(Session("ContactPhoneExtension")) & "
") Response.Write("Project Contact - E-mail: " & Server.HTMLEncode(Session("ContactEmail")) & "
") Response.Write("Project Location - Countr(y/ies): " & Server.HTMLEncode(Session("LocationCountry")) & "
") Response.Write("Project Location - State(s): " & Server.HTMLEncode(Session("LocationState")) & "
") Response.Write("Project Location - Area(s): " & Server.HTMLEncode(Session("LocationArea")) & "
") Response.Write("Project Description:
" & AddBreaks(Server.HTMLEncode(Session("Description"))) & "
") Response.Write("Progress/Results:
" & AddBreaks(Server.HTMLEncode(Session("ProgressMemo"))) & "
") Response.Write("Progress/Results - Date: " & Server.HTMLEncode(Session("ProgressDate")) & "
") Keywords = Server.HTMLEncode(Session("Keywords")) For LCV = 1 to Len(Keywords) If Mid(Keywords, LCV, 1) = "," Then If Trim(Temp) <> "" Then NewKeywords = NewKeywords & Trim(Temp) & "
" End If Temp = "" Else Temp = Temp & Mid(Keywords, LCV, 1) End If Next If Trim(Temp) <> "" Then NewKeywords = NewKeywords & Trim(Temp) & "
" End If Session("NewKeywords") = NewKeywords Response.Write("Keywords (one per line):
" & Session("NewKeywords") & "
") Response.Write("Cooperating Institution(s):
" & AddBreaks(Server.HTMLEncode(Session("CooperatingInstitutions"))) & "
") Response.Write("Additional Information Available: " & Server.HTMLEncode(Session("AdditionalInformation")) & "
") Response.Write("Additional Information Available - URL: " & Server.HTMLEncode(Session("AdditionalInformationURL")) & "
") Response.Write("Request for Assistance: " & Server.HTMLEncode(Session("RequestForAssistance")) & "
") Response.Write("
") Case NumberOfPages + 1 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DSN_RA") Set RSCreateProject = Conn.Execute("EXEC sp_CreateProject '" & SQLEncode(Session("Type")) & "','" & SQLEncode(Session("Title")) & "','" & SQLEncode(Session("Number")) & "','" & SQLEncode(Session("Status")) & "','" & SQLEncode(Session("StartDate")) & "','" & SQLEncode(Session("EndDate")) & "','" & SQLEncode(Session("Description")) & "','" & SQLEncode(Session("ProgressDate")) & "','" & SQLEncode(Session("ProgressMemo")) & "','" & SQLEncode(Session("LocationCountry")) & "','" & SQLEncode(Session("LocationState")) & "','" & SQLEncode(Session("LocationArea")) & "','" & SQLEncode(Session("CooperatingInstitutions")) & "','" & SQLEncode(Session("AdditionalInformation")) & "','" & SQLEncode(Session("AdditionalInformationURL")) & "','" & SQLEncode(Session("RequestForAssistance")) & "'") Session("AddID") = RSCreateProject("AddID") Set RSCreateContact = Conn.Execute("EXEC sp_CreateContact '" & SQLEncode(Session("AddID")) & "','" & SQLEncode(Session("ContactPerson")) & "','" & SQLEncode(Session("ContactFacility")) & "','" & SQLEncode(Session("ContactAddress")) & "','" & SQLEncode(Session("ContactCity")) & "','" & SQLEncode(Session("ContactState")) & "','" & SQLEncode(Session("ContactCountry")) & "','" & SQLEncode(Session("ContactZipCode")) & "','" & SQLEncode(Session("ContactPhone")) & "','" & SQLEncode(Session("ContactPhoneExtension")) & "','" & SQLEncode(Session("ContactEmail")) & "'") Keywords = Session("Keywords") For LCV = 1 to Len(Keywords) If Mid(Keywords, LCV, 1) = "," Then If Trim(Temp) <> "" Then Set RSCreateKeywords = Conn.Execute("EXEC sp_CreateKeywords '" & SQLEncode(Session("AddID")) & "','" & SQLEncode(Trim(Temp)) & "'") End If Temp = "" Else Temp = Temp & Mid(Keywords, LCV, 1) End If Next If Trim(Temp) <> "" Then Set RSCreateKeywords = Conn.Execute("EXEC sp_CreateKeywords '" & SQLEncode(Session("AddID")) & "','" & SQLEncode(Trim(Temp)) & "'") End If Response.Write("

Your information has been saved. Click here to continue.

") End Select End Sub '**************************************************************************************************** Sub DrawButtons(Page) Select Case Page Case 0 'Nothing Case 1 Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("
" & ProgressIndicator(Page,NumberOfPages) & "") Response.Write("   ") Response.Write("") Response.Write("
") Case NumberOfPages Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("
" & ProgressIndicator(Page,NumberOfPages) & "") Response.Write("   ") Response.Write("") Response.Write("
") Case NumberOfPages + 1 'Nothing Case Else Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("
" & ProgressIndicator(Page,NumberOfPages) & "") Response.Write("") Response.Write("   ") Response.Write("") Response.Write("
") End Select Response.Write("
") End Sub '**************************************************************************************************** Function ProgressIndicator(Value1, Value2) ProgressIndicator = ProgressIndicator & "" ProgressIndicator = ProgressIndicator & "" ProgressIndicator = ProgressIndicator & "" For ProgressIndicatorLCV = 1 to Value1 Step Value2/20 ProgressIndicator = ProgressIndicator & "" Next For ProgressIndicatorLCV = Value1+1 to Value2 Step Value2/20 ProgressIndicator = ProgressIndicator & "" Next ProgressIndicator = ProgressIndicator & "
" & FormatNumber(Value1/Value2*100,0) & "%  
" End Function Function AddBreaks(Value) For AddBreaksLCV = 1 to Len(Value) If Mid(Value, AddBreaksLCV, 1) = Chr(13) Then AddBreaks = AddBreaks & "
" & CHR(13) Else AddBreaks = AddBreaks & Mid(Value, AddBreaksLCV, 1) End If Next End Function Function SQLEncode(SQLEncodeValue) For LCV = 1 to Len(SQLEncodeValue) Select Case Mid(SQLEncodeValue, LCV, 1) Case "'" SQLEncode = SQLEncode & "'" SQLEncode = SQLEncode & Mid(SQLEncodeValue, LCV, 1) Case Else SQLEncode = SQLEncode & Mid(SQLEncodeValue, LCV, 1) End Select Next End Function Function LongDate(Date) On Error Resume Next LongDate = MonthName(Date) & " " & Day(Date) & ", " & Year(Date) End Function Function MonthName(Date) Select Case Month(Date) Case 1 MonthName = "January" Case 2 MonthName = "February" Case 3 MonthName = "March" Case 4 MonthName = "April" Case 5 MonthName = "May" Case 6 MonthName = "June" Case 7 MonthName = "July" Case 8 MonthName = "August" Case 9 MonthName = "September" Case 10 MonthName = "October" Case 11 MonthName = "November" Case 12 MonthName = "December" End Select End Function Function InsertValue(Value) If Value = "" Then InsertValue = "" Else InsertValue = " VALUE=""" & Server.HTMLEncode(Value) & """" End If End Function Function InsertSelected(Value1, Value2) If Value1 <> Value2 Then InsertSelected = "" Else InsertSelected = " SELECTED" End If End Function Function InsertTextArea(Value) If Value = "" Then InsertTextArea = "" Else InsertTextArea = Server.HTMLEncode(Value) End If End Function Sub ValidateNull(Value, Name, NewPage) If (Value = "-") OR (Value = "") Then Response.Write("You must provide: " & Name & ".
") Page = NewPage CurrentPage = Page End If End Sub Sub ValidateTooLong(Value, Name, NewPage, Size) If Len(Value) > Size Then Response.Write("" & Name & " must not contain more than " & Size & " characters.
") Page = NewPage CurrentPage = Page End If End Sub Sub ValidateTooShort(Value, Name, NewPage, Size) If (Len(Value) < Size) AND (Len(Value) <> 0) Then Response.Write("" & Name & " must have at least " & Size & " characters.
") Page = NewPage CurrentPage = Page End If End Sub Sub ValidateDate(Date, Name, NewPage) If Not IsDate(Date) Then Response.Write("" & Name & " must contain Month, Day, and Year in that order, e.g. ""September 4, 1973"", ""9/4/73"", ""9-4-73"", etc.
") CurrentPage = NewPage End If End Sub Sub ValidateURL(URL, Name, NewPage) If (Left(URL, 7) <> "http://") AND (Left(URL, 8) <> "https://") Then Response.Write("" & Name & " must contain a valid URL prefix, e.g. ""http://"", ""https://"", etc.
") CurrentPage = NewPage End If End Sub '**************************************************************************************************** %>