<% IF request.querystring ("action") <> "step2" then %>

Date to Send

Subject Line

Test Address

Theme

Current News

Send to test address

Send out to entire mailing list

<% else dateVar=request.form ("sendDate") %>

Date to Send

"> Subject Line

"> Test Address

"> Theme

Current News

"> Send to

<% 'response.write "

" 'response.write cdate(dateVar) & " " & cdate(datevar) + 30 &"
" 'response.write request.form ("subject") & "
" 'response.write request.form ("address") & "
" 'response.write request.form ("theme") & "
" 'response.write request.form ("note") & "
" 'response.write request.form ("sendwho") & "
" 'response.write "

" chunkVar = "" Set Conn = server.createObject("ADODB.connection") Conn.open "DSN=nothingtoit_7051" SQL = "SELECT [class_datetime_tbl].[class_datetime_id], " SQL = SQL &"[class_datetime_tbl].[class_datetime], " SQL = SQL &"[class_datetime_tbl].[class_status], [class_tbl].[class_name], " SQL = SQL &"[class_tbl].[class_price], [class_tbl].[class_new], " SQL = SQL &"[class_series_tbl].[class_series]" SQL = SQL &"FROM (class_series_tbl INNER JOIN class_tbl ON " SQL = SQL &"[class_series_tbl].[class_series_id]=[class_tbl].[class_series_id])" SQL = SQL &" INNER JOIN class_datetime_tbl ON " SQL = SQL &"[class_tbl].[class_id]=[class_datetime_tbl].[class_id] WHERE" SQL = SQL &"[class_datetime_tbl].[class_status] <> TRUE AND " SQL = SQL &"[class_datetime_tbl].[class_datetime] between #"&datevar&"# AND #"&(cdate(datevar)+21)&"# " SQL = SQL &"ORDER BY [class_datetime_tbl].[class_datetime];" Set RS = server.CreateObject("Adodb.recordset") RS.open SQL, CONN, 2 While NOT RS.EOF tempVar = rs("class_datetime") chunkVar = chunkVar & "" Rs.movenext Wend Rs.close Set RS=nothing Conn.close Set Conn = nothing chunkVar = chunkVar & "
"&rs("class_name")&""&tellDayOfWeek(tempVar)&", "&trimseconds(tempVar)&"newdateseries"&formatcurrency(rs("class_price"))&"
" 'response.write chunkVar %>

Classes

<% end if %>