Asp classic 通过数组的经典ASP循环

我想我已经很接近了，只是还没到那里。 我将生成一个记录集，然后分配变量并用这些变量构造一封电子邮件，发送电子邮件，然后移动到下一个记录并再次执行，直到它们全部完成。 我的问题是，在我的示例代码中，它确实发送了四（4）封电子邮件，但它们都是第一条记录，因此它不会移动到下一条记录。 下面是我的示例代码：

set rs_remailer = Server.CreateObject("ADODB.recordset")
    sql="SELECT contact.ID, contact.contacttypeID, contact.firstname, contact.lastname, contact.email, contact.company, contact.phone, contact.street, contact.location, contact.cityID, contact.postal, contact.comments, contact.email_alert, contact.created_date, cities.ID AS citiesID, cities.countryID, cities.displayname AS citiesdisplayname, contacttype.displayname AS contacttypedisplayname FROM contact INNER JOIN cities ON cities.ID = contact.cityID INNER JOIN contacttype ON contacttype.ID = contact.contacttypeID  WHERE (contact.ID BETWEEN 5753 AND 5757) ORDER BY contact.ID ASC;"
    rs_remailer.Open sql, conn
    remailerTotalRecords = rs_remailer.getRows()

    Dim contact_ID()
    Dim contact_createddate()
    Dim contact_contacttypedisplayname()
    Dim contact_firstname()
    Dim contact_lastname()
    Dim contact_email()
    Dim contact_company()
    Dim contact_phone()
    Dim contact_street()
    Dim contact_location()
    Dim contact_postal()
    Dim contact_comments()
    Dim contact_emailalert()
    Dim contact_citiesdisplayname()

    contactNumber = 0

    while not rs_remailer.eof
        ReDim Preserve contact_ID(contactNumber+1)
        ReDim Preserve contact_createddate(contactNumber+1)
        ReDim Preserve contact_contacttypedisplayname(contactNumber+1)
        ReDim Preserve contact_firstname(contactNumber+1)
        ReDim Preserve contact_lastname(contactNumber+1)
        ReDim Preserve contact_email(contactNumber+1)
        ReDim Preserve contact_company(contactNumber+1)
        ReDim Preserve contact_phone(contactNumber+1)
        ReDim Preserve contact_street(contactNumber+1)
        ReDim Preserve contact_location(contactNumber+1)
        ReDim Preserve contact_postal(contactNumber+1)
        ReDim Preserve contact_comments(contactNumber+1)
        ReDim Preserve contact_emailalert(contactNumber+1)
        ReDim Preserve contact_citiesdisplayname(contactNumber+1)

        contact_ID(contactNumber) = rs_remailer("ID")
        contact_createddate(contactNumber) = FormatDateTime(rs_remailer("created_date"),1)
        contact_contacttypedisplayname(contactNumber) = rs_remailer("contacttypedisplayname")
        contact_firstname(contactNumber) = rs_remailer("firstname")
        contact_lastname(contactNumber) = rs_remailer("lastname")
        contact_email(contactNumber) = rs_remailer("email")
        contact_company(contactNumber) = rs_remailer("company")
        contact_phone(contactNumber) = formatphone(rs_remailer("phone"))
        contact_street(contactNumber) = rs_remailer("street")
        contact_location(contactNumber) = rs_remailer("location")
        contact_postal(contactNumber) = rs_remailer("postal")
        contact_comments(contactNumber) = rs_remailer("comments")
        contact_emailalert(contactNumber) = rs_remailer("email_alert")
        contact_citiesdisplayname(contactNumber) = rs_remailer("citiesdisplayname")



            emailcontent = ""

            emailcontent = emailcontent & "<h2>" & contact_contacttypedisplayname(i) & " Form Submission</h2>"
            emailcontent = emailcontent & "<p>This message was originally sent on: " & contact_createddate(i) & " </p>"


            emailcontent = emailcontent & "<p>The following Form Submission was made on the ADS-Pipe website:</p>"
            emailcontent = emailcontent & "<table border='0' cellspacing='0' cellpadding='2'>"
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>User:</b></td>"
            emailcontent = emailcontent & "<td width='6' align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>" & contact_firstname(i) & " " & contact_lastname(i) & "</td>"
            emailcontent = emailcontent & "</tr>"
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>E-mail:</b></td>"
            emailcontent = emailcontent & "<td width='6' align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'><a href='mailto:" & contact_email(i) & "'>" & contact_email(i) & "</a></td>"
            emailcontent = emailcontent & "</tr>"
        if not isblank(contact_company(i)) then
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>Company:</b></td>"
            emailcontent = emailcontent & "<td width='6' align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>" & contact_company(i) & "</td>"
            emailcontent = emailcontent & "</tr>"
        end if
        if not isblank(contact_phone(i)) then
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>Phone:</b></td>"
            emailcontent = emailcontent & "<td width='6' align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>" & contact_phone(i) & "</td>"
            emailcontent = emailcontent & "</tr>"
        end if
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>Address:</b></td>"
            emailcontent = emailcontent & "<td width='6' align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>"
            if NOT isblank(contact_street(i)) then emailcontent = emailcontent & contact_street(i) & "<br />"
            if NOT isblank(contact_location(i)) then emailcontent = emailcontent & contact_location(i) & "<br />"
            if NOT isblank(contact_postal(i)) then emailcontent = emailcontent & contact_postal(i)
            emailcontent = emailcontent & "</td>"
            emailcontent = emailcontent & "</tr>"
        if NOT isblank(contact_comments(i)) then
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>Comments:</b></td>"
            emailcontent = emailcontent & "<td width='6' align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>" & contact_comments(i) & "</td>"
            emailcontent = emailcontent & "</tr>"
        end if
        if contact_emailalert(i) then
            emailcontent = emailcontent & "<tr>"
            emailcontent = emailcontent & "<td align='right' valign='top' nowrap='nowrap'><b>E-mail Alerts:</b></td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>&nbsp;</td>"
            emailcontent = emailcontent & "<td align='left' valign='top'>The customer has indicated that they would like to receive e-mail updates about ADS technical information and products.</td>"
            emailcontent = emailcontent & "</tr>"
        end if




            emailcontent = emailcontent & "</table>"
            emailcontent = emailcontent & "<br />"



    '---------------------------------------------------------------------------
            'CLOSE THE DATABASE
            'rs_contactFormDisplayname.close
    '---------------------------------------------------------------------------

            'send email notification
            dim Mailer
            set Mailer = server.createobject("CDO.Message") 

            location_parts = Split(contact_location(i), ",")

            suffix = " "
            if UBound(location_parts) = 2 then suffix = " (" & trim(location_parts(2)) & ")"

            email_subject = "[Website] " & contact_contacttypedisplayname(i) & " Form Submission" & suffix

            Mailer.From = ""

            Mailer.HtmlBody = "<html><body>" & emailcontent & "</body></html>"
            Mailer.Subject = email_subject
            with Mailer.Configuration
                .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailserver
                .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                .Fields.Update
            end with
            Mailer.Send
            set Mailer = Nothing
            CDOSYS_Mailer = true

        contactNumber = contactNumber + 1
        rs_remailer.movenext
    wend


    remailerTotalRecords = rs_remailer.RecordCount

    rs_remailer.close


            response.end

set rs\u remailer=Server.CreateObject（“ADODB.recordset”）
sql=选择contact.ID、contact.contacttypeID、contact.firstname、contact.lastname、contact.email、contact.company、contact.phone、contact.street、contact.location、contact.postal、contact.comments、contact.email\u alert、contact.created\u date、cities.ID为citiesID、cities.countryID、cities.displayname为citiesdisplayname，contacttype.displayname作为contacttypedisplayname来自城市上的联系人内部加入城市。ID=contact.cityID contacttype上的内部加入contacttype.ID=contact.contacttypeID，其中（contact.ID介于5753和5757之间）按contact.ID ASC排序；"
rsu remailer.opensql，康涅狄格州
remailerTotalRecords=rs\u remailer.getRows（）
Dim联系人_ID（）
Dim contact_createddate（）
Dim contact_contacttypedisplayname（）
Dim联系人_firstname（）
Dim联系人_lastname（）
Dim联系人_电子邮件（）
Dim联络公司（）
Dim联系电话（）
昏暗的街道（）
Dim触点位置（）
Dim contact_postal（）
Dim联系人_评论（）
Dim联系人_emailalert（）
Dim联系人\u citiesdisplayname（）
联系人号码=0
而不是rs_remailer.eof
重拨保留联系人ID（联系人号码+1）
ReDim保留联系人\u createddate（联系人号码+1）
重拨保留联系人\联系人类型显示名称（联系人号码+1）
ReDim保留联系人姓名（联系人号码+1）
重拨保留联系人的姓氏（联系人号码+1）
重拨保留联系人\电子邮件（联系人号码+1）
ReDim保留联系人公司（联系人号码+1）
重拨保留联系人电话（联系人号码+1）
ReDim保留联系人_street（联系人号码+1）
重拨保留联系人位置（联系人号码+1）
ReDim保留联系人（联系人号码+1）
重拨保留联系人注释（联系人号码+1）
ReDim保留联系人\u emailalert（联系人号码+1）
重拨保留联系人\城市显示名称（联系人号码+1）
联系人ID（联系人号码）=rs\U回忆体（“ID”）
contact_createddate（contactNumber）=FormatDateTime（rs_remailer（“created_date”），1）
contact_contacttypedisplayname（contactNumber）=rs_remailer（“contacttypedisplayname”）
联系人姓名（联系人号码）=rs\U remailer（“姓名”）
联系人姓氏（联系人号码）=rs\u remailer（“姓氏”）
联系人电子邮件（联系人号码）=收件人（“电子邮件”）
联系人公司（联系人号码）=收件人（“公司”）
联系人电话（联系人号码）=格式电话（rs\U回忆体（“电话”））
联系街道（联系电话号码）=rs\U remailer（“街道”）
联系人位置（联系人号码）=rs\U回送器（“位置”）
联系人（联系人号码）=收件人（“邮政”）
联系人注释（联系人编号）=回复者（“注释”）
联系人电子邮件通知（联系人号码）=rs\U回复器（“电子邮件通知”）
联系人\u citiesdisplayname（联系人号码）=rs\u remailer（“citiesdisplayname”）
emailcontent=“”
emailcontent=emailcontent&“联系人”&“联系人类型显示名称（i）”和“表格提交”
emailcontent=emailcontent&“此消息最初发送于：“&contact_createddate（i）&”
”
emailcontent=emailcontent&“在ADS Pipe网站上提交了以下表单：
”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“用户：”
emailcontent=emailcontent&“”
emailcontent=emailcontent&&contact\u lastname（i）&&contact\u lastname（i）&
emailcontent=emailcontent&“”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“电子邮件：”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“”
如果不为空（联系_公司（i）），则
emailcontent=emailcontent&“”
emailcontent=emailcontent&“公司：”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“与公司联系（i）&”
emailcontent=emailcontent&“”
如果结束
如果不是空白（联系电话（i）），则
emailcontent=emailcontent&“”
emailcontent=emailcontent&“电话：”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“联系电话（i）&”
emailcontent=emailcontent&“”
如果结束
emailcontent=emailcontent&“”
emailcontent=emailcontent&“地址：”
emailcontent=emailcontent&“”
emailcontent=emailcontent&“”
如果不为空（联系_街（i）），则emailcontent=emailcontent&contact_街（i）&“
”
如果不为空（联系位置（i）），则emailcontent=emailcontent&contact位置（i）&“
”
如果不为空（contact_posal（i）），则emailcontent=emailcontent&contact_posal（i）
emailcontent=emailcontent&“”
emailcontent=emailcontent&“”
如果不为空（联系_注释（i）），则
emailcontent=emailcontent&“”
emailcontent=emailcontent&“评论：”
emailcontent=emailcontent&“”
emailcontent=emailcontent&&“联系方式”&“评论（i）&”
emailcontent=emailcontent&“”
如果结束
如果联系_emailalert（i），则
emailcontent=emailcont
emailcontent = emailcontent & "<h2>" & contact_contacttypedisplayname(i) & " Form Submission</h2>"
'NEVER INCREMENTED ---------------------------------------------------^