therlf

<% CONST strRecipient = "rlf_communications@att.net" DIM blnMessageSent blnMessageSent = FALSE IF UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" THEN DIM objMailMessage DIM strName DIM strEmail DIM strPhone DIM strComments DIM strBody DIM strMessage DIM strSubject ON ERROR RESUME NEXT strName = Trim(CStr(Request.Form("txtname"))) strPhone = Trim(CStr(Request.Form("Phone"))) strEmail = Trim(CStr(Request.Form("Email"))) strComments = Trim(CStr(Request.Form("Comments"))) strBody = "The following submission was made on " & FormatDateTime(Now(),2) & " " & FormatDateTime(Now(),4) & vbCrLf & vbCrLf & _ " Name: " & strName & vbCrLf & _ " Phone: " & strPhone & vbCrLf & _ " Email: " & strEmail & vbCrLf & _ "Comments" & vbCrLf & _ String(72,"-") & vbCrLf & _ strComments & vbCrLf & _ String(72,"-") & vbCrLf strSubject = "theRLF Contact Us from " & strName & "(" & strEmail & ")" 'SET objMailMessage = Server.CreateObject("CDONTS.NewMail") 'objMailMessage.From = strEmail & "(" & strName & ")" 'objMailMessage.To = strRecipient 'objMailMessage.Subject = "theRLF Contact Us from " & strName & "(" & strEmail & ")" 'objMailMessage.Body = strBody 'objMailMessage.Send 'blnMessageSent = TRUE 'SET objMailMessage = NOTHING CONST cdoSendUsingPickup = 1 CONST cdoSendUsingPort = 2 DIM iMsg DIM iConf DIM Flds DIM strHTML SET iMsg = CreateObject("CDO.Message") SET iConf = CreateObject("CDO.Configuration") SET Flds = iConf.Fields WITH Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup ''' TODO: Replace with path to your pickup directory ''' Typically, c:\Inetpub\mailroot\pickup .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\InetPUB\MAILroot\pickup" .Update END WITH DIM iBP WITH iMsg SET .Configuration = iConf .To = strRecipient .From = strEmail & " (" & strName & ")" .Subject = strSubject .TextBody = strBODY ''' TODO: if adding an attachment, ''' uncomment the next line and alter file path as required ''' SET iBP = iMsg.AddAttachment( App.Path & "\file1.txt" ) .Send IF ERR.NUMBER <> 0 THEN strMessage = "Unable to send your message" ELSE strMessage = "Your message has been sent successfully" END IF END WITH ' Clean up variables. SET iBP = NOTHING SET Flds = NOTHING SET iConf = NOTHING SET iMsg = NOTHING END If %> therlf

<%= strMessage %>
	Thank you for trying to contact us. We look forward to hearing from you. Be assured that your message is important to us, and we will read it.

Name:

8540 La Tijera Blvd.
Los Angeles, CA 90045
Tel : (310) 417-8730
Fax: (310) 417-8732

Phone:

Email:

Message: