<%Option Explicit%> <% '************************************************************************************************************* '* Page Description: This page emails information entered by the user. '* '* Parameter Use '* N/A '* '* Init Modified Dt Version Modification '* JMH 11/10/2008 1.1.0 Created page '********************************************************************************************** Response.Expires = -1 Const mcstrSuccess = "Your information has been sent to " Const mcstrToEmail = "president@rmdsing.org" 'Const mcstrToEmail = "woody@grwffyn.com" Const mcstrFromEmail = "webmaster@rmdsing.org" Const mcstrVersion = "V1.1.0" Dim mstrAction Dim mstrDate Dim mstrSong Dim mstrTenorName Dim mstrTenorNbr Dim mstrLeadName Dim mstrLeadNbr Dim mstrBariName Dim mstrBariNbr Dim mstrBassName Dim mstrBassNbr Dim mobjNewMail Dim mstrMsg mstrAction = UCase( Request("subSubmit") ) If mstrAction = "SUBMIT" Then mstrDate = Request("txtDate") mstrSong = Request("txtSong") mstrTenorName = Request("txtTenorName") mstrTenorNbr = Request("txtTenorNbr") mstrLeadName = Request("txtLeadName") mstrLeadNbr = Request("txtLeadNbr") mstrBariName = Request("txtBariName") mstrBariNbr = Request("txtBariNbr") mstrBassName = Request("txtBassName") mstrBassNbr = Request("txtBassNbr") mstrMsg = mstrDate & ", " & mstrSong & ", " & mstrTenorName & ", " & mstrTenorNbr & ", " & mstrLeadName & ", " & mstrLeadNbr & ", " & mstrBariName & ", " & mstrBariNbr & ", " & mstrBassName & ", " & mstrBassNbr Set mobjNewMail = Server.CreateObject("CDONTS.NewMail") mobjNewMail.From = mcstrFromEmail mobjNewMail.To = mcstrToEmail ' mobjNewMail.CC = strFromName & " <" & strFromEmail & ">" mobjNewMail.Subject = "RMD Quartet Chain" mobjNewMail.Body = mstrMsg mobjNewMail.Send Set mobjNewMail = Nothing End If%> <% If mstrAction = "SUBMIT" Then 'Show confirmation %> <% Else 'Show input form %> " METHOD="POST" onSubmit="return ValidateForm();"> <% End If %>

Rocky Mountain District Quartet Chain
Thank you for participating. Your information has been sent to: <%=mcstrToEmail%> ">Click here to submit another Quartet Chain entry.
To record your participation in the Rocky Mountain District Quartet Chain, please enter the following information and click the Submit button. Not sure what the Quartet Chain is?  Read the story on the RMD home page.
Date (mm/dd/yyyy):
Song (Tag) Sung:
Tenor Name:
Member Number:
Lead Name:
Member Number:
Baritone Name:
Member Number:
Bass Name:
Member Number: