Link to home
Start Free TrialLog in
Avatar of RickyGtz
RickyGtz

asked on

How to send email with CDOSYS to multipleemails from a Loop

Hi, I have a current Team Registration form in which a Member can register Team members for upcoming tournaments.  The problem is that , the way I am implementing the code , it is onlymailing  the first member of a team of 5 and not all 5 of them. Can you tell me how do I accomplish this. ?
<!--#include file="../include/intialize.inc"-->
<!--include file="../include/connection.asp"-->
<!--#include file="../../Connections/sqlConn1.asp" -->
<!--#include file="../../Connections/sqlConn3.asp" -->
 
<!-- #include File="../include/logincheck.asp" -->
<%
If request.form("T_name")<>"" Then
tourname=request.form("T_name")
Else
tourname=request.form("tourname")
End If
'response.write "tourname--"& tourname
 
If request.form("T_Id")<>"" Then
	TID=request.form("T_Id")
Else
	TID=request.form("TID")
End If
' Memeber Registration 
 
	If (Request.Form("Submit")<>"") Then	
	
		set rs_val = Server.Createobject("ADODB.Recordset")
		ccnt=0
		c=0
					
		sql_res_val="select max(TIID) from players"
		rs_val.open sql_res_val,conSQL
		if rs_val(0)<>""  Then
			TIID=rs_val(0)+1
		Else
			TIID=1000
		End if
		session("r_mcount") = Request.Form("mcount")
		session("r_tourname") = Request.Form("tourname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		
		'do we need an user name also here ? 
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to request.form("mcount")
		
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
					'session("r_txtemailid"&p) = Request.Form("txtemailid"&p)
					
					
					response.write "tname :" & session("r_txtfname"&p)
					
					txtteamname=request.form("txtteamname"&p)
					txtfname=request.form("txtfname"&p)
					txtlname=request.form("txtlname"&p)
					txtaddr1=request.form("txtaddr1"&p)
					txtaddr2=request.form("txtaddr2"&p)
					txtcity=request.form("txtcity"&p)
					txtstate=request.form("txtstate"&p)
					txtcourseid=request.form("txtcourseid"&p)
					txtpcode=request.form("txtpcode"&p)
					txtcontactno=request.form("txtcontactno"&p)
					txtemailid=request.form("txtemailid"&p)
					txtshirtsize=request.form("txtshirtsize"&p)
					txthandicap=request.form("txthandicap"&p)
					txthomecourse=request.form("txthomecourse"&p)
					regdate=date()
					regtime=time()
					'allemails = allemails &txtemailid
					
					
										
					
					
					response.Write("txtteamname")		
					conSQL.execute("Insert into Players(teamname,firstname,lastname,addy1,addy2,city,state,Zip,phone,email,regdate,regtime,TourID,Shirtsize,Handicap,courseID,TIID) values('"&txtteamname&"','"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&")")
			
					Set rsNewListMember=Server.CreateObject("ADODB.Recordset")
					
					strSQL = "SELECT tblMailingList.* FROM tblMailingList;"
					rsNewListMember.Open strSQL, con3SQL
				
					Randomize Timer
						
			strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
				
					Do While NOT rsNewListMember.EOF	
					
					If strUserCode = rsNewListMember("ID_Code") Then
					
						Randomize Timer
						
						strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
					
					rsNewListMember.MoveFirst
					End If	
					
					If strEmailAddress = txtemailid Then
						blnError = True
						Exit Do
					End If
					rsNewListMember.MoveNext	
				Loop	
				
		If blnError = False Then
		Set rsNewListMemberc = Server.CreateObject("ADODB.Recordset")
		strSQLC = "SELECT * FROM tblMailingList where Email='"&txtemailid&"'"
		rsNewListMemberC.Open strSQLC, con3SQL
	If rsNewListMemberC.EOF Then
con3SQL.execute("Insert into tblMailingList(Email,ID_Code) values('"&txtemailid&"','"&strUserCode&"')")
					End If
				End If
				
				rsNewListMember.Close
				Set rsNewListMember = Nothing
				
							
			Next			
								
			
			'Set rsNewListMember1=Server.CreateObject("ADODB.Recordset")
			'strSQL1 = "SELECT Tourfee FROM tblTournament where TourID="&TID&";"
			'rsNewListMember1.Open strSQL1, conSQL
			
					' Are we charging a fee to register a tournament?
					
					'if rsNewListMember1("Tourfee") <> 0 then
					'url="thank.asp"
					'response.redirect(url)
					'else
					'On Error resume Next
									
			TBdy=""
			Set MyCDO =CreateObject("CDO.Message")
			
			'strTo = """" & objEMailDictionary.Item("ToName") & """ <" & objEMailDictionary.Item("ToEMail") & ">"
			
			MyCDO.To = txtemailid
			'MyCDO.Bcc=txtemaild2
			'MyCDO.Cc=txtemailid
			
			MyCDO.From = "info@playerscores.com"
			MyCDO.Subject = "Tournament signup confirmation from playerscores.com "
			TBdy = TBdy & " <br><br>Thanks for registering your team<b> "& request.form("txtteamname")&"</b> online with the <b>"& request.form("tourname") &"</b><br> If you have any questions please do not hesitate to email us at info@playerscores.com <br><br>Thanks<br>PlayerScores.com Staff"
					MyCDO.HTMLBody = TBdy
					MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="192.168.5.235"
'Server port
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
MyCDO.Configuration.Fields.Update
 
MyCDO.Send
 
 
'response.write("allemails")
 
 
If Err.Number <> 0 Then
				Response.Write "Error: " & Err.Description
			    response.end
			    end if
				
				' clean up 
				set MyCDO=nothing
				url="thank.asp"
					response.redirect(url)
					end if 
	
%>
<html>
<head>
<title><%=PageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function validate_all()
	{
		errmsg="";
	for(i=1;i<=document.regfrm.mcount.value;i++)
	{
		//errmsg +="Player"+i+"\n\n";
		if (eval("document.regfrm.txtfname"+i+".value")=="")
			errmsg +="Player"+i+" Firstname Field is Blank \n";
		if (eval("document.regfrm.txtaddr1"+i+".value")=="")
			errmsg +="Player"+i+ " Address Field is Blank \n";
		if (eval("document.regfrm.txtcity"+i+".value")=="")
			errmsg +="Player"+i+ " City Field is Blank \n";		
		if (eval("document.regfrm.txtstate"+i+".value")=="")
			errmsg +="Player"+i+ " State Field is Blank \n";
		if (eval("document.regfrm.txtpcode"+i+".value")=="")
			errmsg +="Player"+i+ " Zip Code Field is Blank \n";		
		if (eval("document.regfrm.txtcontactno"+i+".value")=="")
			errmsg +="Player"+i+ " Contact Number Field is Blank \n";		
		if (eval("document.regfrm.txtemailid"+i+".value")=="")
			errmsg +="Player"+i+ " Email ID Field is Blank \n";		
		else
		{
			var err=0
			mailid = eval("document.regfrm.txtemailid"+i+".value");
			val=mailid.indexOf("@");
			if (val!=-1)
			{
			  val1=mailid.indexOf(".");
			  if (val1==-1)
				err=1;	
			}  
			else
				err=1;
			
			if (err==1)
				  errmsg +="Player"+i+ " Invalid Email ID \n";
		}
 
		if (eval("document.regfrm.txthandicap"+i+".value")=="")
			errmsg +="Player"+i+ " Handicap Field is Blank \n";		
		if (eval("document.regfrm.txthomecourse"+i+".value")=="")
			errmsg +="Player"+i+ " Home Course Field is Blank \n";	
			
	}
	if (errmsg=="")         
	{
		return true;
	}
	else
	{
		alert(" Following Error Have Occured While Submiting This Form:\n\n"+errmsg);
		return false;
	}
}
 
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
 
function YY_checkform() { //v4.66
//copyright (c)1998,2002 Yaromat.com
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        var myMa=args[i+1].split('_');if(isNaN(myV)||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==2)){
          var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
      } else if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
        if(myAt){
          var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
          var myDate=new Date(myY,myM,myD);
          if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
        }else{addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==4)){ // time
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
      } else if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!myObj1.checked){addErr=true}
      } else if (myV.length>0&&args[i+2]==6){ // the same
            var myObj1 = MM_findObj(args[i+1]);
            if(myV!=myObj1.value){addErr=true}
      }
    } else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    } else if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    } else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
