<% If Request.Form.Count > 0 Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.serverconcepts.com" Mailer.FromName = "URS website" Mailer.FromAddress = "UnitedRecoveryServices.com" Mailer.AddRecipient "info-urs", "info-urs@unitedrecoveryservices.com" Mailer.Subject = "URS Email Registration" Mailer.BodyText = "Name: " & Request.Form("name") & VBCRLF & "Orginization: " & Request.Form("org") & VBCRLF & "Email: " & Request.Form("email") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mailer.Sendmail ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If 'Write to database Dim adoCon Dim rsAddName Dim strSQL Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/contact.mdb") Set rsAddName = Server.CreateObject("ADODB.Recordset") strSQL = "Select Results.name, Results.org, Results.email, Results.Remote_Computer_name, Results.Browser_type, Results.TimeStamp from Results" rsAddName.CursorType = 2 rsAddName.LockType = 3 rsAddName.Open strSQL, adoCon rsAddName.AddNew rsAddName.Fields("name") = Request.Form("name") rsAddName.Fields("org") = Request.Form("org") rsAddName.Fields("email") = Request.Form("email") rsAddname.Fields("Remote_computer_name") = Request.ServerVariables("REMOTE_ADDR") rsAddname.Fields("Browser_type") = Request.ServerVariables("SERVER_SOFTWARE") rsAddname.Fields("TimeStamp") = Now rsAddName.Update rsAddName.Close Set rsAddName = Nothing Set adoCon = Nothing 'If Mailer.Sendmail Then If Err = 0 Then Response.Redirect "confirmation.htm" Else 'Response.Redirect "errorconfirmation.htm" Response.Write err.description End If End If %> FTC Continuity Services - Your Hot Site Source for Financial Services Disaster Recovery

 

 

 

 

 

 

 

 

Contact FTC

 

FTC CONTINUITY SERVICES

 

 

 

 
 
We would be pleased to hear from you. 
Please contact us by any means below.

FTC Continuity Services

100 Dobbs Lane  •  Suite 110
Cherry Hill, NJ  08034

856/427-5700 (voice)

856/354-8855 (fax)

info@FTC-US.com

Email Registration:

Would you like to be notified of updates to our site?

Fill in the following information.  You'll be among the first to learn of new partnerships, upgrades to our facility, and general information about disaster recovery.

Name:
Organization:
Email:
Comments:
    

Please note:  this information is for our use only and will not be shared or sold with any other person or entity.

 

 

 

 

 

 

 

 

 

 

 ©  2007  First Technology Capital
FTC Continuity Services
100 Dobbs Lane  •  Suite 110
Cherry Hill, NJ  08034
856/427-5700 (v)   •  856/354-8855 (f)
 info@FTC-US.com
All rights reserved.