Sending Order Shipped Emails to all orders in Shipping state.


<% ' Open Database Connection Server.MapPath(".") dbPath = "E:/hshome/webcaddy/database/storedbexchange.mdb" Set Con = Server.CreateObject("ADODB.Connection") Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath %> <% ' Retrieve Orders in shipping to send emails to sqlString = "SELECT * " &_ " FROM (orders INNER JOIN (users INNER JOIN ship ON users.user_id = ship.ship_userID) " &_ " ON orders.order_shipID = ship.ship_shipID) " &_ " WHERE ship_status = 4" sqlString = sqlString & " ORDER BY ship_created , orders.order_productID DESC" IF session( "iDebugLevel" ) > 0 THEN %>

Session Debug Level Set to:<%=session( "iDebugLevel" )%>
sqlString: <%=sqlstring%>
<%END IF%> <% SET RS = Server.CreateObject( "ADODB.Recordset" ) RS.CursorType = adOpenStatic RS.ActiveConnection = Con RS.Open sqlString %> <% WHILE NOT RS.EOF %> <% currentship=RS( "ship_shipid" ) userid=RS( "user_id") shippedon= now() username=RS( "user_username" ) email = RS( "user_email" ) firstname = RS( "user_firstname" ) lastname = RS( "user_lastname" ) nextuser = "FALSE" %> <% WHILE NOT RS.EOF AND nextuser = "FALSE" IF currentShip = RS( "ship_shipid" ) THEN RS.MoveNext ELSE nextuser = "TRUE" END IF WEND %> Emailing : <%=username%> to the following email address : <%=email%>
<% Set newMailObj = CreateObject("CDO.Message") newMailObj.To = email newMailObj.From = "steven@webcaddy.com.au" newMailObj.Subject = "Mogg Adapter Order Shipped" sbody = vbNewLine sbody = sbody & firstname & "," & vbNewLine & vbNewLine sbody = sbody & "Your order shipped " & Day(shippedon) &" "& MonthName(Month(shippedon)) &" "& Year(shippedon) & " via airmail" & vbNewLine sbody = sbody & "Normal delivery time is 4 to 12 days" & vbNewLine & vbNewLine sbody = sbody & "You can view your final order invoice at: " sbody = sbody & "http://webcaddy.com.au/astro/showorders.asp?customer=" & userID & vbNewLine & vbNewLine sbody = sbody & "Regards," & vbNewLine & "Steven" & vbNewLine & vbNewLine newMailObj.TextBody = sbody newMailObj.Send Set newMailObj = Nothing %> <% WEND %>