Link to home
Start Free TrialLog in
Avatar of countrymeister
countrymeister

asked on

Request.Form not populating values while passing values from one asp page to another

I have a page called register.asp, developed in classic ASP  which has a javascript file it uses (reg_form_process.js) and another asp page reg_form.asp to populate the fields.
There are abouty forty fields of information to fill, when the user fills the information, the user can submit by clicking the submit button to save the data to the database OR can click the Preview button to previw the data

I would like to know how I can retrieve the data on the preview_form.asp where I can display it accordingly.

here is my code

REGISTER.ASP
<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

If Session("VolunteerID")<>"" Then
            Response.Redirect "thankyou.asp"

End If

 
''#################### VARIABLES REQUIRED FOR REG FORM ####################

dim VolunteerID
dim RedirectTxt ''page to redirect to after data is saved
dim SubmitTxt   ''page to submit registration page to for saving
dim ShowSubmit            ''True or False value indicating wether save panel is viewable on reg form
dim ShowShifts ''True or False Value indicating wether form should show assigned shifts panel
dim FormLabel   ''Text To display at top of registraion form
dim strTemp      ''Misc string used for temp processing
dim strSQL
dim rsGetData
dim strSQL_Sup
dim rsGetData_Sup
dim NumOfPreDays
dim NumOfConventionDays
dim NumOfDays
dim ColWidth
dim Bgcolour
dim DayName
dim ShortDate
dim Date_Text()
dim Date_ID()
dim Vol_Available()
dim Vol_Assigned()
dim Temp_BGcolour
dim Vol_Skill_Assigned
dim Vol_This_Skill
dim Day_Check
dim Day_Disable
dim x
dim SkillCounter
dim Prefix
dim FirstName
dim MiddleName
dim LastName
dim BadgeTitle
dim Suffix
dim Email
dim Phone
dim EveningPhone
dim AlternativePhone
dim AddressLine1
dim AddressLine2
dim City
dim State
dim ZipCode
dim Country
dim ParishID
dim NeedsHousing
dim CanProvidehousing
dim ProvideHousingOnly
dim MaximumNumberShifts
dim Comments


VolunteerID=""

RedirectTxt="thankyou.asp"
SubmitTxt="register_save.asp"
ShowSubmit="True"
ShowShifts="False"
''#################### END VARIABLES REQUIRED FOR REG FORM ####################

%>

<!--#include file ="Includes/volunteer_db_connect.asp"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

            <title>Registration</title>
            <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
            <meta name="author" content="CM">
            <meta name="description" content="Volunter Application">
            <meta name="date-created" content="2005-02-18">
            <meta name="robots" content="noindex,nofollow">
            <meta http-equiv="msthemecompatible" content="no">
            <meta HTTP-EQUIV="imagetoolbar" content="no">
            <link rel="stylesheet" href="Style/style.css" type="text/css">
            <script language="JavaScript" type="text/javascript" SRC="JScript/reg_form_process.js"></script>

</head>

<body onload="SetParams()">

<form name="register" action="register.asp" method="post" AUTOCOMPLETE="off">
<table  height="1%" width="100%" cellpadding="0" cellspacing="0" border="0">
            <tr>

                        <td align="left" valign="top" height="1%">
                                    <!--#include file ="Includes/page_header.asp"-->
                        </td>

            </tr>

</table>

<!--#include file ="Includes/reg_form.asp"-->

<p>

&nbsp;&nbsp;<a href="volunteer.pdf" target="new" class="regLabel3">Click here to print out a volunteer registration form</a>
</form>
</body>
</html>
END OF REGISTER.ASP
--------------------------------------------------------------------------

REG_FORM.ASP which has the
 the submit and preview button

<tr>
<td align="left" valign="top" colspan="3">
<span class="regLabel1">&nbsp;</span>
<input type="button" name="submit_form" value="Submit" class="regbutton1" OnClick="ValidateForm()">
<span class="regLabel3">&nbsp;<< Click here to submit your volunteer details</span>
</td>
</tr>
<tr>
<td align="left" valign="top" colspan="3">
<span class="regLabel1">&nbsp;</span>
<input type="button" name="preview_form" value="Preview" class="regbutton1" OnClick="PreviewForm()">
<span class="regLabel3">&nbsp;<< Click here to preview your details</span>
</td>
</tr>
------------------------------------------------------------
REG_FORM_PROCESS.JS (javascript file)

The javascript file , reg_form_process.js has the following code
Note that the action evaluates to register_save.asp

