(a)
<% set rs1=conn.Execute("SELECT DATEPART(mm, RecDate) AS Month, "&_
    "DATEPART(dd, RecDate) AS DayOfMonth, DATEPART(dw, "&_
    "RecDate) AS WkDay, COUNT(OrderID) AS UnitsSold FROM UnitsSold "&_
    "WHERE DATEPART(yyyy, RecDate) = " & wYear & " GROUP BY "&_
    "DATEPART(mm, RecDate), " & _
    "DATEPART(dd, RecDate), DATEPART(dw, RecDate) "&_
    "ORDER BY DATEPART(mm, RecDate), DATEPART(dd, RecDate)") %>

(b) 
<% szSQL = "SELECT DATEPART(mm, RecDate) AS Month, "&_
    "DATEPART(dd, RecDate) AS DayOfMonth, DATEPART(dw, "&_
    "RecDate) AS WkDay, COUNT(OrderID) AS UnitsSold FROM UnitsSold "&_
    "WHERE DATEPART(yyyy, RecDate) = " & wYear & " GROUP BY "&_
    "DATEPART(mm, RecDate), " & _
    "DATEPART(dd, RecDate), DATEPART(dw, RecDate) "&_
    "ORDER BY DATEPART(mm, RecDate), DATEPART(dd, RecDate)" %>
<% =szSQL %><P>
<% set rs1=conn.Execute(szSQL) %>

Example 2: Troubleshooting by outputting variables to HTML. (a) Original; (b) change to.