<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Session.LCID = 1033
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
	Err.Clear

	Set fp_conn =  Server.CreateObject("ADODB.Connection")
	FP_DumpError strErrorUrl, "Cannot create connection"

	Set fp_rs = Server.CreateObject("ADODB.Recordset")
	FP_DumpError strErrorUrl, "Cannot create record set"

	fp_conn.Open Application("fallbrides_ConnectionString")
	FP_DumpError strErrorUrl, "Cannot open database"

	fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
	FP_DumpError strErrorUrl, "Cannot open record set"

	fp_rs.AddNew
	FP_DumpError strErrorUrl, "Cannot add new record set to the database"
	Dim arFormFields0(49)
	Dim arFormDBFields0(49)
	Dim arFormValues0(49)

	arFormFields0(0) = "BridesDress"
	arFormDBFields0(0) = "BridesDress"
	arFormValues0(0) = Request("BridesDress")
	arFormFields0(1) = "Flowers"
	arFormDBFields0(1) = "Flowers"
	arFormValues0(1) = Request("Flowers")
	arFormFields0(2) = "Referral"
	arFormDBFields0(2) = "Referral"
	arFormValues0(2) = Request("Referral")
	arFormFields0(3) = "Apt"
	arFormDBFields0(3) = "Apt"
	arFormValues0(3) = Request("Apt")
	arFormFields0(4) = "Ceremony"
	arFormDBFields0(4) = "Ceremony"
	arFormValues0(4) = Request("Ceremony")
	arFormFields0(5) = "Catering"
	arFormDBFields0(5) = "Catering"
	arFormValues0(5) = Request("Catering")
	arFormFields0(6) = "Music"
	arFormDBFields0(6) = "Music"
	arFormValues0(6) = Request("Music")
	arFormFields0(7) = "WeddingCake"
	arFormDBFields0(7) = "WeddingCake"
	arFormValues0(7) = Request("WeddingCake")
	arFormFields0(8) = "ReceptionLocation"
	arFormDBFields0(8) = "ReceptionLocation"
	arFormValues0(8) = Request("ReceptionLocation")
	arFormFields0(9) = "GroomLastName"
	arFormDBFields0(9) = "GroomLastName"
	arFormValues0(9) = Request("GroomLastName")
	arFormFields0(10) = "GroomsRing"
	arFormDBFields0(10) = "GroomsRing"
	arFormValues0(10) = Request("GroomsRing")
	arFormFields0(11) = "VideoService"
	arFormDBFields0(11) = "VideoService"
	arFormValues0(11) = Request("VideoService")
	arFormFields0(12) = "Cookware"
	arFormDBFields0(12) = "Cookware"
	arFormValues0(12) = Request("Cookware")
	arFormFields0(13) = "Other1"
	arFormDBFields0(13) = "Other1"
	arFormValues0(13) = Request("Other1")
	arFormFields0(14) = "Furniture"
	arFormDBFields0(14) = "Furniture"
	arFormValues0(14) = Request("Furniture")
	arFormFields0(15) = "China"
	arFormDBFields0(15) = "China"
	arFormValues0(15) = Request("China")
	arFormFields0(16) = "WeddingConsultant"
	arFormDBFields0(16) = "WeddingConsultant"
	arFormValues0(16) = Request("WeddingConsultant")
	arFormFields0(17) = "GroomFirstName"
	arFormDBFields0(17) = "GroomFirstName"
	arFormValues0(17) = Request("GroomFirstName")
	arFormFields0(18) = "GroomAge"
	arFormDBFields0(18) = "GroomAge"
	arFormValues0(18) = Request("GroomAge")
	arFormFields0(19) = "WeddingYear"
	arFormDBFields0(19) = "WeddingYear"
	arFormValues0(19) = Request("WeddingYear")
	arFormFields0(20) = "RealEstate"
	arFormDBFields0(20) = "RealEstate"
	arFormValues0(20) = Request("RealEstate")
	arFormFields0(21) = "Reception"
	arFormDBFields0(21) = "Reception"
	arFormValues0(21) = Request("Reception")
	arFormFields0(22) = "Attending"
	arFormDBFields0(22) = "Attending"
	arFormValues0(22) = Request("Attending")
	arFormFields0(23) = "WeddingDay"
	arFormDBFields0(23) = "WeddingDay"
	arFormValues0(23) = Request("WeddingDay")
	arFormFields0(24) = "Photography"
	arFormDBFields0(24) = "Photography"
	arFormValues0(24) = Request("Photography")
	arFormFields0(25) = "BouquetPreserve"
	arFormDBFields0(25) = "BouquetPreserve"
	arFormValues0(25) = Request("BouquetPreserve")
	arFormFields0(26) = "WeightLoss"
	arFormDBFields0(26) = "WeightLoss"
	arFormValues0(26) = Request("WeightLoss")
	arFormFields0(27) = "Email"
	arFormDBFields0(27) = "Email"
	arFormValues0(27) = Request("Email")
	arFormFields0(28) = "City"
	arFormDBFields0(28) = "City"
	arFormValues0(28) = Request("City")
	arFormFields0(29) = "WeddingMonth"
	arFormDBFields0(29) = "WeddingMonth"
	arFormValues0(29) = Request("WeddingMonth")
	arFormFields0(30) = "Decorations"
	arFormDBFields0(30) = "Decorations"
	arFormValues0(30) = Request("Decorations")
	arFormFields0(31) = "CeremonyLocation"
	arFormDBFields0(31) = "CeremonyLocation"
	arFormValues0(31) = Request("CeremonyLocation")
	arFormFields0(32) = "Bridesmaids"
	arFormDBFields0(32) = "Bridesmaids"
	arFormValues0(32) = Request("Bridesmaids")
	arFormFields0(33) = "Phone"
	arFormDBFields0(33) = "Phone"
	arFormValues0(33) = Request("Phone")
	arFormFields0(34) = "Invitations"
	arFormDBFields0(34) = "Invitations"
	arFormValues0(34) = Request("Invitations")
	arFormFields0(35) = "BrideFirstName"
	arFormDBFields0(35) = "BrideFirstName"
	arFormValues0(35) = Request("BrideFirstName")
	arFormFields0(36) = "BrideRing"
	arFormDBFields0(36) = "BrideRing"
	arFormValues0(36) = Request("BrideRing")
	arFormFields0(37) = "FormalWear"
	arFormDBFields0(37) = "FormalWear"
	arFormValues0(37) = Request("FormalWear")
	arFormFields0(38) = "BrideAge"
	arFormDBFields0(38) = "BrideAge"
	arFormValues0(38) = Request("BrideAge")
	arFormFields0(39) = "Zip"
	arFormDBFields0(39) = "Zip"
	arFormValues0(39) = Request("Zip")
	arFormFields0(40) = "Other"
	arFormDBFields0(40) = "Other"
	arFormValues0(40) = Request("Other")
	arFormFields0(41) = "OtherReferralSource"
	arFormDBFields0(41) = "OtherReferralSource"
	arFormValues0(41) = Request("OtherReferralSource")
	arFormFields0(42) = "Limousine"
	arFormDBFields0(42) = "Limousine"
	arFormValues0(42) = Request("Limousine")
	arFormFields0(43) = "Honeymoon"
	arFormDBFields0(43) = "Honeymoon"
	arFormValues0(43) = Request("Honeymoon")
	arFormFields0(44) = "WeddingBudget"
	arFormDBFields0(44) = "WeddingBudget"
	arFormValues0(44) = Request("WeddingBudget")
	arFormFields0(45) = "BrideLastName"
	arFormDBFields0(45) = "BrideLastName"
	arFormValues0(45) = Request("BrideLastName")
	arFormFields0(46) = "Address"
	arFormDBFields0(46) = "Address"
	arFormValues0(46) = Request("Address")
	arFormFields0(47) = "State"
	arFormDBFields0(47) = "State"
	arFormValues0(47) = Request("State")
	arFormFields0(48) = "GuestLodging"
	arFormDBFields0(48) = "GuestLodging"
	arFormValues0(48) = Request("GuestLodging")

	FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

	If Request.ServerVariables("REMOTE_HOST") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
	End If
	If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
	End If
	FP_SaveFieldToDB fp_rs, Now, "Timestamp"
	If Request.ServerVariables("REMOTE_USER") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
	End If

	fp_rs.Update
	FP_DumpError strErrorUrl, "Cannot update the database"

	fp_rs.Close
	fp_conn.Close

	Session("FP_SavedFields")=arFormFields0
	Session("FP_SavedValues")=arFormValues0
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.Redirect "confirmation.htm"

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<html>

