I am trying to set up the code so that the it takes the user from one form to a thank you page, then to another form and have some of the info from the first (last name, first name, email) into the second.

I managed to get the code to work in a simple, theoretical form but the form I'm modifying includes some VB script (does that conflict?) with some older HTML standards.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html>
<head>

<script language="JavaScript" type="text/javascript" src="sub_val.js"></script>
<script language="JavaScript" type="text/javascript" src="cookieForm.js"></script>

</head>


<body onload="cookieForms('open', 'yourform')" onunload="cookieForms('save', 'yourform')">
<!---Max Length fields are accurate to be allowed in the database---> <!---All fields are Varchar in the database except for text_only---> <!---  All Required fields are noted, not all are required.  All MM fields for a recipient are listed to use at your disposal.  When new custom fields are added to the subscription page, just use the next available field corresponding to the custom field number in MM  ---> 

<form action="http://www.magnetmail.net/actions/subscription_form_action.cfm" method="post" name="yourform" onsubmit="return validate_form ( );"> <!--- URL to action page which will store data ---> <input maxlength="10" name="user_id" type="hidden" value="jmu_" /> <!--- Required field when storing data ---><!--- This field is critical to proper storing of data | it is imperative never to change from: BNAInc---> 
<table border="0" cellspacing="5" cellpadding="0">
<tbody>
<tr>
<td>
<div align="right">* E-mail:</div>
</td>
<td><input maxlength="100" name="recipient_email" type="text" /> <!--- Required field when storing data ---></td>

</tr>
<tr>
<td>
<div align="right">* First Name:</div>
</td>
<td><input maxlength="50" name="recipient_first_name" type="text" /><!--- Required field when storing data ---></td>
</tr>
<tr>
<td>
<div align="right">* Last Name:</div>
</td>
<td><input maxlength="50" name="recipient_last_name" type="text" /><!--- Required field when storing data ---></td>
</tr>
<td>
<div align="right">Job Title:</div>
</td>
<td><input maxlength="50" name="custom17" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">Organization:</div>
</td>
<td><input maxlength="50" name="recipient_company" type="text" /></td>
</tr>
<tr>
<td>

<div align="right">Address 1:</div>
</td>
<td><input maxlength="100" name="recipient_address" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">Address 2:</div>
</td>
<td><input maxlength="100" name="recipient_address_2" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">City:</div>
</td>

<td><input maxlength="50" name="recipient_city" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">State:</div>
</td>
<td><input maxlength="50" name="recipient_state" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">Zip:</div>
</td>
<td><input maxlength="50" name="recipient_zip" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">Country:</div>
</td>
<td><input maxlength="50" name="custom18" type="text" /></td>
</tr>

<td>
<div align="right">Phone:</div>
</td>
<td><input maxlength="50" name="recipient_phone" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">Fax:</div>
</td>
<td><input maxlength="50" name="recipient_fax" type="text" /></td>
</tr>
<tr>
<td>
<div align="right">Website:</div>
</td>
<td><input maxlength="100" name="custom19" type="text" /> <!-- Graduation year, custom field #8 --></td>
</tr>
<tr>
<td></td>
<td>
<div align="center"><input name="set" type="submit" value="Submit" /></div>
</td>

</tr>
</tbody>
</table>

<br /> *<em>&nbsp;denotes required field</em> <!---URLs below were added as examples, they should be replaced with where the user should receive confirmation.---> <input name="subgroups" type="hidden" value="499706" /> <!--- Required field when storing data ---><!--- GROUPIDS can be found in the URL of the management of that group in MagnetMail ---> 

<input name="custom_validation_redir" type="hidden" value="http://maic.jmu.edu/development/news_thanks.html" /> <!---URL to where the original HTML form lives | must be a valid URL---> 

<input name="custom_end_location" type="hidden" value="http://maic.jmu.edu/development/news_thanks.html" /> <!--- Required field when storing data ---> <!---URL to where the confirmation page should go to | must be a valid URL. Ahem.---> 

</form>
</body>


</html>