function MM_validateForm() { //v4.0
  if (document.getElementById){
    var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
    for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
      if (val) { nm=val.name; if ((val=val.value)!="") {
        if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
          if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
        } else if (test!='R') { num = parseFloat(val);
          if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
          if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
            min=test.substring(8,p); max=test.substring(p+1);
            if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
      } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
    } if (errors) alert('The following error(s) occurred:\n'+errors);
    document.MM_returnValue = (errors == '');
} }
</script>
 
 
<script language="JavaScript">
<!--
function isAlpha ( evt ) {
   var keyCode = evt.which ? evt.which : evt.keyCode;
   alpha = ( keyCode >= 'a'.charCodeAt ( ) &&
      keyCode <= 'z'.charCodeAt ( ) ) || 
      ( keyCode >= 'A'.charCodeAt ( ) &&
      keyCode <= 'Z'.charCodeAt ( ) ) || 
      ( keyCode >= 8 && keyCode <= 46 );
   return ( alpha );
}
 
function validateAlpha ( text ) {
   for ( c=0; c < text.length; c ++ ) {
      alpha = ( text.charCodeAt ( c ) >= 65 &&
         text.charCodeAt ( c ) <=90 ) || 
         ( text.charCodeAt ( c ) >= 97 &&
         text.charCodeAt ( c ) <=122 )
      if ( !alpha ) {
         alert ( 'No way, sorry.' );   
         document.theForm.theField.select ( );
         return false;
      }
   }
   return true;
}
//-->
</script>
 
 
 