<head>
<style type="text/css">
<!--
A:link {text-decoration: none} 
A:visited {text-decoration: none}
A:hover {color:E0C5F8} 
-->
</style>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Utah Bridal Show for Utah Weddings - The Bridal Extravaganza at the Grand 
America and Provo Marriott</title>
<meta name="Microsoft Border" content="none, default">
</head>

<body bgcolor="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">

<div align="center">
	
  <table width="760" border="0" cellpadding="0" cellspacing="0" id="table1" bordercolor="#FFFFFF" background="images/bsbckgd2.gif">
    <!-- MSTableType="nolayout" -->
    <tr>
      <td height="156" bgcolor="#FFFFFF" width="760" valign="middle">
		<p align="center">
          <img border="0" src="images/00_BE_HEADER.gif" width="680" height="148"><p align="center">
          <font color="#2D1063" face="Century Gothic"><a href="index.htm">
			<font color="#2D1063">Home</font></a>&nbsp; |&nbsp; </font>
			<font color="#FFFFFF" face="Century Gothic"> 
			<a href="fallbrides.asp"><font color="#2D1063">
		<a href="fallbrides.asp"><font color="#2D1063">Pre-register</font></a></font></a></font><font color="#2D1063" face="Century Gothic"><a href="fallbrides.asp"><font color="#2D1063">
		</font></a>|&nbsp; 
			</font><font color="#FFFFFF" face="Century Gothic"> 
			<a href="showinfo.htm"><font color="#2D1063">Show Info</font></a></font><font color="#2D1063" face="Century Gothic">&nbsp; 
			|&nbsp; 
			</font><font color="#FFFFFF" face="Century Gothic"> 
			<a href="vendors.htm"><font color="#2D1063">Vendors</font></a></font><font color="#2D1063" face="Century Gothic">&nbsp; 
			|&nbsp; 
			</font><font color="#FFFFFF" face="Century Gothic"> 
			<a href="exhibitor.htm"><font color="#2D1063">Exhibitor Information</font></a></font><font color="#2D1063" face="Century Gothic">&nbsp; 
			|&nbsp; 
			</font><font color="#FFFFFF" face="Century Gothic"> 
			<a href="contactus.htm"><font color="#2D1063">Contact Us</font></a></font></td>
		</tr>
	<tr>
      <td height="39" width="760">
		<table border="2" width="100%" id="table5" bordercolor="#2D1063" cellspacing="0" cellpadding="0">
			<tr>
				<td>
				<table border="0" width="100%" id="table6" cellspacing="0" cellpadding="0" height="193">
					<tr>
						<td>&nbsp;</td>
						<td width="500" bgcolor="#FFFFFF">
		<p align="center">
		<img border="0" src="images/mainslogan.gif" width="450" height="45"></p>
						<p align="center">
		<img border="0" src="images/titlepreregister.gif" width="189" height="35"></p>
        <table width="90%" border="0" align="center" id="table10">
          <tr>
            <td height="21"><div align="center">
                <script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.BrideFirstName.value == "")
  {
    alert("Please enter a value for the \"BrideFirstName\" field.");
    theForm.BrideFirstName.focus();
    return (false);
  }

  if (theForm.BrideFirstName.value.length > 20)
  {
    alert("Please enter at most 20 characters in the \"BrideFirstName\" field.");
    theForm.BrideFirstName.focus();
    return (false);
  }

  if (theForm.BrideLastName.value == "")
  {
    alert("Please enter a value for the \"BrideLastName\" field.");
    theForm.BrideLastName.focus();
    return (false);
  }

  if (theForm.BrideLastName.value.length > 30)
  {
    alert("Please enter at most 30 characters in the \"BrideLastName\" field.");
    theForm.BrideLastName.focus();
    return (false);
  }

  if (theForm.Phone.value == "")
  {
    alert("Please enter a value for the \"Phone\" field.");
    theForm.Phone.focus();
    return (false);
  }

  if (theForm.Phone.value.length > 12)
  {
    alert("Please enter at most 12 characters in the \"Phone\" field.");
    theForm.Phone.focus();
    return (false);
  }

  if (theForm.Email.value == "")
  {
    alert("Please enter a value for the \"Email\" field.");
    theForm.Email.focus();
    return (false);
  }

  if (theForm.Email.value.length > 40)
  {
    alert("Please enter at most 40 characters in the \"Email\" field.");
    theForm.Email.focus();
    return (false);
  }

  if (theForm.Address.value == "")
  {
    alert("Please enter a value for the \"Address\" field.");
    theForm.Address.focus();
    return (false);
  }

  if (theForm.Address.value.length > 45)
  {
    alert("Please enter at most 45 characters in the \"Address\" field.");
    theForm.Address.focus();
    return (false);
  }

  if (theForm.City.value == "")
  {
    alert("Please enter a value for the \"City\" field.");
    theForm.City.focus();
    return (false);
  }

  if (theForm.City.value.length > 40)
  {
    alert("Please enter at most 40 characters in the \"City\" field.");
    theForm.City.focus();
    return (false);
  }

  if (theForm.Zip.value == "")
  {
    alert("Please enter a value for the \"Zip\" field.");
    theForm.Zip.focus();
    return (false);
  }

  if (theForm.Zip.value.length > 8)
  {
    alert("Please enter at most 8 characters in the \"Zip\" field.");
    theForm.Zip.focus();
    return (false);
  }

  if (theForm.GroomFirstName.value == "")
  {
    alert("Please enter a value for the \"GroomFirstName\" field.");
    theForm.GroomFirstName.focus();
    return (false);
  }

  if (theForm.GroomFirstName.value.length > 20)
  {
    alert("Please enter at most 20 characters in the \"GroomFirstName\" field.");
    theForm.GroomFirstName.focus();
    return (false);
  }

  if (theForm.GroomLastName.value == "")
  {
    alert("Please enter a value for the \"GroomLastName\" field.");
    theForm.GroomLastName.focus();
    return (false);
  }

  if (theForm.GroomLastName.value.length > 30)
  {
    alert("Please enter at most 30 characters in the \"GroomLastName\" field.");
    theForm.GroomLastName.focus();
    return (false);
  }

  if (theForm.Referral.selectedIndex == 0)
  {
    alert("The first \"Referral\" option is not a valid selection.  Please choose one of the other options.");
    theForm.Referral.focus();
    return (false);
  }

  if (theForm.Attending.selectedIndex == 0)
  {
    alert("The first \"Attending\" option is not a valid selection.  Please choose one of the other options.");
    theForm.Attending.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.Email.value == "")
  {
    alert("Please enter a value for the \"Email\" field.");
    theForm.Email.focus();
    return (false);
  }

  if (theForm.Address.value == "")
  {
    alert("Please enter a value for the \"Address\" field.");
    theForm.Address.focus();
    return (false);
  }

  if (theForm.Address.value.length > 45)
  {
    alert("Please enter at most 45 characters in the \"Address\" field.");
    theForm.Address.focus();
    return (false);
  }

  if (theForm.City.value == "")
  {
    alert("Please enter a value for the \"City\" field.");
    theForm.City.focus();
    return (false);
  }

  if (theForm.City.value.length > 40)
  {
    alert("Please enter at most 40 characters in the \"City\" field.");
    theForm.City.focus();
    return (false);
  }

  if (theForm.Zip.value == "")
  {
    alert("Please enter a value for the \"Zip\" field.");
    theForm.Zip.focus();
    return (false);
  }

  if (theForm.Zip.value.length > 8)
  {
    alert("Please enter at most 8 characters in the \"Zip\" field.");
    theForm.Zip.focus();
    return (false);
  }

  if (theForm.Referral.selectedIndex == 0)
  {
    alert("The first \"Referral\" option is not a valid selection.  Please choose one of the other options.");
    theForm.Referral.focus();
    return (false);
  }

  if (theForm.Attending.selectedIndex == 0)
  {
    alert("The first \"Attending\" option is not a valid selection.  Please choose one of the other options.");
    theForm.Attending.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="fallbrides.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1" webbot-action="--WEBBOT-SELF--">
						<!--webbot bot="SaveDatabase" SuggestedExt="asp" U-ASP-Include-Url="_fpclass/fpdbform.inc" S-DataConnection="fallbrides" S-RecordSource="Results" U-Database-URL="fpdb/fallbrides.mdb" U-Confirmation-Url="confirmation.htm" S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER" S-Builtin-DBFields="Remote_computer_name Browser_type Timestamp User_name" S-Form-Fields="BridesDress Flowers Referral Apt Ceremony Catering Music WeddingCake ReceptionLocation GroomLastName GroomsRing VideoService Cookware Other1 Furniture China WeddingConsultant GroomFirstName GroomAge WeddingYear RealEstate Reception Attending WeddingDay Photography BouquetPreserve WeightLoss Email City WeddingMonth Decorations CeremonyLocation Bridesmaids Phone Invitations BrideFirstName BrideRing FormalWear BrideAge Zip Other OtherReferralSource Limousine Honeymoon WeddingBudget BrideLastName Address State GuestLodging" S-Form-DBFields="BridesDress Flowers Referral Apt Ceremony Catering Music WeddingCake ReceptionLocation GroomLastName GroomsRing VideoService Cookware Other1 Furniture China WeddingConsultant GroomFirstName GroomAge WeddingYear RealEstate Reception Attending WeddingDay Photography BouquetPreserve WeightLoss Email City WeddingMonth Decorations CeremonyLocation Bridesmaids Phone Invitations BrideFirstName BrideRing FormalWear BrideAge Zip Other OtherReferralSource Limousine Honeymoon WeddingBudget BrideLastName Address State GuestLodging" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><%
Function FP_SaveFormFields(rs, rgFormFields, rgDBFields)
	On Error Resume Next
	Err.Clear

	Dim i
	For i = 0 To UBound(rgFormFields)
		FP_SaveFormField rs, rgFormFields(i), rgDBFields(i)
	Next 
	Err.Clear
End Function

Function FP_SaveFormField(rs, strField, strDBField)
	On Error Resume Next
	Err.Clear

	If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then
		Exit Function
	End If

	FP_SaveFieldToDB rs, Request.Form(strField), strDBField	
	Err.Clear
End Function

Function FP_SaveFieldToDB(rs, strField, strDBField)
	On Error Resume Next
	Err.Clear
	Dim fp_Debug
	fp_Debug = False

	Select Case rs(strDBField).Type
		Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or  adUnsignedInt Or adUnsignedBigInt
			rs(strDBField) = CInt(strField)
		Case adSingle Or adDecimal Or adNumeric 
			rs(strDBField) = CSng(strField)
		Case adDouble
			rs(strDBField) = CDbl(strField)
		Case adCurrency
			rs(strDBField) = CCur(strField)
		Case adBoolean
			rs(strDBField) = CBool(strField)
		Case adDate Or adDBDate Or adDBTime or adDBTimeStamp
			rs(strDBField) = CDate(strField)
		Case Else
			rs(strDBField) = CStr(strField)
	End Select

	If fp_Debug Then
		strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """"
	Else
		strError = "Cannot save value to database field"
	End If

	FP_DumpError strErrorUrl, strError 
	Err.Clear
End Function

Function FP_EncodeOutput(str)
	FP_EncodeOutput = str
	FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^")
	FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput)
	FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&")
End Function

Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2)
	On Error Resume Next
	Response.Write "<html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta http-equiv=""Content-Type"" content=""" & szCharSet & """>" & vbCrLf
	Response.Write "<title>" & szTitle & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<h1>" & szTitle & "</h1>" & vbCrLf
	Response.Write "<p>" & szMsg1 &"</p>" & vbCrLf
	Response.Write "<p>" & vbCrLf
	For Each item in Request.Form 
		If item <> "VTI-GROUP" Then
			Response.Write "<b>" & item & "</b>" & ": " & FP_EncodeOutput(Request.Form(item)) & "<BR>" & vbCrLf
		End If
	Next 
	Response.Write "</p>" & vbCrLf
	Response.Write "<p><a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.End
End Function

Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues)
	On Error Resume Next
	Response.Write "<html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta http-equiv=""Content-Type"" content=""" & szCharSet & """>" & vbCrLf
	Response.Write "<title>" & szTitle & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<h1>" & szTitle & "</h1>" & vbCrLf
	Response.Write "<p>" & szMsg1 &"</p>" & vbCrLf
	Response.Write "<p>" & vbCrLf
	For j = 0 To UBound(rgDBFields) - 1
		Response.Write "<b>" & rgDBFields(j) & "</b>" & ": " & FP_EncodeOutput(rgDBValues(j)) & "<BR>" & vbCrLf
	Next 
	Response.Write "</p>" & vbCrLf
	Response.Write "<p><a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.End
End Function

Function FP_DumpError(strErrorUrl, strMsg)
	On Error Resume Next
	Dim fp_Debug
	fp_Debug = False
	If Err.Number <> 0 Then
		fp_conn.Close
		Session.CodePage = Session("FP_OldCodePage")
		Session.LCID = Session("FP_OldLCID")
		If strErrorUrl <> "" Then
			Response.Redirect strErrorUrl
		Else
			Response.Write "<b> " & Server.HTMLEncode(strMsg) & "</b><p>"
			if fp_Debug Then
				Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "<p>"
				Response.Write "Error Number: " & Server.HTMLEncode(Err.Number)  & "<p>"
				Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "<p>"
			End If
			Response.End
		End If
	End if
End Function
%>
<!--webbot bot="SaveDatabase" endspan i-checksum="40548" --><table border="0" width="100%" id="table11" cellspacing="1">
							<tr>
            <td bgcolor="#F8BDBE" colspan="2"><div align="left">
                <font face="Verdana" size="2"><b>Bride </b></font>
                </div></td>
          					</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">First Name:</font></td>
								<td width="62%">
								<input id="brideFname" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" name="BrideFirstName" size="30" maxLength="20"></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Last Name:</font></td>
								<td width="62%">
								<input id="brideLname" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" size="30" name="BrideLastName" maxLength="30"></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Age:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="brideAge" maxLength="3" size="8" name="BrideAge"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Phone:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="phone" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" size="12" name="Phone" maxLength="12"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">E-mail:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<!--webbot bot="Validation" b-value-required="TRUE" -->
								<input id="email" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" size="30" name="Email"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Address:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="45" --><input id="address" maxLength="45" size="30" name="Address"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Apt:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="apt" maxLength="8" size="8" name="Apt"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">City:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="40" --><input id="city" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" size="30" name="City" maxLength="40"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">State:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<select id="state" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" size="1" name="State">
								<option>AK</option>
								<option>AL</option>
								<option>APO</option>
								<option>AR</option>
								<option>AZ</option>
								<option>CA</option>
								<option>CO</option>
								<option>CT</option>
								<option>DC</option>
								<option>DE</option>
								<option>FL</option>
								<option>FPO</option>
								<option>GA</option>
								<option>HI</option>
								<option>IA</option>
								<option>ID</option>
								<option>IL</option>
								<option>IN</option>
								<option>KS</option>
								<option>KY</option>
								<option>LA</option>
								<option>MA</option>
								<option>MD</option>
								<option>ME</option>
								<option>MI</option>
								<option>MN</option>
								<option>MO</option>
								<option>MS</option>
								<option>MT</option>
								<option>NC</option>
								<option>ND</option>
								<option>NE</option>
								<option>NH</option>
								<option>NJ</option>
								<option>NM</option>
								<option>NV</option>
								<option>NY</option>
								<option>OH</option>
								<option>OK</option>
								<option>OR</option>
								<option>PA</option>
								<option>RI</option>
								<option>SC</option>
								<option>SD</option>
								<option>TN</option>
								<option>TX</option>
								<option selected>UT</option>
								<option>VA</option>
								<option>VI</option>
								<option>VT</option>
								<option>WA</option>
								<option>WI</option>
								<option>WV</option>
								<option>WY</option>
								</select></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Zip:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="8" --><input id="apt0" size="8" name="Zip" maxLength="8"></font></td>
							</tr>
							<tr>
            <td bgcolor="#F8BDBE" colspan="2">
			<p align="left"><font face="Verdana" size="2"><b>Groom</b></font></td>
          					</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">First Name:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="groomFname" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" name="GroomFirstName" size="30" maxLength="20"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Last Name:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="groomLname" title="Your Google Toolbar can fill this in for you. Select AutoFill" style="background-color: #ffffa0" size="30" name="GroomLastName" maxLength="30"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Age:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="groomAge" maxLength="3" size="8" name="GroomAge"></font></td>
							</tr>
							<tr>
            <td bgcolor="#F8BDBE" colspan="2"><b><font face="Verdana" size="2">
			Wedding Information</font></b></td>
          					</tr>
							<tr>
								<td width="37%" height="34" align="right">
								<font face="Verdana" size="2">Wedding Budget:</font></td>
								<td width="62%" height="34">
								<font face="Arial, Helvetica, sans-serif">
								<select size="1" name="WeddingBudget">
								<option value="under $2,000" selected>under $2,000</option>
								<option value="2000-5000">$2,000-$5,000</option>
								<option value="5000-10000">$5,000-$10,000</option>
								<option value="10000 +">over $10,000</option>
								</select></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Wedding Date:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="WeddingMonth" maxLength="35" size="4" name="WeddingMonth">/<input id="WeddingDay" maxLength="35" size="3" name="WeddingDay">/<input id="WeddingYear" maxLength="35" size="6" name="WeddingYear">
								<font size="2">(Month</font><b>/</b><font size="2">Day</font><b>/</b><font size="2">Year)</font></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Ceremony Location:</font></td>
								<td width="62%">
								<font face="Arial, Helvetica, sans-serif">
								<input id="ceremony" maxLength="35" size="24" name="Ceremony"></font></td>
							</tr>
							<tr>
								<td width="37%" align="right">
								<font face="Verdana" size="2">Reception 
								Location:</font></td>
								<td width="62%">
								<input id="reception" maxLength="35" size="24" name="Reception"></td>
							</tr>
							<tr>
								<td width="98%" colspan="2" bgcolor="#F8BDBE">
								<b><font face="Verdana" size="2">Wedding 
								Services Needed</font></b></td>
							</tr>
							<tr>
								<td width="98%" colspan="2">
								<table border="0" width="100%" id="table12" cellspacing="0" cellpadding="0">
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="BrideRing"></b> 
			Bride's Ring </font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Furniture"></b> 
			Furniture</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="GroomsRing"></b> 
			Groom's Ring</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="VideoService"></b> 
			Video Service</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="BridesDress"></b> 
			Brides Dress</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Catering"></b> 
			Catering</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="FormalWear"></b> 
			Men's Formal Wear</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="China"></b> China, 
			Silver, Cookware</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Decorations"></b> 
			Decorations</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Invitations"></b> 
			Invitations</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Limousine"></b> Limousine</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Photography"></b> 
			Photography</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="WeddingConsultant"></b> 
			Wedding Consultant</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Honeymoon"></b> 
			Honeymoon/Travel</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="CeremonyLocation"></b> 
			Ceremony Location</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Bridesmaids"></b> 
			Bridesmaids Gifts</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="ReceptionLocation"></b> 
			Reception Location</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="BouquetPreserve"></b> 
			Bouquet Preservation</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="GuestLodging"></b> 
			Guest Lodging</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="RealEstate"></b> 
			Real Estate/Mortgage</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Music"></b> Music dj/mc/live</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="WeddingCake"></b> 
			Wedding Cake</font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Flowers"></b> Flowers</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana"><b>
			<input type="checkbox" value="Y" name="WeightLoss"></b><font size="2">
			Weight Loss</font></font></td>
          							</tr>
									<tr>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana" size="2"><b>
			<input type="checkbox" value="Y" name="Cookware"></b> 
			Cookware</font></td>
            <td width="206" bgcolor="#FFFFFF"><font face="Verdana"><b>
			<input type="checkbox" value="Y" name="Other"></b><font size="2">
			</font></font><font face="Verdana" size="2">Other<b> <input maxLength="20" size="15" name="Other1"></b></font></td>
          							</tr>
									<tr>
										<td bgcolor="#FFFFFF">&nbsp;</td>
										<td bgcolor="#FFFFFF">&nbsp;</td>
									</tr>
									<tr>
										<td bgcolor="#FFFFFF">
										<font face="Verdana" size="2">How did 
										you hear about us?</font></td>
										<td bgcolor="#FFFFFF">
								<font face="Arial, Helvetica, sans-serif">
										<!--webbot bot="Validation" b-disallow-first-item="TRUE" --><select size="1" name="Referral">
								<option>Choose One</option>
								<option>Billboard</option>
								<option>TheBrideandGroom.com</option>
								<option>UtahWeddings.com</option>
								<option>SaltLakeBride.com</option>
								<option>UtahBrides.com</option>
								<option>Radio Station</option>
								<option>Newspaper</option>
								<option>Television</option>
								<option>Mail</option>
								<option>Bus</option>
								<option>South Towne Mall</option>
								<option>Other</option>
								</select></font></td>
									</tr>
									<tr>
										<td bgcolor="#FFFFFF">
										<font face="Verdana" size="2">If Other, 
										please specify:</font></td>
										<td bgcolor="#FFFFFF">
								<font face="Verdana" size="2"><b>
								<input maxLength="20" size="15" name="OtherReferralSource"></b></font></td>
									</tr>
									<tr>
										<td bgcolor="#FFFFFF">
										<font face="Verdana" size="2">I am 
                                        planning on attending:</font></td>
										<td bgcolor="#FFFFFF">
								<font face="Arial, Helvetica, sans-serif">
								<!--webbot bot="Validation" b-disallow-first-item="TRUE" --><select size="1" name="Attending">
								<option>Choose One</option>
								<option>Grand America Show</option>
                                <option>Provo Marriott</option>
                                <option>South Towne Expo Show</option>
                                <option>All Shows</option>
								</select></font></td>
									</tr>
								</table>
								</td>
							</tr>
						</table>
						<p align="center">
						<input type="submit" value="Submit" name="B1"><br>
						<br>
						<font size="1">*By registering you agree to receive 
						wedding-relating information<br>
						from our vendors and must unsubscribe from each vendor<br>
						individually.&nbsp; Each vendor that receives the list 
						assumes full<br>
						responsibility for following good email, direct email &amp;
						<br>
						phone marketing practices.</font></p>
						<p align="center">
						&nbsp;</p>
					</form>
                </div></td>
          </tr>
        </table>
        
      					</td>
						<td>&nbsp;</td>
					</tr>
				</table>
				</td>
			</tr>
		</table>
		</td>
      </tr>
		
    </table>
</div>

</body>

</html>