<% Function CinSendMail

Dim objNewMail, strBody, email

Set objNewMail = Server.CreateObject("CDONTS.NewMail")

email = Session("email")

objNewMail.From = email

objNewMail.To = "info@4windsgroup.com"

objNewMail.Subject = "4Winds Group Sign-up Form Response"

strBody = "4Winds Group Sign-up Form" & vbCr  
strBody = "Name: " & session("Name") & vbCr
strBody = strBody & "Company: "  & Session("Company") & vbCr
strBody = strBody & "Street Address: "  & Session("Address") & vbCr
strBody = strBody & "City: "  & Session("City") & vbCr
strBody = strBody & "State: "  & Session("State") & vbCr 
strBody = strBody & "Zip: "  & Session("Zip") & vbCr
strBody = strBody & "Phone: "  & Session("Phone") & vbCr
strBody = strBody & "Email: "  & Session("Email") & vbCr
strBody = strBody & "Needs: "  & Session("Myneeds") & vbCr
strBody = strBody & "Domain Name: "  & Session("domain_name") & vbCr 
strBody = strBody & "Domain: "  & Session("domain") & vbCr 
strBody = strBody & "Need Hosting: "  & Session("need_hosting") & vbCr 
strBody = strBody & "Others: "  & Session("others") & vbCr
objNewMail.Body = strBody
objNewMail.Send
set objNewMail = nothing

' Here's the autoreply

Set objNewMail = Server.CreateObject("CDONTS.NewMail")
email = Session("email")

objNewMail.From = "info@4windsgroup.com"

objNewMail.To = email

objNewMail.Subject = "Thank you."

strBody = "Thank you for contacting us online. Our sales representative will now call you during business hours." & vbCr & vbCr
strBody = strBody & "- the 4WindsGroup support -" & vbCr
objNewMail.Body = strBody
objNewMail.Send
set objNewMail = nothing

Session.Abandon

end function %>
<% response.buffer = true %>
<% if request.Form("Submit") = "Submit" then
	Session("Name") = request.form("Name")
	Session("Company") = request.form("Company")
	Session("Address") = request.form("Address")
	Session("City") = request.form("City")
	Session("State") = request.form("State")
	Session("Zip") = request.form("Zip")
	Session("Phone") = request.form("Phone")
	Session("Email") = request.form("Email")
	Session("Myneeds") = request.form("Myneeds")
	Session("domain_name") = request.form("domain_name")
	Session("domain") = request.form("domain")
	Session("need_hosting") = request.form("need_hosting")
	Session("others") = request.form("others")
	CinSendMail
	response.clear
	response.redirect "signupthanks.htm"
	response.end
end if %>