<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% If Request.Form("Submitted") = "Yes" Then clientName = "Lifesong for Orphans" Sender = Request.Form("E-Mail") Name = Request.Form("Name") If Request.Form("E-Mail") = "" Then E-Mail = "None specified" Else E-Mail = Request.Form("E-Mail") End If If Request.Form("Phone") = "" Then Phone = "None specified" Else Phone = Request.Form("Phone") End If NoteDate = Date() Message = Name & " has responded to the " & clientName & " website contact form on "& NoteDate &". Below are the details." Message = Message & "

Name: "& Fname & " " & Request.Form("LName") & "
" Message = Message & "E-Mail: "& Sender & "
" Message = Message & "Phone: "& Phone & "
" Message = Message & "Shoot: "& Shoot & "
" Message = Message & "Comment: "& Comment & "

" Body = "

" & Message &"

" Set objCDOMail = Server.CreateObject("CDO.Message") objCDOMail.From = Sender objCDOMail.Subject = clientName & " Donor Contact Information" 'objCDOMail.To = "steveandgretchen@gmail.com" objCDOMail.To = "smanatt@comcast.net" objCDOMail.BCC = "smanatt@comcast.net" objCDOMail.HTMLBody = Body objCDOMail.Send set objCDOMail = nothing 'RedirectURL = "Manatthome.asp" 'response.redirect(RedirectURL) End If %> Untitled Document
 
Lifesong for Orphans
We are very excited you desire to care for the orphan in such a generous way.  Please call us to coordinate your donation electronically at 309.747.3556 (Lifesong for Orphans office)