</head>
<body background="<%=level%>images/bg.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td colspan="4" valign="top"><!--#include file="../include/header.asp"--></td>
  </tr>
  <tr>
    <td width="192" valign="top" bgcolor="#ffffff"><!-- #include file="../include/left.asp" --></td>
    <td width="591" valign="top" bgcolor="#ffffff">
      <form name="regfrm" method="post" action="" onSubmit="return validateNumber (this.theField.value )">
        <table width="88%" border="0" align="center" cellpadding="0" cellspacing="0" class="bodytxt1">
          <% if (msg<>"") then %>
          <tr> 
            <td width="100%" height="30" colspan="2" align="center" class="errortxt"><%=msg%></td>
          </tr>
          <% end if %>
        </table>
        <table width="423"  border="0" cellspacing="0" cellpadding="0" align="center" class="bodytxt1">
          <tr>
            <td width="28"><img src="<%=Level%>images/tbleft.jpg" width="28" height="24"></td>
            <td width="279" class="tableheader1">New User Sign Up &nbsp;for Tournament&nbsp;</td>
            <td width="116"><img src="<%=Level%>images/tbright.jpg" width="28" height="24"></td>
          </tr>
          <tr> 
            <td colspan="3" valign="top" bgcolor="#5eb020"> 
              <table width="100%"  border="0" cellspacing="1" cellpadding="0" class="bodytxt1" >
                <tr>
                  <td valign="top" bgcolor="#FFFFFF" class="tablebgcolor"><br>
                  Please Select the Tournament Members :
				  <select name="mcount" onChange="javascript:submit();">
				  <option value="1" <% if request.form("mcount")=1 then Response.write "selected" %>>1</option>
				  <option value="2" <% if request.form("mcount")=2 then Response.write "selected" %>>2</option>
				  <option value="3" <% if request.form("mcount")=3 then Response.write "selected" %>>3</option>
				  <option value="4" <% if request.form("mcount")=4 then Response.write "selected" %>>4</option>
				  <option value="5" <% if request.form("mcount")=5 then Response.write "selected" %>>5</option>
				  </select>
				   <br>
                  <br></td>
                </tr>
				<tr> 
                  <td valign="top" bgcolor="#FFFFFF" class="tablebgcolor"> 
				<%
				nct=request.form("mcount")
				'nct=play
				if nct="" then
				nct=1
				End if
				For i=1 to nct 
				%>
				<table width="100%" height="100%" align="center" cellpadding="5" cellspacing="0" class="bodytxt1" >
                      <tr align="left"> 
                        <td colspan="2" class="tableheader" >Player<%=i%> Personal Information                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >Tournament Name</td>
                        <td width="60%"> <%=tourname%>                        </td>
                      </tr>
                      <tr>
                        <td align="right" >Team Name</td>
                        <td>  &nbsp;
                        <input name="txtteamname<%=i%>" type="text" class="txtbox1" id="txtteamname<%=i%>" onBlur="YY_checkform('regfrm','txtteamname<%=i%>2','#q','0','Field \'txtteamname<%=i%>2\' is not valid.');return document.MM_returnValue"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }" value="<%=request.form("txtteamname"&i)%>"  ></td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >First Name</td>
                        <td width="60%"> &nbsp; 
                          <input name="txtfname<%=i%>" type="text" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }" value=<%=request.form("txtteamname"&i)%> >                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >Last Name</td>
                        <td width="60%"> &nbsp; 
                          <input type="text" name="txtlname<%=i%>" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }"
                           VALUE=<%=request.form("txtlname"&i)%> >                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >Address</td>
                        <td width="60%"> &nbsp; 
                          <input type="text" name="txtaddr1<%=i%>" class="txtbox2" VALUE="<%=request.form("txtaddr1"&i)%>">                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right">Address</td>
                        <td width="60%"> &nbsp; 
                          <input type="text" name="txtaddr2<%=i%>" class="txtbox2" VALUE="<%=request.form("txtaddr2"&i)%>">                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >City </td>
                        <td width="60%"> &nbsp; 
                          <input type="text" name="txtcity<%=i%>" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }"
                           VALUE=<%=request.form("txcity"&i)%> >                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >State</td>
                        <td width="60%"> &nbsp; 
                        <select name="txtstate<%=i%>"class="txtbox1" 
                        value="<%=request.form("txtstate"&i)%>">
                            <option selected>--Choose a State--</option>
                            <option value="AL">Alabama</option>
                            <option value="AK">Alaska</option>
                            <option value="AZ">Arizona</option>
                            <option value="AR">Arkansas</option>
                            <option value="CA">California</option>
                            <option value="CO">Colorado</option>
                            <option value="CT">Connecticut</option>
                            <option value="DE">Delaware</option>
                            <option value="FL">Florida</option>
                            <option value="GA">Georgia</option>
                            <option value="HI">Hawaii</option>
                            <option value="ID">Idaho</option>
                            <option value="IL">Illinois</option>
                            <option value="IN">Indiana</option>
                            <option value="IA">Iowa</option>
                            <option value="KS">Kansas</option>
                            <option value="KY">Kentucky</option>
                            <option value="LA">Louisiana</option>
                            <option value="ME">Maine</option>
                            <option value="MD">Maryland</option>
                            <option value="MA">Massachusetts</option>
                            <option value="MI">Michigan</option>
                            <option value="MN">Minnesota</option>
                            <option value="MS">Mississippi</option>
                            <option value="MO">Missouri</option>
                            <option value="MT">Montana</option>
                            <option value="NE">Nebraska</option>
                            <option value="NV">Nevada</option>
                            <option value="NH">New Hampshire</option>
                            <option value="NJ">New Jersey</option>
                            <option value="NM">New Mexico</option>
                            <option value="NY">New York</option>
                            <option value="NF">Newfoundland</option>
                            <option value="NC">North Carolina</option>
                            <option value="ND">North Dakota</option>
                            <option value="OH">Ohio</option>
                            <option value="OK">Oklahoma</option>
                            <option value="OR">Oregon</option>
                            <option value="PA">Pennsylvania</option>
                            <option value="RI">Rhode Island</option>
                            <option value="SC">South Carolina</option>
                            <option value="SD">South Dakota</option>
                            <option value="TN">Tennessee</option>
                            <option value="TX">Texas</option>
                            <option value="UT">Utah</option>
                            <option value="VT">Vermont</option>
                            <option value="VA">Virginia</option>
                            <option value="WA">Washington</option>
                            <option value="DC">Washington, D.C.</option>
                            <option value="WV">West Virginia</option>
                            <option value="WI">Wisconsin</option>
                            <option value="WY">Wyoming</option>
                          </select>                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >Zip Code</td>
                        <td width="60%"> &nbsp; 
                          <input name="txtpcode<%=i%>" type="text" class="txtbox1" tabindex="5" VALUE="<%=request.form("txtpcode"&i)%>" maxlength="5">                        </td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >Contact Number</td>
                        <td width="60%"> &nbsp; 
                          <input name="txtcontactno<%=i%>" type="text" class="txtbox1" id="txtcontactno<%=i%>" onBlur="MM_validateForm('txtcontactno<%=i%>','','NisNum');return document.MM_returnValue" VALUE="<%=request.form("txtcontactno"&i)%>">                        </td>
                      </tr>
                      <tr>
                        
                        <td align="right" >Email Address</td>
                        <td>&nbsp;	<input NAME="txtemailid<%=i%>" type="text" class="combobox1" id="txtemailid<%=i%>" onBlur="YY_checkform('regfrm','txtemailid<%=i%>','#S','2','E-mail  is not valid. Please Enter a valid Email. ');return document.MM_returnValue" VALUE="<%=request.form("txtemailid"&i)%>"></td>
                      </tr>
                                  
                      <tr>
                        <td align="right" >Shirt Size </td>
                        <td> &nbsp; 
			<select name="txtshirtsize<%=i%>" width="3" VALUE="<%=request.form("txtshirtsize"&i)%>">
			  <option>Small</option>
			  <option>Medium</option>
			  <option>Large</option>
			  <option>X-Large</option>
			  <option>XX-Large</option>
			  <option>XXX-Large</option>
			  <option selected>--Choose a Size--</option>  
						</select>                    </td>
                      </tr>
                      <tr>
                        <td align="right" >Handicap </td>
                        <td> &nbsp; 
						<input type="text" name="txthandicap<%=i%>" class="combobox1" VALUE="<%=request.form("txthandicap"&i)%>"></td>
                      </tr>
                      <tr> 
                        <td width="40%" align="right" >Home Course </td>
                        <td width="60%"> &nbsp; 
						<select name="txthomecourse<%=i%>" class="combobox1">
                            <option value="">--Choose The Course--</option>
                            <%
							  set Rs_Course = conSQL.execute("select * from courses")
							  while Not Rs_Course.Eof 
								response.Write("<option value="&Rs_Course("CourseID")&">"&Rs_Course("Name")&"</option>")							  	
								Rs_Course.MoveNext
							  wend 
							  %>
                        </select>                        </td>
                      </tr>
					  <% 
					  If int(i)=int(nct) Then %>
                      <tr align="center" > 
                        <td colspan="2" > 
						                          <input type="hidden" name="tourname" value="<%=tourname%>">
						   <input type="hidden" name="TID" value=<%=TID%>>
 
                          <input type="submit" name="Submit" value="Submit" class="button1" onClick="return validate_all()">
                          <input type="reset" name="Submit2" value="Reset" class="button1">                        </td>
                      </tr>
					  <% End If %>
                    </table>
               <%
			   Next
			   %>
                  </td>
				</tr>
              </table>
            </td>
          </tr>
        </table>
        <br>
        <br>
      </form>    </td>
    <td width="1" valign="top" bgcolor="#285E8E"></td>
    <!--
    <td width="161" valign="top" bgcolor="#FFFFFF"> 
      <!--include file="../include/right.asp"
    </td> -->
    
    
  </tr>
  <tr> 
    <td colspan="4">
      <!--#include file="../include/footer.asp"-->
    </td>
  </tr>