And here's the cookie script straight off da interweb.

//<!-- This script and many more are available free online at -->

//<!-- The JavaScript Source!! http://javascript.internet.com -->

//<!-- Original:  Nick Baker -->

//<!-- Begin

// Cookie Functions  ////////////////////  (:)




// Set the cookie.

// SetCookie('your_cookie_name', 'your_cookie_value', exp);

// window.onload="cookieForms('open', 'yourform')";
// window.onunload="cookieForms('save', 'yourform')">


// Get the cookie.

// var someVariable = GetCookie('your_cookie_name');



var expDays = 100;

var exp = new Date(); 

exp.setTime(exp.getTime() + (expDays*24*60*60*1000));



function getCookieVal (offset) {  

	var endstr = document.cookie.indexOf (";", offset);  

	if (endstr == -1) { endstr = document.cookie.length; }

	return unescape(document.cookie.substring(offset, endstr));

}



function GetCookie (name) {  

	var arg = name + "=";  

	var alen = arg.length;  

	var clen = document.cookie.length;  

	var i = 0;  

	while (i < clen) {    

		var j = i + alen;    

		if (document.cookie.substring(i, j) == arg) return getCookieVal (j);    

		i = document.cookie.indexOf(" ", i) + 1;    

		if (i == 0) break;   

	}  

	return null;

}