function ValidateForm()
{
      var Validate_Fields=new Array("FirstName","LastName","AddressLine1", "City");
      var Validate_Fields_Alert=new Array("First name","Last name","Address", "City")
      var test_field="";
      for (var i=0; i< Validate_Fields.length; i++)
      {
            test_field=StripInvalidCharacters(GetTextValue(form_name, Validate_Fields[i]));
            SetTextValue(form_name, Validate_Fields[i], test_field);
            if(test_field=="")
            {
                  alert(Validate_Fields_Alert[i] + " cannot be blank!");
                  SetFocus(Validate_Fields[i]);
                  return false;
                  break;
            }
      }
     
      var temp_badge_title=StripInvalidCharacters(GetTextValue(form_name, "BadgeTitle"));
      if(temp_badge_title=="")
      {
            var temp_first_name=GetTextValue(form_name, "FirstName");
            SetTextValue(form_name, "BadgeTitle", temp_badge_title);
      }else{
            SetTextValue(form_name, "BadgeTitle", temp_badge_title);
      }

      test_field=StripInvalidCharacters(GetTextValue(form_name, "AddressLine2"));
      SetTextValue(form_name, "AddressLine2", test_field);

      test_field=GetTextValue(form_name, "Email");
      if(test_field=="")
      else
      {
      if(!emailCheck(test_field))
          {
                SetFocus("Email");
                return false;
          }
      }

      test_field=StripInvalidCharacters(GetTextValue(form_name, "Country"));
      SetTextValue(form_name, "Country", test_field);
      if(test_field=="USA" || test_field=="")
      {
            test_field=ValidateUSPhone(GetTextValue(form_name, "Phone"));
            SetTextValue(form_name, "Phone", test_field);
            if(test_field=="")
            {
                  SetFocus("Phone");
                  alert("The phone number you entered is not valid!");
                  return false;
            }


            test_field=GetTextValue(form_name, "ZipCode");
            if(!validateZIP(test_field))
            {
                  SetFocus("ZipCode");
                  alert("A valid zip code is required");
                  return false;
            }
      }else{
            test_field=StripInvalidCharacters(GetTextValue(form_name, "Phone"));
            SetTextValue(form_name, "Phone", test_field);

            test_field=StripInvalidCharacters(GetTextValue(form_name, "ZipCode"));
            SetTextValue(form_name, "ZipCode", test_field);
      }

      test_field=get_radio_value(form_name, "housing_radio")

      if(test_field!="houseonly")
      {
            var this_counter=0;
            for (var i=1; i<=num_days; i++)
            {
           
                  temp_disable_am=GetTextValue(form_name, "day_" + i + "_am_disable");
                  if(temp_disable_am=="true")
                  {
                        SetCheckboxValue(form_name, "day_" + i + "_am", "true");
                  }
                 
                  temp_disable_pm=GetTextValue(form_name, "day_" + i + "_pm_disable");
                  if(temp_disable_pm=="true")
                  {
                        SetCheckboxValue(form_name, "day_" + i + "_pm", "true");
                  }
                 
                             
                  if(GetCheckboxValue(form_name, "day_" + i + "_am"))
                  {
                        this_counter++;
                  }

                  if(GetCheckboxValue(form_name, "day_" + i + "_pm"))
                  {
                        this_counter++;
                  }

            }

            SetTextValue(form_name, "TotalAvailableDays", this_counter);

            if(this_counter==0)
            {
                  SetFocus("day_1_am");
                  alert("You have not indicated your availability!\nCheck the days and times you are available to volunteer.");
                  return false;
            }

            test_field=StripInvalidCharacters(GetTextValue(form_name, "MaxShifts"));
            if(test_field=="" || test_field=="0")
            {
                  SetFocus("MaxShifts");
                  alert("Please enter the maximum number of shifts you are prepared to work");
                  return false;
            }
            if(test_field>9)
            {
                  test_field=9;
            }
            SetTextValue(form_name, "MaxShifts", test_field);

            var this_counter=0;
            var this_skill_id="";
            for (var i=1; i<=num_skills; i++)
            {
                  this_skill_id=GetTextValue(form_name, "skill_id_" + i);
                  if(GetCheckboxValue(form_name, "skill_" + this_skill_id))
                  {
                        this_counter++;
                  }
            }

            if(this_counter==0)
            {
                  SetFocus("skill_" + this_skill_id);
                  alert("Please indicate at least one skill");
                  return false;
            }



      }

      test_field=StripInvalidCharacters(GetTextValue(form_name, "Comments"));
      SetTextValue(form_name, "Comments", test_field);

      SubmitThisForm();

}

function SubmitThisForm()
{      var action_url=GetTextValue(form_name, "form_action");
      document.forms[0].action=action_url;
      document.forms[0].submit();
}
function PreviewForm()
{
            document.forms[0].action="preview_form.asp";
            document.forms[0].submit();
}

here is my preview_form.asp
<%@ Language=VBScript %>
<%
dim sFile
dim dd_status
dim reportname
'''''''''''''''''''''''''''''''''''''''''''
dim Prefix
dim FirstName
dim MiddleName
dim LastName
dim BadgeTitle
dim Suffix
dim Email
dim MailingPreference
dim Phone
dim EveningPhone
dim AlternativePhone
'''''''''''''''''''''''''''''''''''''''''''
Prefix=trim(Request.Form("select_prefix"))
'FirstName=trim(Request.Form("FirstName"))
FirstName=document.opener.register.FirstName.Value

MiddleName=trim(Request.Form("MiddleName"))

LastName=trim(Request.Form("LastName"))
BadgeTitle=trim(Request.Form("BadgeTitle"))
Suffix=trim(Request.Form("Suffix"))
Email=trim(Request.Form("Email"))
Phone=trim(Request.Form("Phone"))
EveningPhone=trim(Request.Form("EveningPhone"))
AlternativePhone=trim(Request.Form("AlternativePhone"))

Response.write"<br> " &FirstName
           

Avatar of third
third
Flag of Philippines image
you are on the right track. using request.form or request is the way to go. aren't the values showing? Please make sure that you are using the correct form field names otherwise the values being passed from your previous form might be blank. I did not see your form fields from your sample code posted above (reg_form.asp)  but looking at your validation on javascript, I see what (some) form field names you are using. please try this below. document.opener.register.FirstName.Value ain't gonna work. it's javascript only.

<%
Prefix=trim(request("select_prefix"))
FirstName=trim(request("FirstName"))

MiddleName=trim(request("MiddleName"))

LastName=trim(request("LastName"))
BadgeTitle=trim(request("BadgeTitle"))
Suffix=trim(request("Suffix"))
Email=trim(request("Email"))
Phone=trim(request("Phone"))
EveningPhone=trim(request("EveningPhone"))
AlternativePhone=trim(request("AlternativePhone"))

Response.write "Prefix : " & Prefix & "<br>"
Response.write "FirstName : " & FirstName & "<br>"
Response.write "MiddleName : " & MiddleName & "<br>"
Response.write "LastName : " & LastName & "<br>"

%>
ASKER CERTIFIED SOLUTION
Avatar of third
third
Flag of Philippines image
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of countrymeister
countrymeister

ASKER

Hi ! third

here is the code for reg_form.asp

<%
If LEN(VolunteerID)>0 Then
      strSQL="exec spEditVolunteer_GetVolunteer " & VolunteerID
      Set rsGetData=adocon.Execute(strSQL)
      If NOT rsGetData.EOF Then
            Prefix=rsGetData("Prefix")
            FirstName=rsGetData("Firstname")
            MiddleName=rsGetData("MiddleName")
            LastName=rsGetData("LastName")
            BadgeTitle=rsGetData("BadgeTitle")
            Suffix=rsGetData("Suffix")
            Email=rsGetData("Email")
            Phone=rsGetData("DayTimePhone")
            EveningPhone=rsGetData("EveningPhoneNum")
            AlternativePhone=rsGetData("AlternativePhone")
            AddressLine1=rsGetData("AddressLine1")
            AddressLine2=rsGetData("AddressLine2")
            City=rsGetData("City")
            State=rsGetData("State")
            ZipCode=rsGetData("ZipCode")
            Country=rsGetData("Country")
            ParishID=rsGetData("ParishID")
            NeedsHousing=rsGetData("NeedsHousing")
            CanProvidehousing=rsGetData("CanProvidehousing")
            ProvideHousingOnly=rsGetData("ProvideHousingOnly")
            MaximumNumberShifts=rsGetData("MaxNumberShiftsDesired")
            Comments=rsGetData("Note")
      Else
            Prefix=""
            FirstName=""
            MiddleName=""
            LastName=""
            BadgeTitle=""
            Suffix=""
            Email=""
            Phone=""
            EveningPhone=""
            AlternativePhone=""            
            AddressLine1=""
            AddressLine2=""
            City=""
            State=""
            ZipCode=""
            Country="USA"
            ParishID=""
            NeedsHousing="False"
            CanProvidehousing="True"
            ProvideHousingOnly="False"
            MaximumNumberShifts="0"
            Comments=""
      End If