</table>
</body>
</html>

Open in new window

Avatar of brad2575
brad2575
Flag of United States of America image

Just Move this to inside the loop to just before you loop again:
            rsNewListMember.MoveNext      
                        Loop      

The best thing to do would be to create a function to send the emails and just call the function each loop.

I will find my code and post that in a minute.




      TBdy=""
                  Set MyCDO =CreateObject("CDO.Message")
                  
                  'strTo = """" & objEMailDictionary.Item("ToName") & """ <" & objEMailDictionary.Item("ToEMail") & ">"
                  
                  MyCDO.To = txtemailid
                  'MyCDO.Bcc=txtemaild2
                  'MyCDO.Cc=txtemailid
                  
                  MyCDO.From = "info@playerscores.com"
                  MyCDO.Subject = "Tournament signup confirmation from playerscores.com "
                  TBdy = TBdy & " <br><br>Thanks for registering your team<b> "& request.form("txtteamname")&"</b> online with the <b>"& request.form("tourname") &"</b><br> If you have any questions please do not hesitate to email us at info@playerscores.com <br><br>Thanks<br>PlayerScores.com Staff"
                              MyCDO.HTMLBody = TBdy
                              MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="192.168.5.235"
'Server port
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
MyCDO.Configuration.Fields.Update
 