function SetCookie (name, value) {  

	var argv = SetCookie.arguments;  

	var argc = SetCookie.arguments.length;  

	var expires = (argc > 2) ? argv[2] : null;  

	var path = (argc > 3) ? argv[3] : null;  

	var domain = (argc > 4) ? argv[4] : null;  

	var secure = (argc > 5) ? argv[5] : false;  

	document.cookie = name + "=" + escape (value) + 

	((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 

	((path == null) ? "" : ("; path=" + path)) +  

	((domain == null) ? "" : ("; domain=" + domain)) +    

	((secure == true) ? "; secure" : "");

}



// cookieForms saves form content of a page.



// use the following code to call it:

//  <body onLoad="cookieForms('open', 'form_1', 'form_2', 'form_n')" onUnLoad="cookieForms('save', 'form_1', 'form_2', 'form_n')">



// It works on text fields and dropdowns in IE 5+

// It only works on text fields in Netscape 4.5





function cookieForms() {  

	var mode = cookieForms.arguments[0];

	

	for(f=1; f<cookieForms.arguments.length; f++) {

		formName = cookieForms.arguments[f];

		

		if(mode == 'open') {	

			cookieValue = GetCookie('saved_'+formName);

			if(cookieValue != null) {

				var cookieArray = cookieValue.split('#cf#');

				

				if(cookieArray.length == document[formName].elements.length) {

					for(i=0; i<document[formName].elements.length; i++) {

					

						if(cookieArray[i].substring(0,6) == 'select') { document[formName].elements[i].options.selectedIndex = cookieArray[i].substring(7, cookieArray[i].length-1); }

						else if((cookieArray[i] == 'cbtrue') || (cookieArray[i] == 'rbtrue')) { document[formName].elements[i].checked = true; }

						else if((cookieArray[i] == 'cbfalse') || (cookieArray[i] == 'rbfalse')) { document[formName].elements[i].checked = false; }

						else { document[formName].elements[i].value = (cookieArray[i]) ? cookieArray[i] : ''; }

					}

				}

			}

		}

				

		if(mode == 'save') {	

			cookieValue = '';

			for(i=0; i<document[formName].elements.length; i++) {

				fieldType = document[formName].elements[i].type;

				

				if(fieldType == 'password') { passValue = ''; }

				else if(fieldType == 'checkbox') { passValue = 'cb'+document[formName].elements[i].checked; }

				else if(fieldType == 'radio') { passValue = 'rb'+document[formName].elements[i].checked; }

				else if(fieldType == 'select-one') { passValue = 'select'+document[formName].elements[i].options.selectedIndex; }

				else { passValue = document[formName].elements[i].value; }

			

				cookieValue = cookieValue + passValue + '#cf#';

			}

			cookieValue = cookieValue.substring(0, cookieValue.length-4); // Remove last delimiter

			

			SetCookie('saved_'+formName, cookieValue, exp);		

		}	

	}

}

//  End -->

<!-- STEP TWO: Insert the onLoad event handler into your BODY tag  -->


<!-- STEP THREE: Copy this code into the BODY of your HTML document  -->

Any suggestions would be GREATLY appreciate! :)

Recommended Answers

All 4 Replies

Oops, its actually the second form that has older HTML standard and VB script. Its the same deal, neither page will recognize its own cookies nor the cookies of the other...

<html>

<head>
<link rel="stylesheet" href="../homepage.css" type="text/css">
<title>MAIC Journal : Subscribe</title>
<base target="_top">
<meta name="Microsoft Border" content="b">

<link rel="stylesheet" type="text/css" href="subs.css">

<script language="JavaScript" type="text/javascript" src="cookieForm.js"></script>

</head>

<body onLoad="cookieForms('open', 'yourform')" onUnload="cookieForms('save', 'yourform')">
	<center>
	 <a href="http://maic.jmu.edu/journal/index/"><img src="JMA_masthead_new.jpg" border="0" style="border-bottom: 1px solid black; border-left: 1px solid black;"/></a>
	
	<!-- #include virtual="journal/index/navigation.htm" -->
    <div id="textSub">
    <p align="center"><font size="4" color="#000000"><b>&nbsp;<br />
    Subscribe</b></font>
    <br />Once again, we appreciate your support of our organization!  If you would like more information about ERWs and other mine news, consider signing up for our electronic (and print) Journal, apporpriately called, The Journal.  If interested, fill out the form below!  
    <br />
    <br />
    Not interested? Go back to the <a href="http://maic.jmu.edu">home page.</a>
    
    </p>
    </div>
    <%
'We can change the color of the error messages here.
dim ErrorColor, FormFontColor, FormBackColor
ErrorColor="red"
FormFontColor="navy"
FormBackColor="beige"

'This section performs error checking on the form after it is submitted.
'We manually go through each field that we feel is mandatory for the purpose
'of the form and make sure that the user has chosen to either subscribe to 
'the Journal and/or requested the email newsletter.

Function ValidateField(sFieldvalue, sFieldtype)
	ValidField = true
	Select Case LCase(sFieldtype)
		Case "name"
		If Len(sFieldvalue) = 0 Then ValidField = False
		Case "email"
			If Len(sFieldvalue) = 0 Then
				ValidField = True
			Elseif Len(sFieldvalue) < 5 Then
				ValidField = False
			Else
				If InStr(1, sFieldvalue, "@", 1) < 2 Then
					ValidField = False
				Else
					'If InStr(1, sFieldvalue, ".", 1) < 4 Then
					'	ValidField = False
					'End If
				End If
			End If
		Case "address"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "phone"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "stateprov"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "zip"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "country"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "city"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "jobtitle"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "organization"
			If Len(sFieldvalue) = 0 Then ValidField = False
		Case "organizationtype"
			IF sFieldvalue = "Choose one..." Then ValidField = False
		Case "laji"
			If sFieldvalue <> "maic" Then ValidField = False
	End Select

ValidateField = ValidField
End Function

Sub ShowForm
%>
    <form action="<%Request.ServerVariables("Script_Name")%>" method="POST" name="yourform">
      <center>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="200" height="578">
        <tr>
          <td width="540" colspan="2" height="1"></td>
        </tr>
        <tr>
          <td colspan="2" width="540" height="91">
          <p align="left"><b>I would like to</b>: (required)<br>
          <input type="radio" name="Subscribe" value="ON" checked> Subscribe to 
          the Journal<br>
          <input type="radio" name="Subscribe" value="OFF"> Unsubscribe from the 
          Journal<br>
          <input type="radio" name="Subscribe" value="OFF"> Update the address for my Journal subscription<br>
          
 <!--         <a href="../../../newsletters/newsletter/newsletter.asp">Subscribe to MAIC's periodic email newsletter 
			</a> <br>
			<a href="../../../newsletters/newsletter/newsletter.asp">
			<img border="0" src="../../../images/assortedgraphics/old_newsletterbutton.gif" width="217" height="29"></a> -->
          <p align="left"><b>I am interested in</b>: (optional)</p>
          </td>
        </tr>
        <tr>
          <td width="50%" align="left" valign="top">
          <p align="left"><font face="Verdana">
          <input type="checkbox" name="interest" value="Mine Awareness"> Mine Awareness<br>
          <input type="checkbox" name="interest" value="Survey/Clearance"> Survey 
          and Clearance<br>
          <input type="checkbox" name="interest" value="Victim Assistance"> Victim 
          Assistance<br>
          <input type="checkbox" name="interest" value="Asia and the Pacific"> Asia 
          and the Pacific<br>
          <input type="checkbox" name="interest" value="Latin America"> Latin America<br>
          <input type="checkbox" name="interest" value="Middle East"> Middle East</font></p>
          </td>
          <td width="50%" align="left" valign="top">
          <p align="left"><font face="Verdana">
          <input type="checkbox" name="interest" value="Africa"> Africa<br>
          <input type="checkbox" name="interest" value="Europe and the Caucasus"> 
          Europe and the Caucasus<br>
          <input type="checkbox" name="interest" value="Manual Demining"> Manual 
          Demining<br>
          <input type="checkbox" name="interest" value="Mechanical Demining"> Mechanical 
          Demining<br>
          <input type="checkbox" name="interest" value="Mine Dogs"> Mine Dogs<br>
          <input type="checkbox" name="interest" value="Technology and Research"> 
          Technology and Research <br>
          <input type="checkbox" name="interest" value="Other"> Other&nbsp;
          <input name="intOther" type="text" value="<%= Request.Form("name") %>" SIZE="18" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial;"></input>

          </font></p>
          </td>
        </tr>
        <tr>
          <td width="292" height="23">
          <p align="left">&nbsp;</p>
          </td>
          <td width="248" height="23">
          <p align="left">&nbsp;</p>
          </td>
        </tr>
        <tr>
          <td width="540" height="19" colspan="2">
          <div align="left">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="461" height="320">
              <tr>
                <td width="458" height="23" colspan="3" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium">
                <p align="left"><font size="1" color="#FF0000">*</font><font size="1"> 
                denotes required field</font></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="22" valign="top" style="border-top-style: none; border-top-width: medium">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="22" valign="top" style="border-top-style: none; border-top-width: medium">
                <p align="left">First name</p>
                </td>
                <td width="314" height="22" align="left" valign="top" style="border-top-style: none; border-top-width: medium">
                <p align="left">&nbsp;<input id="recipient_first_name" name="recipient_first_name" type="text" value="<%= Request.Form("name") %>" SIZE="29" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("name")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Name needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
        
                </td>
              </tr>
              <tr>
              <td width="11" align="left" height="42" valign="top" style="border-top-style: none; border-top-width: medium">
                <font color="#FF0000" size="2">*</font></td>
              	<td width="133" align="left"height="42" valign="top"><p align="left">Last name</p></td>
                 <td width="320" height="42" align="left" valign="top" style="border-top-style: none; border-top-width: medium">
                <p align="left">&nbsp;<input id="recipient_last_name" name="recipient_last_name" type="text" value="<%= Request.Form("name") %>" SIZE="29" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input> </td>
                
&nbsp;<%
		If dictFields(LCase("name")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Name needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
        
              <br>
             
              
              </tr>
              <tr>
               <br> 
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Job Title</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="jobtitle" type="text" value="<%= Request.Form("jobtitle") %>" SIZE="29" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("jobtitle")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Title needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="10" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="10" valign="top">
                <p align="left">Organization</p>
                </td>
                <td width="314" height="10" align="left" valign="top">
                <p align="left">&nbsp;<input name="organization" type="text" value="<%= Request.Form("organization") %>" SIZE="29" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("organization")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Organization's name needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="10" valign="top"></td>
                <td width="133" align="left" height="10" valign="top">
                <font size="2">Organization Type<br>
&nbsp;</font></td>
                <td width="314" height="10" align="left" valign="top">&nbsp;<select size="1" value="<%= Request.Form("organizationtype") %>" name="organizationtype">
                <option>Other</option>
                <option>Intergovernmental Organization</option>
                <option>International Organization</option>
                <option>Military</option>
                <option>Government</option>
                <option>Corporate</option>
                <option>MAC or NDO</option>
                <option>Academic</option>
                </select> <br>
&nbsp;</td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">&nbsp;</td>
                <td width="447" align="left" height="20" valign="top" colspan="2">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="447">
                  <tr>
                    <td width="447" align="left" height="10" valign="top" colspan="2">
                    <font size="2">Organization Category (Choose one)</font></td>
                  </tr>
                  <tr>
                    <td width="215" align="left" height="10" valign="top">
                    <p align="left">
                    <input type="radio" value="Policy" name="Work">Policy<br>
                    <input type="radio" value="Awareness" name="Work">Awareness<br>
                    <input type="radio" value="Survey" name="Work">Survey<br>
                    <input type="radio" value="R&amp;D" name="Work">R&amp;D<br>
                    <input type="radio" value="Victim Assistance" name="Work">Victim 
                    Assistance<br>
                    <input type="radio" value="Clearance" name="Work">Clearance<br>
                    <input type="radio" value="Mine Dogs" name="Work">Mine Dogs<br>
                    <input type="radio" value="Technology" name="Work">Technology<br>
                    <input type="radio" value="Relief and Recovery" name="Work">Relief 
                    and Recovery<br>
                    <input type="radio" value="Humanitarian Affairs" name="Work">Humanitarian 
                    Affairs<br>
                    <input type="radio" value="Quality Assurance" name="Work">Quality 
                    Assurance<br>
                    <input type="radio" value="Children" name="Work">Children<br>
                    <input type="radio" value="Rehabilitation" name="Work">Rehabilitation<br>
                    <input type="radio" value="Advocacy and Ban" name="Work">Advocacy 
                    and Ban<br>
                    <input type="radio" value="Legal Issues" name="Work">Legal Issues<br>
                    <input type="radio" value="Information Management" name="Work">Information 
                    Management<br>
&nbsp;</p>
                    </td>
                    <td width="232" align="left" valign="top">
                    <p align="left">
                    <input type="radio" value="Socio-Economic 
                        Development" name="Work">Socio-Economic Development<br>
                    <input type="radio" value="Protective Equipment" name="Work">Protective 
                    Equipment<br>
                    <input type="radio" value="Education" name="Work">Education<br>
                    <input type="radio" value="Medicine" name="Work">Medicine<br>
                    <input type="radio" value="Training" name="Work">Training<br>
                    <input type="radio" value="Refugees and IDPs" name="Work">Refugees 
                    and IDPs<br>
                    <input type="radio" value="Reintegration" name="Work">Reintegration<br>
                    <input type="radio" value="Prosthetics" name="Work">Prosthetics<br>
                    <input type="radio" value="Landmine Identification" name="Work">Landmine 
                    Identification<br>
                    <input type="radio" value="Army" name="Work">Army<br>
                    <input type="radio" value="Demining" name="Work">Demining<br>
                    <input type="radio" value="Demining Equipment" name="Work">Demining 
                    Equipment<br>
                    <input type="radio" value="Fundraising and 
                        Sponsorship" name="Work">Fundraising and Sponsorship<br>
                    <input type="radio" value="Coordination" name="Work">Coordination<br>
                    <input type="radio" value="Resource Mobilization" name="Work">Resource 
                    Mobilization<br>
                    <input type="radio" value="true" name="Work">Other
                    <input type="text" name="orgOther" size="18"><br>
&nbsp;</p>
                    </td>
                  </tr>
                </table>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Address</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="address" type="text" value="<%= Request.Form("address") %>" SIZE="35" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("address")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Street address needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%> </p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">&nbsp;</td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Address 2</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="address2" type="text" value="<%= Request.Form("address2") %>" SIZE="35" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial;"></input>
                <br>
&nbsp; </p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">City</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="city" type="text" value="<%= Request.Form("city") %>" SIZE="24" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("city")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>City needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">State / Prov</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="stateprov" type="text" value="<%= Request.Form("stateprov") %>" SIZE="24" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("stateprov")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>State/Province needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Zip</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="zip" type="text" value="<%= Request.Form("zip") %>" SIZE="24" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("zip")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Zip code needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Country</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="country" type="text" value="<%= Request.Form("country") %>" SIZE="24" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("country")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Country needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Phone</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="phone" type="text" value="<%= Request.Form("phone") %>" SIZE="24" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></input>
                <br>
&nbsp;<%
		If dictFields(LCase("phone")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Phone number needed</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">&nbsp;</td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Fax</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="fax" type="text" value="<%= Request.Form("fax") %>" SIZE="24" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial;"></input>
                <br>
&nbsp;</p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">E-mail</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="recipient_email" type="text" value="<%= Request.Form("email") %>" SIZE="35" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial;"></input>
               <%
		If dictFields(LCase("email")) Then
		Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Not a valid email address.</font>"
	Else		
		Response.Write "&nbsp;"
		End If
		%></p>
                </td>
              </tr>
               <tr id="hide"><td></td><td>Message: </td><td><input type="text" name="URL" value=""></td>
               						<%
										If Request.form("URL") <> "" Then
											Response.Redirect "http://maic.jmu.edu"
										End If
									%>
               
               </tr>
									
              <tr>
                <td width="11" align="left" height="20" valign="top">&nbsp;</td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Website</p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="website" type="text" value="<%= Request.Form("website") %>" SIZE="35" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial;"></input>
                <br>
&nbsp; </p>
                </td>
              </tr>
              <tr>
                <td width="11" align="left" height="20" valign="top">
                <font color="#FF0000" size="2">*</font></td>
                <td width="133" align="left" height="20" valign="top">
                <p align="left">Verification: </p>
                </td>
                <td width="314" height="20" align="left" valign="top">
                <p align="left">&nbsp;<input name="laji" type="text" value="<%= Request.Form("laji") %>" SIZE="35" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial;"></input>
                <br>Please enter <u>maic</u> in the textbox above. This is used to prevent spam! Thank you!<%
							If dictFields(LCase("laji")) Then
								Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2><br>Please enter the validation code <u>maic</u>.</font>"
							Else
								Response.Write "&nbsp;"
							End If
							%></p>
                </td>
              </tr>
              
              <tr>
                </div>
                </td>
              </tr>
              <tr>
                <td width="540" colspan="3" height="26" align="center">
                <p align="left"></p>
                </td>
              </tr>
              <tr>
                <td colspan="3" width="540" height="26">
                <p align="center"><input type="submit" value="Submit"><input type="reset" value="Reset">
                </p>
                </td>
              </tr>
            </table>
            </center>
          </div>
          <p>
<%
End Sub
'-------------------------------------------------------------------------------------------------------
             
'This section creates the text message for the email and sends the email. 
'Strings are created to hold either values of created in the form or assigned
'values after simple tests of "ON".
dim subscribeJournal, subscribeCall, subscribeText, interestText, address, work, countInterests, i, dictFields
dim	errorCount, Field, ValidField

'This section tests for if the user wants a subscription and/or the email newsletter.
'A string is created that holds text to be sent in an email.
if Request.Form("Subscribe") = "ON" then
	SubscribeJournal = "Send Me the Journal of Mine Action."
else
	SubscribeJournal = "Unsubscribe me from the Journal."
end if
'if Request.Form("Newsletter") = "ON" then
'	SubscribeCall = SubscribeText & "Sign me up for the email newsletter."
'else
'	SubscribeCall = SubscribeText & "Don't sign me up for the email newsletter."
'end if

'This section reads all of the checkboxes for interests and places their
'values in the interestText string. This also includes a test to check 
'for the OTHER checkbox. If it is checked, we get the text typed in the 
'OTHER text area.
countInterests = Request.Form("interest").COUNT

For i=1 to countInterests
	if countInterests = 1 then
		if Request.Form("interest")(i) = "Other" then
			interestText = Request.Form("intOther")
		else
			interestText = Request.Form("interest")
		end if
	else
		if i=1 then
			interestText = Request.Form("interest")(i)
		elseif Request.Form("interest")(i) = "Other" then
			interestText = interestText & ", Other: " & Request.Form("intOther")
		else 
			interestText = interestText & ", " & Request.Form("interest")(i)
		end if	
	end if
Next

'This section checks the type of work that the organization mainly 
'does. If the check the OTHER box, the WORK variable will be set to
'the value of the OTHER box.

If request.form("work") = "true" then
	work = "Other: " & request.form("orgOther")
Else
	work = request.form("work")
End If

'-----------------------------------------------------------------------------
Set dictFields = Server.CreateObject("Scripting.Dictionary")
errorCount = dictFields.Count
For Each Field in Request.Form	
	If ValidateField(Request.Form(Field), Field) = False Then
		dictFields.Add LCase(Field), true
	End If
Next
'----------------------------------------------------------------------------

if Request.Form.Count <> 0 AND dictFields.Count = 0 then
	
	dim objNewMail

	Set objNewMail = CreateObject("CDO.Message")
	
	objNewMail.Subject = "Journal Subscription/Unsubscription"
	
	objNewMail.From = request.form("email")
	objNewMail.TO = "maic.jmu@gmail.com, maicdatabase@gmail.com"
	
	objNewMail.TextBody = subscribeJournal & vbcrlf & subscribeCall & vbcrlf & vbcrlf & "CONTACT INFORMATION: " & vbcrlf & "Name: " & request.form("name") & vbcrlf & "Title: " & request.form("jobtitle") & vbcrlf & "Organization: " & request.form("organization") & vbcrlf & "Org. Type: " & request.form("organizationtype") & vbcrlf & "Org. Work: " & work & vbcrlf & "Address 1: " & request.form("address") & vbcrlf & "Address 2: " & request.form("address2") & vbcrlf & "Address City/St/Zip: " & request.form("city") & ", " & request.form("stateprov") & ", " & request.form("zip") & vbcrlf & "Country: " & request.form("country") & vbcrlf & "Phone: " & request.form("phone") & vbcrlf & "Fax: " & request.form("fax") & vbcrlf & "E-mail: " & request.form("email") & vbcrlf & "Website: " & request.form("website") & vbcrlf & "Interests: " & interestText
	
	objNewMail.Send
	set objNewMail = nothing

	%> </p>
          <table border="0" cellpadding="0" cellspacing="15" width="100%">
            <tr>
              <td width="100%"><b><font size="2">Your request has been sent.</font></b></p>
          <p>If you have any questions about the Journal of Mine Action, please 
          feel free to email the editor at <a href="mailto:maic@jmu.edu">
          maic@jmu.edu</a>.&nbsp;
          	 </td>
            </tr>
          </table>
	<%  
Else
		Response.Write "<center><font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>* Please fill out the required information.</p></font></center>"

	Call ShowForm
End If
%> </p>
          </td>
        </tr>
      </table>
      </center>
    </form>
    <p align="left">&nbsp;</p>
    </td>
  </tr>
</table>
</center>

<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>
<p></p>

</td></tr><!--msnavigation--></table></body>

</html>

VB != javascript.

@fxm
Thanks for the clarification but I acknowledge that in my description.

To quote myself, "I am trying to set up the [javascript] code so that the it takes the user from one form to a thank you page, then to another form and have some of the info from the first (last name, first name, email) into the second.

I managed to get the code to work in a simple, theoretical form but the form I'm modifying includes some VB script (does that conflict?) with some older HTML standards"

So now that that's established, what's the next step?

Does anyone have any ideas?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.