Else
      Prefix=""
      FirstName=""
      MiddleName=""
      LastName=""
      Suffix=""
      Email=""
      Phone=""
      EveningPhone=""
      AlternativePhone=""
      AddressLine1=""
      AddressLine2=""
      City=""
      State=""
      ZipCode=""
      Country="USA"
      ParishID=""
      NeedsHousing="False"
      CanProvidehousing="False"
      ProvideHousingOnly="False"
      MaximumNumberShifts="0"
      Comments=""
End If
%>
<table  height="99%" width="100%" cellpadding="0" cellspacing="0" border="0">
      <tr>
            <td><img src="images/tran_pix_1x1.gif" width="20" height="1"></td><!--Left Marg-->
            <td>
                  <table  height="100%" width="100%" cellpadding="0" cellspacing="0" border="0">
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                        <tr><td colspan="3"><%Response.Write FormLabel%><input type="hidden" name="volunteer_id" value="<%Response.Write VolunteerID%>"><input type="hidden" name="redirect_to" value="<%Response.Write RedirectTxt%>"><input type="hidden" name="form_action" value="<%Response.Write SubmitTxt%>"></td></tr>
                        <tr>
                              <td width="49%" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- NAME TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="center" colspan="3" bgcolor="#073971"><span class="regLabel2">Name</span></td></tr>
                                          <tr><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="2"></td></tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Prefix:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call SetSelectValuesAndHighlight("select_prefix", "regselect1", "", "exec spVolunteerRegistration_ListPrefixes", "Prefix", "Prefix", Prefix)%>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;First&nbsp;Name:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteStaticTextField("FirstName", FirstName, "regtextbox1", " OnBlur=""SetBadgeTitle(); javascript:this.className='regtextbox1';"" onfocus=""javascript:this.className='regtextbox1Highlight'""") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">&nbsp;</span><span class="regLabel1">&nbsp;Middle&nbsp;Name:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("MiddleName", MiddleName, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;Last&nbsp;Name:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("LastName", LastName, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">&nbsp;</span><span class="regLabel1">&nbsp;Suffix:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("Suffix", Suffix, "regtextbox2", "regtextbox2Highlight", "") %>
                                                      <span class="regLabel1"><i>&nbsp;e.g Jr, PHD etc.</i></span>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Badge&nbsp;Nickname:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("BadgeTitle", BadgeTitle, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Email:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("Email", Email, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;Daytime Number:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteStaticTextField("Phone", Phone, "regtextbox2", " OnBlur=""FormatPhone(); javascript:this.className='regtextbox2';"" onfocus=""javascript:this.className='regtextbox2Highlight'"" ") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                                
                                          </tr>
                                          <tr>
                                          
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Evening Number:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteStaticTextField("EveningPhone", EveningPhone, "regtextbox2", " OnBlur=""FormatEveningPhone() ; javascript:this.className='regtextbox2';"" onfocus=""javascript:this.className='regtextbox2Highlight'"" ") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>                                          
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Alternative Number:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteStaticTextField("AlternativePhone", AlternativePhone, "regtextbox2", " OnBlur=""FormatAlternativePhone() ; javascript:this.className='regtextbox2';"" onfocus=""javascript:this.className='regtextbox2Highlight'"" ") %>
                                                </td>                                                
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>                                          
                                          <tr>
                                                <td align="left" valign="top" colspan="3" nowrap><table width="100%" height="1" cellspacing="0" border="0" cellpadding="0"><tr><td><span class="regLabel1">&nbsp;</span></td><td><span class="regLabel1">Enter any other contact information in the comments section below. </span></td></tr></table></td>
                                          </tr>
                                          <tr height="100%"><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END NAME TABLE -->
                              </td>
                              <td width="1%"><img src="Images/tran_pix_1x1.gif" width="10" height="1" border="0" alt=""></td>
                              <td width="49%" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- ADDRESS TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="center" colspan="3" bgcolor="#073971"><span class="regLabel2">Address</span></td></tr>
                                          <tr><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="2"></td></tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;Address:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("AddressLine1", AddressLine1, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("AddressLine2", AddressLine2, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;City:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call WriteTextField("City", City, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;State:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top" nowrap>
                                                      <% Call SetSelectValuesAndHighlight("select_state", "regselect2", "", "exec spVolunteerRegistration_ListStates", "ID", "ID", State)%>
                                                      <span class="regLabel4">*</span><span class="regLabel1">&nbsp;Zip:</span>
                                                      <% Call WriteTextField("ZipCode", ZipCode, "regtextbox2", "regtextbox2Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Country:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top" nowrap>
                                                      <% Call WriteTextField("Country", Country, "regtextbox1", "regtextbox1Highlight", "") %>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="bottom" nowrap colspan="3" height="5"><img src="images/h_line_1.gif" width="272" height="1"></td>
                                          </tr>
                                          <tr>
                                                <!--<td align="left" valign="top" colspan="3" nowrap><table width="100%" height="1" cellspacing="0" border="0" cellpadding="0"><tr><td><span class="regLabel1">&nbsp;</span></td><td><span class="regLabel5">If your parish is in Southern Ohio, please select it below:&nbsp;</span></td></tr></table></td>-->
                                                <td align="left" valign="top" colspan="3" nowrap><table width="100%" height="1" cellspacing="0" border="0" cellpadding="0"><tr><td><span class="regLabel1">&nbsp;</span></td><td><span class="regLabel5">Are you from the Diocese of Los Angeles?&nbsp;&nbsp;&nbsp;</span><input type='checkbox' name='ChkDiocese' value='Yes'onClick="Toggle()"></td></tr></table></td>
                                          </tr>
                                          
                                          <tr id='ParishDiocese'>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;Parish:&nbsp;</span>
                                                </td>
                                                <td align="left" valign="top">
                                                      <% Call SetSelectValuesAndHighlightWithSelect("select_parish", "regselect3", "", "exec spVolunteerRegistration_ListParishes", "ID", "Descr", ParishID)%>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                                                        
                                          <tr>
                                                <td align="left" valign="middle" nowrap colspan="3" height="5"><img src="images/h_line_1.gif" width="272" height="1"></td>
                                          </tr>
                                          <tr height="100%"><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END ADDRESS TABLE -->
                              </td>
                        </tr>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr id='HousingData'>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- HOUSING TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="left" colspan="3" bgcolor="#073971"><span class="regLabel2">&nbsp;&nbsp;Private&nbsp;Housing&nbsp;for&nbsp;volunteers</span></td></tr>
                                          <tr><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="2"></td></tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <input type="radio" name="housing_radio" value="provide" <% If CanProvidehousing="True" Then Response.Write "checked"%>>
                                                </td>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;I can provide volunteer housing.&nbsp;</span>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <input type="radio" name="housing_radio" value="require" <% If NeedsHousing="True" Then Response.Write "checked"%>>
                                                </td>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;I require volunteer housing. (Housing for Southern Ohio Volunteers only).&nbsp;</span>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <input type="radio" name="housing_radio" value="houseonly" <% If ProvideHousingOnly="True" Then Response.Write "checked"%>>
                                                </td>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;I can provide volunteer housing and I am not volunteering.&nbsp;</span>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap>
                                                      <input type="radio" name="housing_radio" value="na" <% If ProvideHousingOnly="False" AND NeedsHousing="False" AND CanProvidehousing="False" Then Response.Write "checked"%>>
                                                </td>
                                                <td align="left" valign="top" nowrap>
                                                      <span class="regLabel1">&nbsp;N/A&nbsp;</span>
                                                </td>
                                                <td width="100%"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td>
                                          </tr>
                                          <tr height="100%"><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END HOUSING TABLE -->
                              </td>
                        </tr>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- AVAILABILITY TABLE -->
                                    <%
                                          NumOfPreDays=0
                                          NumOfConventionDays=0
                                          NumOfDays=0
                                          strSQL="exec spVolunteerRegistration_ListDates"
                                          Set rsGetData=adocon.Execute(strSQL)
                                          If NOT rsGetData.EOF Then
                                                While NOT rsGetData.EOF
                                                      If rsGetData("PreConvention")="True" Then
                                                            NumOfPreDays=NumOfPreDays + 1
                                                      Else
                                                            NumOfConventionDays=NumOfConventionDays + 1
                                                      End If
                                                      NumOfDays=NumOfDays + 1

                                                      DayName=WEEKDAYNAME(WEEKDAY(rsGetData("DayDate")),TRUE)
                                                      ShortDate=MONTH(rsGetData("DayDate")) & "/" & DAY(rsGetData("DayDate"))

                                                      REDIM PRESERVE Date_Text(NumOfDays)
                                                      Date_Text(NumOfDays)=DayName & "<br>" & ShortDate

                                                      REDIM PRESERVE Date_ID(NumOfDays)
                                                      Date_ID(NumOfDays)=rsGetData("DayID")

                                                      REDIM PRESERVE Vol_Available(NumOfDays)
                                                      REDIM PRESERVE Vol_Assigned(NumOfDays)
                                                      If LEN(VolunteerID)>0 Then
                                                            ''********* See If Volunteer indicated this day as being available *******
                                                            Vol_Available(NumOfDays)=""
                                                            strSQL_Sup="exec spEditVolunteer_GetVolunteerAvailabilityThisDay " & VolunteerID & ", '" & rsGetData("DayDate") & "'"
                                                            Set rsGetData_Sup=adocon.Execute(strSQL_Sup)
                                                            If NOT rsGetData_Sup.EOF Then
                                                                  While NOT rsGetData_Sup.EOF
                                                                        Vol_Available(NumOfDays)=Vol_Available(NumOfDays) & TRIM(rsGetData_Sup("AMPM"))
                                                                        rsGetData_Sup.MoveNext
                                                                  Wend
                                                            End If

                                                            ''********* See If this day has a shift assigned to the volunteer *******
                                                            Vol_Assigned(NumOfDays)=""
                                                            strSQL_Sup="exec spEditVolunteer_GetVolunteerShiftsThisDay " & VolunteerID & ", " & MONTH(rsGetData("DayDate")) & ", " & DAY(rsGetData("DayDate")) & ", " & YEAR(rsGetData("DayDate"))
                                                            Set rsGetData_Sup=adocon.Execute(strSQL_Sup)
                                                            If NOT rsGetData_Sup.EOF Then
                                                                  While NOT rsGetData_Sup.EOF
                                                                        Vol_Assigned(NumOfDays)=Vol_Assigned(NumOfDays) & TRIM(rsGetData_Sup("AMPM"))
                                                                        rsGetData_Sup.MoveNext
                                                                  Wend
                                                            End If
                                                      Else
                                                            Vol_Available(NumOfDays)=""
                                                            Vol_Assigned(NumOfDays)=""
                                                      End If

                                                      rsGetData.MoveNext
                                                Wend
                                          Else
                                                NumOfPreDays=0
                                                NumOfConventionDays=0
                                                NumOfDays=0
                                          End If

                                          If NumOfDays=0 Then
                                                Response.Write "<center><span class=""Label4"">No Convention dates have been set!</span></center>"
                                                Response.End
                                          End If

                                          ColWidth=100 / (NumOfDays+2)
                                          Bgcolour="#E5EBE8"
                                    %>
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="0">
                                          <tr><td valign="middle" width="100%" align="left" colspan="<%Response.Write NumOfDays+2%>" bgcolor="#073971"><span class="regLabel2">&nbsp;&nbsp;Select Your Availability</span></td></tr>
                                          <tr>
                                                <td align="left" valign="top" nowrap colspan="2" style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;" width="<%Response.Write ColWidth * 2%>%"><span class="regLabel1">&nbsp;</span><input type="hidden" name="numdays" value="<%Response.Write NumOfDays%>"></td>
                                                <td bgcolor="#CAD2DC" align="center" valign="top" nowrap colspan="<%Response.Write NumOfPreDays%>" style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;" width="<%Response.Write ColWidth * NumOfPreDays%>%"><span class="regLabel3">Pre Convention</span></td>
                                                <td bgcolor="#CADCD3" align="center" valign="top" nowrap colspan="<%Response.Write NumOfConventionDays%>" style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;" width="<%Response.Write ColWidth * NumOfConventionDays%>%"><span class="regLabel3">General Convention</span></td>
                                          </tr>
                                          <tr>
                                                <td bgcolor="#E5EBE8" align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;" width="<%Response.Write ColWidth%>%"><span class="regLabel3">SELECT</span></td>
                                                <td align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;" width="<%Response.Write ColWidth%>%"><span class="regLabel3">DATE</span></td>
                                                <%
                                                Bgcolour="#FFFFFF"
                                                For X=1 to NumOfDays
                                                      If Bgcolour="#E5EBE8" Then
                                                            Bgcolour="#FFFFFF"
                                                      Else
                                                            Bgcolour="#E5EBE8"
                                                      End If
                                                      Response.Write "<td bgcolor=""" & Bgcolour & """ align=""center"" valign=""middle"" nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"" width=""" & ColWidth & "%""><span class=""regLabel6"">" & Date_Text(X) & "</span></td>"
                                                Next
                                                %>
                                          </tr>
                                          <tr>
                                                <td bgcolor="#E5EBE8" align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;" width="<%Response.Write ColWidth%>%"><img src="Images/btn_all_small.gif" width="32" height="11" border="0" alt="Select all AM Dates" Onclick="SelectAllAM()" style="cursor: pointer;"></td>
                                                <td align="center" valign="top" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;" title="(6:00am - 1:00pm)" width="<%Response.Write ColWidth%>%"><span class="regLabel1">AM</span></td>
                                                <%
                                                Bgcolour="#FFFFFF"
                                                For X=1 to NumOfDays
                                                      If Bgcolour="#E5EBE8" Then
                                                            Bgcolour="#FFFFFF"
                                                      Else
                                                            Bgcolour="#E5EBE8"
                                                      End If

                                                      If InStr(1,Vol_Available(X),"AM",1)>0 Then
                                                            Day_Check="checked"
                                                      Else
                                                            Day_Check=" OnClick='CountShifts()' "
                                                      End If

                                                      If InStr(1,Vol_Assigned(X),"AM",1)>0  Then
                                                            Day_Disable="true"
                                                            Day_Check="checked  OnClick='this.checked=true' "
                                                            Temp_BGcolour=Bgcolour
                                                            BGcolour="#FFE60F"
                                                      Else
                                                            Day_Disable="false"
                                                            Temp_BGcolour=Bgcolour
                                                      End If

                                                      Response.Write "<td bgcolor=""" & Bgcolour & """ align=""center"" valign=""top"" nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"" width=""" & ColWidth & "%""><input type=""checkbox"" name=""day_" & X & "_am"" " & Day_Check & "><input type=""hidden"" name=""date_id_" & X & " value=""" & Date_ID(X) & """><input type=""hidden"" name=""day_" & X & "_am_disable"" value=""" & Day_Disable & """></td>"

                                                      Bgcolour=Temp_BGcolour

                                                Next
                                                %>
                                          </tr>
                                          <tr>
                                                <td bgcolor="#E5EBE8" align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;" width="<%Response.Write ColWidth%>%"><img src="Images/btn_all_small.gif" width="32" height="11" border="0" alt="Select all PM Dates" Onclick="SelectAllPM()" style="cursor: pointer;"></td>
                                                <td align="center" valign="top" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;" title="(12:00pm - 7:00pm)" width="<%Response.Write ColWidth%>%"><span class="regLabel1">PM</span></td>
                                                <%
                                                Bgcolour="#FFFFFF"
                                                For X=1 to NumOfDays
                                                      If Bgcolour="#E5EBE8" Then
                                                            Bgcolour="#FFFFFF"
                                                      Else
                                                            Bgcolour="#E5EBE8"
                                                      End If

                                                      If InStr(1,Vol_Available(X),"PM",1)>0  Then
                                                            Day_Check="checked"
                                                      Else
                                                            Day_Check=" OnClick='CountShifts()' "
                                                      End If

                                                      If InStr(1,Vol_Assigned(X),"PM",1)>0  Then
                                                            Day_Disable="true"
                                                            Day_Check="checked  OnClick='this.checked=true' "
                                                            Temp_BGcolour=Bgcolour
                                                            BGcolour="#FFE60F"
                                                      Else
                                                            Day_Disable="false"
                                                            Temp_BGcolour=Bgcolour
                                                      End If

                                                      Response.Write "<td bgcolor=""" & Bgcolour & """ align=""center"" valign=""top"" nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"" width=""" & ColWidth & "%""><input type=""checkbox"" name=""day_" & X & "_pm"" " & Day_Check & "><input type=""hidden"" name=""day_" & X & "_pm_disable"" value=""" & Day_Disable & """></td>"

                                                      Bgcolour=Temp_BGcolour
                                                Next
                                                %>
                                          </tr>
                                    
                                          <tr>
                                                <td bgcolor="#E5EBE8" align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;" width="<%Response.Write ColWidth%>%"><img src="Images/btn_all_small.gif" width="32" height="11" border="0" alt="Select all Day Dates" Onclick="SelectAllDAY()" style="cursor: pointer;"></td>
                                                <td align="center" valign="top" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;" title="(6:00am - 7:00pm)" width="<%Response.Write ColWidth%>%"><span class="regLabel1">ALL DAY</span></td>
                                                <%
                                                Bgcolour="#FFFFFF"
                                                For X=1 to NumOfDays
                                                      If Bgcolour="#E5EBE8" Then
                                                            Bgcolour="#FFFFFF"
                                                      Else
                                                            Bgcolour="#E5EBE8"
                                                      End If

                                                      If InStr(1,Vol_Available(X),"AP",1)>0 Then
                                                            Day_Check="checked"
                                                      Else
                                                            Day_Check=" OnClick='CountShifts()' "
                                                      End If

                                                      If InStr(1,Vol_Assigned(X),"AP",1)>0 Then
                                                            Day_Disable="true"
                                                            Day_Check="checked  OnClick='this.checked=true' "
                                                            Temp_BGcolour=Bgcolour
                                                            BGcolour="#FFE60F"
                                                      Else
                                                            Day_Disable="false"
                                                            Temp_BGcolour=Bgcolour
                                                      End If

                                                      Response.Write "<td bgcolor=""" & Bgcolour & """ align=""center"" valign=""top"" nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"" width=""" & ColWidth & "%""><input type=""checkbox"" name=""day_" & X & "_ap"" " & Day_Check & "><input type=""hidden"" name=""day_" & X & "_ap_disable"" value=""" & Day_Disable & """></td>"

                                                      Bgcolour=Temp_BGcolour
                                                Next
                                                %>
                                          </tr>                                          
                                          <tr bgcolor="#EDF1EF"><td colspan="<%Response.Write NumOfDays+2%>" align="left" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;"><span class="regLabel4">*</span><span class="regLabel1">&nbsp;Maximum number of shifts you are willing to work:&nbsp;</span><% Call WriteTextField("MaxShifts", MaximumNumberShifts, "regtextbox4", "regtextbox3Highlight", " MAXLENGTH=3 OnBlur='NumShiftsSet()' disabled='true' font-weight='bold' ") %><input type="hidden" name="TotalAvailableDays" value="0"><span class="regLabel1">&nbsp;Shift Hours :&nbsp;&nbsp;&nbsp;<strong>AM</strong>&nbsp;&nbsp;6.00 a.m&nbsp;- 12.00 p.m&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong>PM</strong>&nbsp;&nbsp;1.00 p.m&nbsp;- 7.00 p.m&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong>ALL DAY</strong>&nbsp;&nbsp;6.00 a.m&nbsp;- 7.00 p.m</span></td></tr>
                                          <tr><td colspan="<%Response.Write NumOfDays+2%>" align="left" valign="middle"><span class="regLabel1">&nbsp;Please note that due to the legislative schedule, some shifts may cross from AM to PM and may include evening shifts for committee meetings, hearings and legislative sessions.&nbsp;</span></td></tr>
                                          <tr><td valign="middle" width="100%" align="left" colspan="<%Response.Write NumOfDays+2%>"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                                    </table>
                                    <!-- END AVAILABILITY TABLE -->
                              </td>
                        </tr>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- SKILLS TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="left" colspan="4" bgcolor="#073971"><span class="regLabel4">*</span><span class="regLabel1">&nbsp;<span class="regLabel2">&nbsp;&nbsp;Please indicate your abilities by checking the appropriate boxes (identify at least one ability, check all that apply)</span></td></tr>
                                          <%
                                          SkillCounter=0
                                          strSQL="exec spVolunteerRegistration_ListSkills"
                                          Set rsGetData=adocon.Execute(strSQL)
                                          If NOT rsGetData.EOF Then
                                                While NOT rsGetData.EOF
                                                      SkillCounter=SkillCounter+1
                                                      Bgcolour="#FFFFFF"
                                                      If LEN(VolunteerID)>0 Then
                                                            strSQL_Sup="exec spEditVolunteer_GetVolunteerSkill " & VolunteerID & ", " & rsGetData("SkillID")
                                                            Set rsGetData_Sup=adocon.Execute(strSQL_Sup)
                                                            If NOT rsGetData_Sup.EOF Then
                                                                  Vol_This_Skill="checked"
                                                            Else
                                                                  Vol_This_Skill=""
                                                            End If

                                                            strSQL_Sup="exec spGetShiftsForVolunteer " & VolunteerID
                                                            Set rsGetData_Sup = adoCon.Execute(strSQL_Sup)
                                                            While NOT rsGetData_Sup.EOF
                                                                  If rsGetData_Sup("SkillID")=rsGetData("SkillID") Then
                                                                        Vol_Skill_Assigned=" OnClick='this.checked=true' "
                                                                        BGcolour="#FFE60F"
                                                                  Else
                                                                        Vol_Skill_Assigned=""
                                                                  End If
                                                            rsGetData_Sup.MoveNext
                                                            Wend
                                                      Else
                                                            Vol_This_Skill=""
                                                            Vol_Skill_Assigned=""
                                                      End If

                                                      Response.Write "<tr>"
                                                      Response.Write "<td nowrap bgcolor=""" & BGcolour & """>"
                                                      Response.Write "<input type=""checkbox"" name=""skill_" & rsGetData("SkillID") & """ " & Vol_This_Skill & " " & Vol_Skill_Assigned & ">"
                                                      Response.Write "<input type=""hidden"" name=""skill_id_" & SkillCounter & """ value=""" & rsGetData("SkillID") & """>"
                                                      Response.Write "<input type=""hidden"" name=""skill_descr_" & rsGetData("SkillID") & """ value=""" & rsGetData("SkillDescr") & """>"
                                                      Response.Write "</td>"
                                                      Response.Write "<td nowrap bgcolor=""" & BGcolour & """>"
                                                      Response.Write "<span class=""regLabel1"">" & rsGetData("SkillDescr") & "&nbsp;</span>"
                                                      Response.Write "</td>"
                                                      Response.Write "<td nowrap>"
                                                      Response.Write "<span class=""regLabel1""><i>e.g. " & rsGetData("ExampleJobs") & "</i></span>"
                                                      Response.Write "</td>"
                                                      Response.Write "<td width=""100%""><img src=""images/tran_pix_1x1.gif"" width=""1"" height=""1""></td>"
                                                      Response.Write "</tr>"
                                                      rsGetData.MoveNext
                                                Wend
                                          Else

                                          End If

                                          %>
                                          <tr height="100%"><td colspan="4" valign="top"><input type="hidden" name="numskills" value="<%Response.Write SkillCounter%>"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END SKILLS TABLE -->
                              </td>
                        </tr>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- EXPERIENCE TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="left" colspan="4" bgcolor="#073971"><span class="regLabel2">&nbsp;&nbsp;Experience (check all that apply)</span></td></tr>
                                          <%
                                          SkillCounter=0
                                          strSQL="exec spVolunteerRegistration_ListExperiences"
                                          Set rsGetData=adocon.Execute(strSQL)
                                          If NOT rsGetData.EOF Then
                                                While NOT rsGetData.EOF
                                                      SkillCounter=SkillCounter+1
                                                      Bgcolour="#FFFFFF"
                                                      If LEN(VolunteerID)>0 Then
                                                            strSQL_Sup="exec spEditVolunteer_GetVolunteerExperience " & VolunteerID & ", " & rsGetData("ExperienceID")
                                                            Set rsGetData_Sup=adocon.Execute(strSQL_Sup)
                                                            If NOT rsGetData_Sup.EOF Then
                                                                  Vol_This_Skill="checked"
                                                            Else
                                                                  Vol_This_Skill=""
                                                            End If
                                                      Else
                                                            Vol_This_Skill=""
                                                      End If

                                                      Response.Write "<tr>"
                                                      Response.Write "<td nowrap bgcolor=""" & BGcolour & """>"
                                                      Response.Write "<input type=""checkbox"" name=""experience_" & rsGetData("ExperienceID") & """ " & Vol_This_Skill & ">"
                                                      Response.Write "<input type=""hidden"" name=""experience_id_" & SkillCounter & """ value=""" & rsGetData("ExperienceID") & """>"
                                                      Response.Write "<input type=""hidden"" name=""experience_descr_" & rsGetData("ExperienceID") & """ value=""" & rsGetData("ExperienceDescr") & """>"
                                                      Response.Write "</td>"
                                                      Response.Write "<td nowrap bgcolor=""" & BGcolour & """>"
                                                      Response.Write "<span class=""regLabel1"">" & rsGetData("ExperienceDescr") & "&nbsp;</span>"
                                                      Response.Write "</td>"
                                                      Response.Write "<td nowrap>"
                                                      If LEN(rsGetData("ExampleJobs"))>1 Then
                                                            Response.Write "<span class=""regLabel1""><i>e.g. " & rsGetData("ExampleJobs") & "</i></span>"
                                                      Else
                                                            Response.Write "<span class=""regLabel1"">&nbsp;</span>"
                                                      End If
                                                      Response.Write "</td>"
                                                      Response.Write "<td width=""100%""><img src=""images/tran_pix_1x1.gif"" width=""1"" height=""1""></td>"
                                                      Response.Write "</tr>"

                                                      rsGetData.MoveNext
                                                Wend
                                          Else

                                          End If

                                          %>
                                          <tr height="100%"><td colspan="4" valign="top"><input type="hidden" name="numexperience" value="<%Response.Write SkillCounter%>"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END EXPERIENCE TABLE -->
                              </td>
                        </tr>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- ADDITIONAL INFO TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="left" colspan="3" bgcolor="#073971"><span class="regLabel2">&nbsp;Enter any additional relevant comments below (e.g. additional contact information, or any physical challenges you may have).</span></td></tr>
                                          <tr>
                                                <td align="center" valign="top" nowrap colspan="3">
                                                      <textarea name="Comments" style="width: 90%; "><%Response.Write Comments%></textarea>
                                                </td>
                                          </tr>
                                          <tr height="100%"><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END ADDITIONAL INFO TABLE -->
                              </td>
                        </tr>

                        <% If ShowShifts="True" AND LEN(VolunteerID)>=1 Then %>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- ASSIGNED SHIFTS TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="left" colspan="4" bgcolor="#073971"><span class="regLabel2">&nbsp;&nbsp;Assigned Shifts</span></td></tr>
                                          <tr>
                                                <td align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;"><span class="regLabel3">DATE</span></td>
                                                <td align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"><span class="regLabel3">START</span></td>
                                                <td align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"><span class="regLabel3">END</span></td>
                                                <td align="center" valign="middle" nowrap style="border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"><span class="regLabel3">AREA</span></td>

                                          <%
                                          strSQL="exec spEditVolunteer_GetVolunteerShifts " & VolunteerID
                                          Set rsGetData=adocon.Execute(strSQL)
                                          If NOT rsGetData.EOF Then
                                                While NOT rsGetData.EOF
                                                      Response.Write "<tr>"

                                                      Response.Write "<td nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 0px;"">"
                                                      Response.Write "<span class=""regLabel1"">&nbsp;" & WEEKDAYNAME(WEEKDAY(rsGetData("StartTime"))) & " " &  FORMATDATETIME(rsGetData("StartTime"), vbShortDate) & "</span>"
                                                      Response.Write "</td>"

                                                      Response.Write "<td nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"">"
                                                      Response.Write "<span class=""regLabel1"">&nbsp;" & FORMATDATETIME(rsGetData("StartTime"), vbShortTime) & "</span>"
                                                      Response.Write "</td>"

                                                      Response.Write "<td nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"">"
                                                      Response.Write "<span class=""regLabel1"">&nbsp;" & FORMATDATETIME(rsGetData("EndTime"), vbShortTime) & "</span>"
                                                      Response.Write "</td>"

                                                      Response.Write "<td nowrap style=""border-color: #c0c0c0; border-style: solid; border-width: 0px 0px 1px 1px;"">"
                                                      Response.Write "<span class=""regLabel1"">&nbsp;" & rsGetData("AreaDescr") & "</span>"
                                                      Response.Write "</td>"

                                                      Response.Write "</tr>"

                                                      rsGetData.MoveNext
                                                Wend
                                          Else
                                                      Response.Write "<tr>"
                                                      Response.Write "<td nowrap colspan=""4"" align=""center"">"
                                                      Response.Write "<span class=""regLabel1"">No shifts have been assigned for this volunteer</span>"
                                                      Response.Write "</td>"
                                                      Response.Write "</tr>"
                                          End If
                                          %>
                                          <tr height="100%"><td colspan="4" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END ASSIGNED SHIFTS TABLE -->
                              </td>
                        </tr>
                        <%End If%>


                        <% If ShowSubmit="True" Then %>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                        <tr>
                              <td colspan="3" align="left" valign="top" style="border-color: #073971; border-style: solid; border-width: 1px 1px 1px 1px;">
                                    <!-- SUBMIT TABLE -->
                                    <table width="100%" height="100%" cellspacing="0" border="0" cellpadding="1">
                                          <tr><td valign="middle" width="100%" align="left" colspan="3" bgcolor="#073971"><span class="regLabel2">&nbsp;&nbsp;Submit Volunteer Application</span></td></tr>
                                          <tr>
                                                <td align="left" valign="top" colspan="3">
                                                      <span class="regLabel1">Please check over the information you have entered, if everything is correct click the Submit button below. You will receive a notice that your application has been submitted.</span>
                                                </td>
                                          </tr>
                                          <tr>
                                                <td align="left" valign="top" colspan="3">
                                                      <span class="regLabel1">&nbsp;</span>
                                                      <input type="button" name="submit_form" value="Submit" class="regbutton1" OnClick="ValidateForm()">
                                                      <span class="regLabel3">&nbsp;<< Click here to submit your volunteer details</span>&nbsp;&nbsp;
                                                      <input type="button" name="preview_form" value="Preview" class="regbutton1" OnClick="PreviewForm()" >
                                                      <span class="regLabel3">&nbsp;<< Click here to preview the data before submitting</span>
                                                </td>
                                          </tr>
                                          <tr height="100%"><td colspan="3" valign="top"><img src="images/tran_pix_1x1.gif" width="1" height="1"></td></tr>
                                    </table>
                                    <!-- END SUBMIT TABLE -->
                              </td>
                        </tr>
                        <%End If%>
                        <tr><td colspan="3"><img src="images/tran_pix_1x1.gif" width="1" height="3"></td></tr>
                  </table>
            </td>
            <td><img src="images/tran_pix_1x1.gif" width="20" height="1"></td><!--Right Marg-->
      </tr>
</table

<%
Sub SetSelectValues(strName, strClass, strJScript, str_sql, id_value, id_descr)
      Dim rsGetSelect
      Response.Write "<select name=""" & strName & """ class=""" & strClass & """" & strJScript & ">"
      Set rsGetSelect = adoCon.Execute(str_sql)
      If NOT rsGetSelect.EOF Then
            While NOT rsGetSelect.EOF
                  Response.Write "<option value='" &       rsGetSelect(id_value) & "'>" & rsGetSelect(id_descr) & "</option>"
                  rsGetSelect.MoveNext
            Wend
      Else
            ''no data found
            Response.Write "<option value='0'> </option>"
      End If
      Response.Write "</select>"
End Sub

Sub SetSelectValuesAndHighlight(strName, strClass, strJScript, str_sql, id_value, id_descr, id_match)
      Dim rsGetSelect
      Response.Write "<select name=""" & strName & """ class=""" & strClass & """" & strJScript & ">"
      Set rsGetSelect = adoCon.Execute(str_sql)
      If NOT rsGetSelect.EOF Then
            While NOT rsGetSelect.EOF
                  If TRIM(rsGetSelect(id_value)) = TRIM(id_match) Then
                        Response.Write "<option value='" &       rsGetSelect(id_value) & "' selected style=""background-color: #FFF9A1"">" & rsGetSelect(id_descr) & "</option>"
                  Else
                        Response.Write "<option value='" &       rsGetSelect(id_value) & "'>" & rsGetSelect(id_descr) & "</option>"
                  End If
                  rsGetSelect.MoveNext
            Wend
      Else
            ''no data found
            Response.Write "<option value='0'>DB Error</option>"
      End If
      Response.Write "</select>"
End Sub

Sub SetSelectValuesAndHighlightWithSelect (strName, strClass, strJScript, str_sql, id_value, id_descr, id_match)
      Dim rsGetSelect
      Response.Write "<select name=""" & strName & """ class=""" & strClass & """" & strJScript & ">"
      Response.Write "<option value='0'>[SELECT]</option>"
      Set rsGetSelect = adoCon.Execute(str_sql)
      If NOT rsGetSelect.EOF Then
            While NOT rsGetSelect.EOF
                  If TRIM(rsGetSelect(id_value)) = TRIM(id_match) Then
                        Response.Write "<option value='" &       rsGetSelect(id_value) & "' selected style=""background-color: #FFF9A1"">" & rsGetSelect(id_descr) & "</option>"
                  Else
                        Response.Write "<option value='" &       rsGetSelect(id_value) & "'>" & rsGetSelect(id_descr) & "</option>"
                  End If
                  rsGetSelect.MoveNext
            Wend
      Else
            ''no data found
            Response.Write "<option value='0'>DB Error</option>"
      End If
      Response.Write "</select>"
End Sub

Sub WriteLabel(strText,strClass)
      Response.Write "<span class=""" & strClass & """>" & strText & "</span>"
End Sub

Sub WriteTextField(strName, strValue, strClass, strClass2, js)
      Response.Write "<input type=""text"" name=""" & strName & """ value=""" & strValue & """ class=""" & strClass & """ " & js & " onfocus=""javascript:this.className='" & strClass2 & "';"" onblur=""javascript:this.className='" & strClass & "';"" >"
End Sub

Sub WriteStaticTextField(strName, strValue, strClass, js)
      Response.Write "<input type=""text"" name=""" & strName & """ value=""" & strValue & """ class=""" & strClass & """ " & js  & " >"
End Sub
%>
Avatar of countrymeister
countrymeister

ASKER

this is what I get when I use the code you suggested

Prefix : [ Select ]
FirstName :
MiddleName :
LastName :

This is the code for preview_form.asp

<%@ Language=VBScript %>
<%
Prefix=trim(request("select_prefix"))
FirstName=trim(request("FirstName"))

MiddleName=trim(request("MiddleName"))

LastName=trim(request("LastName"))
BadgeTitle=trim(request("BadgeTitle"))
Suffix=trim(request("Suffix"))
Email=trim(request("Email"))
Phone=trim(request("Phone"))
EveningPhone=trim(request("EveningPhone"))
AlternativePhone=trim(request("AlternativePhone"))

Response.write "Prefix : " & Prefix & "<br>"
Response.write "FirstName : " & FirstName & "<br>"
Response.write "MiddleName : " & MiddleName & "<br>"
Response.write "LastName : " & LastName & "<br>"

%>

Avatar of countrymeister
countrymeister

ASKER

Third

I noticed something that could explain why the data is not getiing set
Error Type:
Microsoft JScript compilation (0x800A03EC)
Expected ';'
/preview_form.asp, line 16, column 15
Response.write "Prefix : " & Prefix & "<br>";
--------------^


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)

Page:
POST 2739 bytes to /preview_form.asp

POST Data:
volunteer_id=&redirect_to=thankyou.asp&form_action=register_save.asp&select_prefix=%5B+Select+%5D&FirstName=&MiddleName=&LastName=&Suffix=&BadgeTitle=&Email=&Phone=&EveningPhone=&AlternativePhone=&Add .
Avatar of countrymeister
countrymeister

ASKER

Third,

I am sorry , the code you sent did work, the issue was I was not entering the data on the register form
Avatar of third
third
Flag of Philippines image
sorry for arriving late. it seems you solved the problem now.

"Microsoft JScript compilation (0x800A03EC)"
are you using jscript on the server-side?