<%Option Explicit%> <% '************************************************************************* ' Remail software to customered ' VP-ASP 6.50 '*************************************************************************** shopcheckadmin "" Server.ScriptTimeout=300 const Defaultdirectory="" dim my_system dim oid, orders, dbc Dim OptionOrderNumber, PreviousOrderNumber, OPtionupgrade, Previousupgrade dim previousemail, optionemail, optionorderdate, previousorderdate Dim Textarray(500) Dim TextCount dim strname, strmessage, strfilename, strdirectory, strsubject,strorderno, strfilenamecount Dim i,j Dim sDBName Dim sAction Dim OrderNumber, strorderamount Dim strOlastname Dim Emailaddress dim strOther1 dim mycounter dim strCardType dim Customerid dim strdualtotal dim orderdate dim upgradefee, upgradefeeUS dim Upgrade strfilename = getsessa("filename") mycounter=Session("counter") mycounter=0 session("counter")=mycounter Session("currenturl")=request.servervariables("script_name") sAction=Request.form("Action") strdirectory=DefaultDirectory AdminPageHeader Setdefaultvalues If sAction = "" Then DisplayForm() Else ValidateData() if sError = "" Then Domailing WriteNiceMessage setsessa "filename", "" shopwriteerror "Files sent" DisplayForm else DisplayForm end if end if adminPageTrailer Sub DisplayForm() GenerateDisplayHeader "Send files to customer" GenerateDisplayBodyHeader Response.Write("
") Response.Write("" & sError & "

") Response.Write("

") Response.Write("") Response.Write("") Response.Write("") for j = 0 to ubound(strfilename) Response.Write("") next Response.Write("") Response.Write("") Response.Write("") Response.Write("
Email
Name
Filename " & j & "
Subject
Order Number
Template

") Response.Write("") Response.Write("

") GenerateDisplayBodyFooter gethelp End Sub Sub ValidateData() stremail = Request.Form("stremail") strname = Request.Form("strname") for j = 0 to ubound(strfilename) execute("strfilename" & j & " = Request.Form(""strfilename" & j & """)") strfilename(j) = eval("strfilename" & j) if strfilename(j) > "" then strfilename(j) = strfilename(j) end if next setsessa "filename", strfilename strdirectory = Request.Form("strdirectory") strsubject=request("strsubject") strorderno=Request.Form("strorderno") strtemplate=Request.Form("strtemplate") validatefield strorderno,"Order Number" validatefield stremail,"Email" validatefield strname,"Name" dim isdata isdata = false for j = 0 to ubound(strfilename) if eval("strfilename" & j) > "" then isdata = true end if next if isdata = true then validatefield "a","Filename" else validatefield "","Filename" end if 'validatefield strdirectory,"Directory" validatefield strsubject,"Subject" validatefield strtemplate,"Template" end sub Sub Validatefield (value, msg) If value="" Then sError = sError & msg & " " & "is a required field.
" End If End Sub Sub Domailing dim body, mailtype, my_from, my_fromaddress, my_to, my_toaddress, my_subject dim acount, emailformat, my_attachment dim template opencustomerdb custdbc sql="select * from customers where contactid= (SELECT ocustomerid FROM orders WHERE orderid = " & oid & ")" set objrs=custdbc.execute(sql) If objrs.eof then closerecordset objrs shopclosedatabase custdbc exit sub end if template=strtemplate mailtype=getconfig("xemailtype") my_from=getconfig("xemailname") my_fromaddress=getconfig("xemail") my_toaddress=stremail my_to=strname my_system=getconfig("xemailsystem") my_subject= strsubject FormatOtherMail template, objRS, Body Setupemailformat template, emailformat mailtype=getconfig("xemailtype") closerecordset objrs shopclosedatabase custdbc ExecuteMail mailtype,My_from,my_fromaddress,my_to,my_toaddress,my_subject,body,emailformat,strfilename, strfilenamecount end sub '****************************************************************************** ' Logic added to write status to ostatus field '******************************************************************************* Sub WriteNiceMessage dim msg dim orders, dbc Openorderdb dbc msg="Manually mailed on " & now() shopupdatestatus dbc, msg shopclosedatabase dbc end sub Sub Setdefaultvalues oid=request("oid") if not isnumeric(oid) then oid = "" end if if oid="" then exit sub strsubject="Ref: #" & oid & " - " & getconfig("xemailsubject") setsess "remailoid",oid Openorderdb dbc sql="select * from orders where orderid=" & oid set orders=dbc.execute(sql) if not orders.eof then strname=orders("ofirstname") & " " & orders("olastname") stremail=orders("oemail") strorderno=orders("orderid") end if closerecordset orders sql="SELECT oitems.orderitemid, products.orderattachment, oitems.catalogid FROM oitems INNER JOIN products ON oitems.catalogid = products.catalogid" sql=sql & " where oitems.orderid=" & oid set orders=dbc.execute(sql) j = 0 redim strfilename(0) while not orders.eof redim preserve strfilename(j) strfilenamecount = strfilenamecount + 1 strfilename(j)=orders("orderattachment") strdirectory="" j = j + 1 orders.movenext wend setsessa "filename", strfilename closerecordset orders shopclosedatabase dbc end sub sub shopupdatestatus (dbc, msg) dim rsorder sql="Select * from orders where orderid=" & getsess("remailoid") Set rsorder = Server.CreateObject ("adodb.recordset") rsorder.Open sql, dbc, adOpenKeyset, adLockPessimistic, adCmdText rsorder("ostatus")=msg rsorder.update closerecordset rsorder end sub %>