$message ="Name: $Name\n"; $message.="Phone: $Phone\n"; $message.="Best Time to Contact: $Best_Time\n"; $message.="Email: $Email\n"; $message.="Message: $Message\n"; #mail("marilyn@seniorservicesnetwork.com,jjkrouse@gmail.com", "A response from your web site", $message, "From: $Email\n\n"); #mail("mekrouse@msn.com", "A response from your web site", $message, "From: $Email\n\n"); $from = "UnitedRecoveryServices.com"; #$to = "webmaster@betterthanyours.com"; $to = "mekrouse@msn.com"; $subj = "A response from your web site"; ini_set(sendmail_from,$from); $headers = "From: " . $from . "\r\n"; $headers .= "Message-ID: <". time() . rand(1,1000) . "@".$_SERVER['SERVER_NAME'].">". "\r\n"; $headers .= "Reply-To: " . $from . "\r\n"; $headers .= "Return-Path: " . $from . "\r\n"; $headers .= "Return-Receipt-To: " . $from . "\r\n"; $headers .= "Content-Type: text/html; charset=ISO-8859-1" . "\r\n"; $headers .= "MIME-Version: 1.0" . "\r\n"; $headers .= 'X-Mailer: PHP/' . phpversion() . "\r\n"; mail($to, $subj, $message, $headers); ?> <% 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 %>
|
|
|
|
|||||||||||||||||||
|
|
|
|
|||||||||||||||||||
|
|
|
Contact FTC |
|
||||||||||||||||||
|
FTC
CONTINUITY SERVICES |
|||||||||||||||||||||
|
|
|
|
|||||||||||||||||||
|
|
|
|
|||||||||||||||||||
|
|
|
|
|||||||||||||||||||
|
|
|
|
|||||||||||||||||||
|
|
|
|
|||||||||||||||||||
©
2007 First
Technology Capital
FTC Continuity Services
100 Dobbs Lane • Suite 110
Cherry Hill, NJ 08034
856/427-5700 (v) • 856/354-8855 (f)
cherryhill@FTC-CS.com
All rights reserved.