MyCDO.Send
 
 
'response.write("allemails")


Here is the code to create a function to send the email, then you just pass it the to, subject, body, and cc values.

This way you can put this function in a global include or something and just call it whenever you need to send an email so if you need to make changes to your email sending you only have to change it in one spot.
Function SendEmailCC(sendTo, subject, mailBody, sendToCC)	
	Dim errorReturn, sendFrom
	
	sendFrom = "SendFromEmail@Email.com"
	errorReturn = ""
	
	err.Clear
	
	
	Dim objCDOSYSMail		
	Set objCDOSYSMail = Server.CreateObject("CDO.Message")
		
	' to make font in all emails arial	
	mailBody = "<span style='font-size:11pt;font-family: arial,verdana,helvetica,sans-serif;'>" & mailBody & "</span>"
 
    objCDOSYSMail.From = sendFrom
	objCDOSYSMail.To = sendTo 	
	objCDOSYSMail.CC = sendToCC
	objCDOSYSMail.Subject = subject  
	objCDOSYSMail.HTMLBody = mailBody 
	
	
	' do a check that if the sendto is null do NOT send the email
	if sendTo <> "" Then
	    objCDOSYSMail.Send  
	End If
	
	
	If Err.number <> 0 Then
		errorReturn = "<BR><BR>Error Sending Error Email.<BR>" 					
	End If
	
	
	Set objCDOSYSMail = Nothing
	err.Clear
	
	
End Function

Open in new window

Avatar of RickyGtz
RickyGtz

ASKER

HI, I tried that but i am getting error.
Microsoft VBScript compilation error '800a03fc'

Expected 'Next'
Can you look at the code and see what is going wrong ?




                        Randomize Timer
                                    
                  strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
                        
                              Do While NOT rsNewListMember.EOF      
                              
                              If strUserCode = rsNewListMember("ID_Code") Then
                              
                                    Randomize Timer
                                    
                                    strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
                              
                              rsNewListMember.MoveFirst
                              End If      
                              
                              If strEmailAddress = txtemailid Then
                                    blnError = True
                                    Exit Do
                              End If
                              
                              
                              TBdy=""
                  Set MyCDO =CreateObject("CDO.Message")
                  
                  'strTo = """" & objEMailDictionary.Item("ToName") & """ <" & objEMailDictionary.Item("ToEMail") & ">"
                  
                  MyCDO.To = txtemailid
                  'MyCDO.Cc=txtemailid
                  
                  MyCDO.From = "info@playerscores.com"
                  MyCDO.Subject = "Tournament signup confirmation from playerscores.com "
                  TBdy = TBdy & " <br><br>Thanks for registering your team<b> "& request.form("txtteamname")&"</b> online with the <b>"& request.form("tourname") &"</b><br> If you have any questions please do not hesitate to email us at info@playerscores.com <br><br>Thanks<br>PlayerScores.com Staff"
                              MyCDO.HTMLBody = TBdy
                              MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="192.168.5.235"
'Server port
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
MyCDO.Configuration.Fields.Update

MyCDO.Send


'response.write("allemails")


If Err.Number <> 0 Then
                        Response.Write "Error: " & Err.Description
                      response.end
                      end if
                        
                        ' clean up
                        set MyCDO=nothing
                        url="thank.asp"
                              response.redirect(url)
                              
                              
                              rsNewListMember.MoveNext      
                        Loop      
                        
            If blnError = False Then
            Set rsNewListMemberc = Server.CreateObject("ADODB.Recordset")
            strSQLC = "SELECT * FROM tblMailingList where Email='"&txtemailid&"'"
            rsNewListMemberC.Open strSQLC, con3SQL
      If rsNewListMemberC.EOF Then
con3SQL.execute("Insert into tblMailingList(Email,ID_Code) values('"&txtemailid&"','"&strUserCode&"')")
                              End If
                        End If
                        
                        rsNewListMember.Close
                        Set rsNewListMember = Nothing
                        
                                          
It's kind of working now,  It does send email to each member who enter their email,,, but


ITS SENDING TONS OF COPIES OF IT, Like 20 or so,,,,, I am sure is a looping problem  can I have some help on this??



<!--#include file="../include/intialize.inc"-->
<!--include file="../include/connection.asp"-->
<!--#include file="../../Connections/sqlConn1.asp" -->
<!--#include file="../../Connections/sqlConn3.asp" -->
 
<!-- #include File="../include/logincheck.asp" -->
<%
If request.form("T_name")<>"" Then
tourname=request.form("T_name")
Else
tourname=request.form("tourname")
End If
'response.write "tourname--"& tourname
 
If request.form("T_Id")<>"" Then
	TID=request.form("T_Id")
Else
	TID=request.form("TID")
