Por favor ingrese la siguiente información para que pueda recibir una suscripción gratuita al Boletín Informativo de ThinkSmart Performance Systems.
<%
testing = FALSE
if len(request.form("submit")) then
' URL to display after form is submitted
thanks_URL = "thanks.html"
if len(request.Form("thanks_url"))>0 then thanks_URL = request.Form("thanks_url")
body = "Web form submitted" & vbcrlf&vbcrlf
if len(request.Form("email_fields")) > 0 then
field_array = split(request.Form("email_fields"),",")
for each fld in field_array
body = body & fld & ": " &request.form(fld) &vbcrlf
next
else
for each fld in request.form
body = body & fld & ": " &request.form(fld) &vbcrlf
next
end if
body = body & vbcrlf&vbcrlf
body = body & "Timestamp: " &Now &vbcrlf
body = body & "IP Address: " &Request.ServerVariables("REMOTE_ADDR") &vbcrlf
body = body & "Browser: " &Request.ServerVariables("HTTP_USER_AGENT") &vbcrlf
if testing then
response.Write("Testing Output
")
response.Write("")
response.Write(body)
response.Write("")
response.Write("Redirect URL:" &thanks_URL)
else
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "sales@thinksmartps.com"
objCDO.CC = "athropp@thinksmartps.com;rhopkins@biancohopkins.com"
'objCDO.BCC = "x@y.com"
objCDO.From = "webmaster@thinksmartps.com"
objCDO.Subject = "2Work! Newsletter Subscription Request"
objCDO.Body = body
objCDO.Send
' go to a thanks page
response.Redirect(thanks_URL)
end if
end if
%>
