%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = cStr(Request("varFrom")) 'Senders Email Address objCDO.To = cStr(Request("varTo")) 'Recipient Email Address objCDO.CC = cStr(Request("varCC")) 'Carbon Copy Address objCDO.Subject = cStr(Request("varSubject"))'Email Subject objCDO.Body = cStr(Request("varMessage")) 'Email Message objCDO.Send() 'send mail Set objCDO = Nothing 'Clean up your objects!!! 'Response.Redirect("thanks.asp") 'use this to redirect page after delivery Response.Write("Message Delivered") 'default response End If %>
![]() |
||||||||||||
| Home
:: Contact |
||||||||||||
|
||||||||||||
|
|
||||||||||||
|
Contact
|
||||||||||||
