<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' AGENCY: Department of Labor
' FORM DEVELOPMENT FILE
' Test
''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
x=1/0

If err.number > 0 Then
     Response.Redirect �/500.asp?errDesc=� & err.description & �&errNum=� & err.number
End If
'----------------------------------------
'  Initialize Parts/Sections
'----------------------------------------

DIM REMOTE_HOST_NAME
DIM SENDER_EMAIL_ADDRESS
DIM F_Fullname1
DIM F_Email1

REMOTE_HOST_NAME = "smtp.rcn.com"
REMOTE_HOST_NAME = ""
SENDER_EMAIL_ADDRESS = "[email protected]"
F_Fullname1 = "Dennis"
F_Email1 = "[email protected]"



Response.Write "VALUES FROM THE TEST FORM" & "<br><br>"

For Each f In Request.Form
	If Request.Form(f) = "" Then 
		error = 0
	else
		Response.Write "Form Data -->" & Request.Form(f) & "<br><br>"
	End If
Next

			'----------------------------------------
			' SEND TO COMPLAINANT SMTPsvg.Mailer
			'----------------------------------------
			Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
			
			Mailer.FromName   = "OFCCP - Department Of Labor"
			Response.Write "2.  Mailer.FromName   = -->" & Mailer.FromName & "<br><br>"
			
			Mailer.FromAddress = SENDER_EMAIL_ADDRESS
			Response.Write "3.  Mailer.FromAddress= -->" & Mailer.FromAddress & "<br><br>"
			
			Mailer.RemoteHost = REMOTE_HOST_NAME
			Response.Write "4.  Mailer.RemoteHost = REMOTE_HOST_NAME -->" & Mailer.RemoteHost & "<br><br>"
		
			Mailer.AddRecipient F_Fullname1, F_Email1
			Response.Write "5.  Mailer.AddRecipient F_Fullname1, F_Email1 -->" & F_Fullname1 & "," & F_Email1 & "<br><br>"

			Mailer.Subject    = htmlsubject  
			Response.Write "6.  Mailer.Subject    = htmlsubject -->" & htmlsubject & "<br><br>"

			Mailer.BodyText   = str_html
			Response.Write "7.  Mailer.BodyText   = str_html -->" & str_html & "<br><br>"

			Mailer.ContentType = "text/html"
			Response.Write "8. Mailer.ContentType = 'text/html' -->" & "text/html" & "<br><br>"
 
					
			if Mailer.SendMail then
		  		Response.Write "9.  Mailer.SendMail -->" & Mailer.SendMail & "<br><br>"
			else
		  		Response.Write "9.  Mailer.SendMail is false-->" & Mailer.SendMail & "<br><br>"
			end if

response.write �<b>Error Number:</b>� & Request.Querystring(�errNum�)

%>