  |
I am having trouble sending email to a Dreamweaver CS5 Recordset using MySQL. If I do not fill in the Data panel then it sends email only to the first record in the Recordset. I have tried to fill in the Data panel to replicate the selection in the Dreamweaver Recordset, but I cannot figure how to make the selection select records with a MemberID = Session.SessionID. I would include the source code with a static variable that works, but this email will not let me do that.
I will try to include it here.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/Void.asp" -->
<!-- #INCLUDE file="./CkEditor/ckeditor.asp" -->
<!--#include file="Connections/cnMySQL1.asp" -->
<%
Dim rsMarquees
Dim rsMarquees_cmd
Dim rsMarquees_numRows
Set rsMarquees_cmd = Server.CreateObject ("ADODB.Command")
rsMarquees_cmd.ActiveConnection = MM_cnMySQL1_STRING
rsMarquees_cmd.CommandText = "SELECT MarqueeText, MarqueeFlyerLink, MarqueeName FROM Marquees WHERE MarqueeName = 'Logo'"
rsMarquees_cmd.Prepared = true
Set rsMarquees = rsMarquees_cmd.Execute
rsMarquees_numRows = 0
%>
<%
'*********************************
'* ADVANCED MAIL *
'*********************************
deleteProgressMail session.SessionID
'*********************************
'* ADVANCED MAIL *
'*********************************
%>
<%
Dim rsSmartMailer__MMColParam
rsSmartMailer__MMColParam = "0"
If (Session.SessionID <> "") Then
rsSmartMailer__MMColParam = Session.SessionID
End If
%>
<%
Session("BackToURL") = "SmartMailer.asp"
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="Administrator,Officer,Member,Director"
MM_authFailedURL="MustBeMember.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<% Server.ScriptTimeout = 3600
%>
<%
Dim rsSmartMailer
Dim rsSmartMailer_cmd
Dim rsSmartMailer_numRows
Set rsSmartMailer_cmd = Server.CreateObject ("ADODB.Command")
rsSmartMailer_cmd.ActiveConnection = MM_cnMySQL1_STRING
rsSmartMailer_cmd.CommandText = "SELECT Email as MemberEmail, FirstName as MemberFirstName, LastName as MemberLastName,'[email protected]' as TestMail FROM EmaiList WHERE MemberID = ? ORDER BY LastName, FirstName"
rsSmartMailer_cmd.Prepared = true
rsSmartMailer_cmd.Parameters.Append rsSmartMailer_cmd.CreateParameter("param1", 5, 1, -1, rsSmartMailer__MMColParam) ' adDouble
Set rsSmartMailer = rsSmartMailer_cmd.Execute
rsSmartMailer_numRows = 0
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_cnMySQL1_STRING
Recordset1_cmd.CommandText = "SELECT DocumentFileName FROM PetanqueDocuments WHERE DocumentCategory = 'Attachment'"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim rsUserName__MM_ColParam
rsUserName__MM_ColParam = "[email protected]"
If (Session("MM_Username") <> "") Then
rsUserName__MM_ColParam = Session("MM_Username")
End If
%>
<%
Dim rsUserName
Dim rsUserName_cmd
Dim rsUserName_numRows
Set rsUserName_cmd = Server.CreateObject ("ADODB.Command")
rsUserName_cmd.ActiveConnection = MM_cnMySQL1_STRING
rsUserName_cmd.CommandText = "SELECT MemberLastName, MemberFirstName FROM svnc.Petanque WHERE MemberUserName = ?"
rsUserName_cmd.Prepared = true
rsUserName_cmd.Parameters.Append rsUserName_cmd.CreateParameter("param1", 200, 1, 50, rsUserName__MM_ColParam) ' adVarChar
Set rsUserName = rsUserName_cmd.Execute
rsUserName_numRows = 0
%>
<%
'*********************************
'* *
'* ADVANCED MAIL *
'* http://www.DwZone-it.com *
'* *
'*********************************
server.ScriptTimeout = 5400
Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, FileMatch
Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, RG_typeArray, RG_z, UploadStatus, NumFile, RG_MailParameter
Dim OnLoadStart,ProgressMail,RG_BodyText,BodyFromFile,ImagesList,FilesList,StrSql,ReplaceList,sendAllFilesInFolder,sendAllFilesType,Rs,Parametri,SendMailID,Risposta,Cong,TotalMail,NumMail,TimeStart,Mailer,MailPar_1,MailPar_2,MailPar_3,MailPar_4,MailPar_5,FromName,FromMail, ReplyName, ReplyMail, ToName, ToMail, CcList, BccList, ReturnReceipt, MailFormat, Priority, MailObject, Message,Cc,Bcc,Comando,Conn,Fs,TempFolder,TempFileName,retStr,Risp,IsMailSend,newPage,ListToReplace,valori,ListFile,Folder,File,ListImage,UploadID,StatusFile,NewFileName,VerLen,VerExt,ItemCounter,Ris,FileToDelete,separ,ThisPage,tmpFile,LineaFile
Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, ParamVal_AdvMail, TotalFileSize, NoSendFileExceed, UploadMailError, valueToRedirectSend, MaxFieldNumberAdv, newPassword
OnLoadStart = "0"
if OnLoadStart = "0" then
Set Form = New ASPForm
UploadID = Form.NewUploadID
end if
ProgressBar = ""
ProgressMail = ""
editRedirectUrl = "MailOK.asp"
RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./"
RG_formName = "form1"
RG_MailParameter = "3@@@_@@@_@@@relay-hosting.secureserver.net@@@_@@@_@@@25@@@_@@@_@@@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@Sonoma Valley Newcomers Club@@@_@@@_@@@[email protected]@@@_@@@_@@@@_start_@(rsUserName.Fields.Item(@_''_@MemberFirstName@_''_@).Value) & @_''_@ @_''_@ & (rsUserName.Fields.Item(@_''_@MemberLastName@_''_@).Value)@_end_@@@@_@@@_@@@f1Username@_form_@@@@_@@@_@@@LastName@_rec_@@@@_@@@_@@@TestEmail@_rec_@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@f1Subject@_form_@@@@_@@@_@@@0@@@_@@@_@@@2@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@f1Message@@@_@@@_@@@@@@_@@@_@@@0@@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@d@@@_@@@_@@@/Attachments/@@@_@@@_@@@0@@@_@@@_@@@"
RG_BodyText = "f1Message@_form_@"
BodyFromFile = ""
UploadType = "AdvancedMail"
ImagesList = ""
FilesList = ""
RG_Connection = MM_cnMySQL1_STRING
ReplaceList = ""
sendAllFilesInFolder = ""
sendAllFilesType = 0
UploadStatus = ""
NumFile = 0
if OnLoadStart = "-1" then
StrSql = "SELECT svnc.EmaiList.LastName, svnc.EmaiList.FirstName, svnc.EmaiList.Email, svnc.EmaiList.MemberID, '[email protected]' AS TestEmail FROM svnc.EmaiList WHERE svnc.EmaiList.MemberID = '691171775'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
else
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")
end if
if (Request.QueryString <> "") Then
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID
else
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID
End If
Const fsCompletted = 0
If Form.State = fsCompletted Then
StrSql = "SELECT svnc.EmaiList.LastName, svnc.EmaiList.FirstName, svnc.EmaiList.Email, svnc.EmaiList.MemberID, '[email protected]' AS TestEmail FROM svnc.EmaiList WHERE svnc.EmaiList.MemberID = '691171775'"
if UploadFormRequest("DW_Form_Name") = "form1" then
if Form.State = 0 then
verifyUserExists()
if RG_Files <> "" then
setExtraData()
setParamVal()
setParamVal_AdvMail()
Form.Files.Save
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
End If
End If
ElseIf Form.State > 10 then
response.write "<br><Font Color=red>Some form error.<br>Error code: " & Form.State & "<br>Error List:<br>0 Form was successfully processed. <br>1 Request method is NOT post <br>2 Zero length request (there are no data in a source form) <br>3 Form is in a middle of process. <br>5 Initial form state <br>11 Boundary of multipart/form-data is not specified. <br>12 Unknown source form (Content-type must be multipart/form-data) <br>15 Client was disconnected before upload was completted.<br>16 Unexpected error from Request.BinaryRead method (ASP error).<br></Font><br>"
End If
End If
function GetFolderName(str): GetFolderName = Ris : end function %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml X-UA-Compatible: IE=7">
<head>
<%
' WYSIWYG HTML Editor
response.Write("<script language='javascript' src='./CkEditor/UpdateValue.js' type='text/javascript'></script>")
' WYSIWYG HTML Editor
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Sonoma Valley Newcomers Club</title>
<style type="text/css">
Center {
text-align: center;
}
</style><style type="text/css">
<!--
body {
background-color: #FFFFCC;
}
.Center {
text-align: center;
}
-->
</style>
<body bgcolor="#FFFFCC" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<h1 align="center"><img src="<%="Images/"&(rsMarquees.Fields.Item("MarqueeFlyerLink").Value)%>" alt="Image" width="700" height="130" /></h1>
<div align="center">
<table width="670" border="1">
<tr>
<td width="98"><a href="Default.asp">Home</a></td>
<td width="98" height="23"><a href="Activities.asp">Activities</a></td>
<td width="153"><a href="Calendar.asp">Calendar</a></td>
<td width="293"><a href="AboutUs.asp">About US</a></td>
<td width="293"><a href="MemberLogin.asp">Member Login</a></td>
</tr>
</table>
</div>
<h1 class="Center">Send Email</h1>
<p>Session ID = <%=Session.SessionID%> </p>
<p class="Center">If you want to include a link to an attachment with your email, click on Link<img src="Images/world-link-icon.png" width="17" height="17" alt="Link" /> button in the message editor. <br />
When your email is ready to send, scroll down to the "Send Email" button at the bottom and click on it. Click <a href="MassEmailInstructions.asp">HERE</a> for full instructions.</p>
<div align="Center">
<form action="<%=editAction%>" method="post" enctype="multipart/form-data" name="form1" id="form1" onsubmit="return ProgressBar()">
<p>
<label>Subject
<input name="f1Subject" type="text" id="f1Subject" size="100" />
</label>
<p>Message <br />
<%
'***************************
'***************************
' http://www.DwZone-it.com
' WYSIWYG HTML Editor
' Version 3.0.6
'***************************
'***************************
Dim editor_1
set editor_1 = New CKEditor
editor_1.dwzInstanceName = "f1Message"
editor_1.config("width") = 400
editor_1.config("height") = 300
editor_1.basePath = "./CkEditor/"
editor_1.dwzToolbarList = "0_5_6_7_12_13_18_19_-1_20_21_22_23_24_25_26_27_-1_28_29_30_31_32_33_36_39_-1_42_43_45_46_47"
editor_1.dwzTestWritePermission = "false"
editor_1.dwzUploadFolder = "/attachments/"
editor_1.dwzSkin = "Aluminium"
editor_1.dwzAutoGrow = "n;200;400"
editor_1.dwzFontList = "Arial;Comic Sans MS;Courier New;Tahoma;Times New Roman;Verdana"
editor_1.dwzFontSizes = "8/8px;9/9px;10/10px;11/11px;12/12px;14/14px;16/16px;18/18px;20/20px;22/22px;24/24px;26/26px;28/28px;36/36px;48/48px;72/72px"
editor_1.dwzResizeOptions = "0;0;0;0;80;0"
editor_1.dwzOthersOptions = ";false;0;;true;0;_;true;true;false;false;false;false;false;850;500;p;false;en;0;false;false;false;ltr;br;FFFFFF;50;false;0;"
editor_1.dwzAllowedFileType = "@__@php|asp|aspx|ascx|jsp|cfm|cfc|pl|bat|exe|com|dll|vbs|js|reg|mdb@__@jpg|gif|jpeg|png|bmp@__@"
editor_1.dwzValue = ""
editor_1.SetDwZoneParam()
'***************************
%>
<textarea id="f1Message" name="f1Message" style="width:400px;height:300px;<%="display:none;visibility:hidden;"%>" ></textarea>
<p><br />
<label>
</label>
<p>
<input type="submit" value="Send Email" />
<input name="f1Username" type="hidden" id="f1Username" value="<%=Session("MM_Username")%>" />
</p>
<input type="hidden" name="DW_Form_Name" value="form1"/>
</form>
</div>
</body>
</html>
<%
rsSmartMailer.Close()
Set rsSmartMailer = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
rsUserName.Close()
Set rsUserName = Nothing
%>
<%
rsMarquees.Close()
Set rsMarquees = Nothing
%>
<%
' WYSIWYG HTML Editor
editor_1.replaceInstance "f1Message"
set editor_1 = nothing
' WYSIWYG HTML Editor
%>
<!--#include file="dwzMail/Upload.asp" -->
<!--#include file="dwzMail/AdvancedMail.asp" -->
<!--#include file="dwzMail/UploadAdvanced.asp" -->
|
|
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Login
Unread message![Read message [popular]](https://forum.dwzone-it.com/template/subSilver/images/folder_hot.gif)
Read message [popular] ![Unread message [popular]](https://forum.dwzone-it.com/template/subSilver/images/folder_new_hot.gif)
Unread message [popular]![Read message [locked]](https://forum.dwzone-it.com/template/subSilver/images/folder_lock.gif)
Read message [locked] ![Unread message [locked]](https://forum.dwzone-it.com/template/subSilver/images/folder_lock_new.gif)
Unread message [locked]