End If
' Memeber Registration 
 
	If (Request.Form("Submit")<>"") Then	
	
		set rs_val = Server.Createobject("ADODB.Recordset")
		ccnt=0
		c=0
					
		sql_res_val="select max(TIID) from players"
		rs_val.open sql_res_val,conSQL
		if rs_val(0)<>""  Then
			TIID=rs_val(0)+1
		Else
			TIID=1000
		End if
		session("r_mcount") = Request.Form("mcount")
		session("r_tourname") = Request.Form("tourname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		
		'do we need an user name also here ? 
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to request.form("mcount")
		
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
					'session("r_txtemailid"&p) = Request.Form("txtemailid"&p)
					
					response.write "tname :" & session("r_txtfname"&p)
					
					txtteamname=request.form("txtteamname"&p)
					txtfname=request.form("txtfname"&p)
					txtlname=request.form("txtlname"&p)
					txtaddr1=request.form("txtaddr1"&p)
					txtaddr2=request.form("txtaddr2"&p)
					txtcity=request.form("txtcity"&p)
					txtstate=request.form("txtstate"&p)
					txtcourseid=request.form("txtcourseid"&p)
					txtpcode=request.form("txtpcode"&p)
					txtcontactno=request.form("txtcontactno"&p)
					txtemailid=request.form("txtemailid"&p)
					txtshirtsize=request.form("txtshirtsize"&p)
					txthandicap=request.form("txthandicap"&p)
					txthomecourse=request.form("txthomecourse"&p)
					regdate=date()
					regtime=time()
					'allemails = allemails &txtemailid
					
					
										
					
					
					response.Write("txtteamname")		
					conSQL.execute("Insert into Players(teamname,firstname,lastname,addy1,addy2,city,state,Zip,phone,email,regdate,regtime,TourID,Shirtsize,Handicap,courseID,TIID) values('"&txtteamname&"','"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&")")
			
					Set rsNewListMember=Server.CreateObject("ADODB.Recordset")
					
					strSQL = "SELECT tblMailingList.* FROM tblMailingList;"
					rsNewListMember.Open strSQL, con3SQL
				
					Randomize Timer
						
			strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
				
					Do While NOT rsNewListMember.EOF	
					
					If strUserCode = rsNewListMember("ID_Code") Then
					
						Randomize Timer
						
						strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
					
					rsNewListMember.MoveFirst
					End If	
					
					If strEmailAddress = txtemailid Then
						blnError = True
						Exit Do
					End If
					
								TBdy=""
			Set MyCDO =CreateObject("CDO.Message")
			
			'strTo = """" & objEMailDictionary.Item("ToName") & """ <" & objEMailDictionary.Item("ToEMail") & ">"
			
			MyCDO.To = txtemailid
			'MyCDO.Bcc=txtemaild
			'MyCDO.Cc=txtemailid
			
			MyCDO.From = "info@playerscores.com"
			MyCDO.Subject = "Tournament signup confirmation from playerscores.com "
			TBdy = TBdy & " <br><br>Thanks for registering your team<b> "& request.form("txtteamname")&"</b> online with the <b>"& request.form("tourname") &"</b><br> If you have any questions please do not hesitate to email us at info@playerscores.com <br><br>Thanks<br>PlayerScores.com Staff"
					MyCDO.HTMLBody = TBdy
					MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="192.168.5.235"
'Server port
MyCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
MyCDO.Configuration.Fields.Update
 
 
MyCDO.Send
 
'response.write("allemails")
 
 
If Err.Number <> 0 Then
				Response.Write "Error: " & Err.Description
			    response.end
			    end if
					
					
					
					
					
					
					
					
					
					
					
					
					rsNewListMember.MoveNext	
				Loop	
				
		If blnError = False Then
		Set rsNewListMemberc = Server.CreateObject("ADODB.Recordset")
		strSQLC = "SELECT * FROM tblMailingList where Email='"&txtemailid&"'"
		rsNewListMemberC.Open strSQLC, con3SQL
	If rsNewListMemberC.EOF Then
con3SQL.execute("Insert into tblMailingList(Email,ID_Code) values('"&txtemailid&"','"&strUserCode&"')")
					End If
				End If
				
				rsNewListMember.Close
				Set rsNewListMember = Nothing
				
							
			Next			
								
			
			'Set rsNewListMember1=Server.CreateObject("ADODB.Recordset")
			'strSQL1 = "SELECT Tourfee FROM tblTournament where TourID="&TID&";"
			'rsNewListMember1.Open strSQL1, conSQL
			
					' Are we charging a fee to register a tournament?
					
					'if rsNewListMember1("Tourfee") <> 0 then
					'url="thank.asp"
					'response.redirect(url)
					'else
					'On Error resume Next
									
 
				
				' clean up 
				set MyCDO=nothing
				url="thank.asp"
					response.redirect(url)
					end if 
	
%>

Open in new window

Well one thing you want to change
TBdy = TBdy

to TBdy =

or else the variable will have the same text added to it for EVERY LOOP.  SO if you have 5 loops then the text will be duplicated 5 times (for the 5th person).

If multiple emails are being sent out you may have to do an if check saying if current <> last loop email then do NOT send.

I will have to look at it more.
You meant

CHange TBdy = TBdy
instead of
to TBdy=""
But the problem is that multiple emails are being sent,  to each team member that enters their email .  I know it has to do a looping error.
Thanks I'll apreciate  for your  help so far .
ASKER CERTIFIED SOLUTION
Avatar of brad2575
brad2575
Flag of United States of America 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