Solved

How to send email with CDOSYS to multipleemails from a Loop

Posted on 2008-10-15
7
353 Views
Last Modified: 2012-06-27
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

0
Comment
Question by:RickyGtz
  • 4
  • 3
7 Comments
 
LVL 16

Expert Comment

by:brad2575
Comment Utility
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")


0
 
LVL 16

Expert Comment

by:brad2575
Comment Utility
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

0
 

Author Comment

by:RickyGtz
Comment Utility
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
                        
                                          
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 

Author Comment

by:RickyGtz
Comment Utility
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

0
 
LVL 16

Expert Comment

by:brad2575
Comment Utility
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.
0
 

Author Comment

by:RickyGtz
Comment Utility
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 .
0
 
LVL 16

Accepted Solution

by:
brad2575 earned 500 total points
Comment Utility
The best way to fix this then (because you are doing so much stuff) is to just create a new loop and just select the data you want/need to send the email and do that at the bottom of your code, make sure you either select DISTINCT EMAIL or do a group by or something so you only get the email address one time in your loop.

So you do not get multiple email addresses.

This will keep the code cleaner, and work better for you.
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
In this article I will describe the Copy Database Wizard method as one possible migration process and I will add the extra tasks needed for an upgrade when and where is applied so it will cover all.
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)
The viewer will learn the basics of jQuery including how to code hide show and toggles. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now