<%@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 %> Airforce2 Air Conditioning Systems :: Email form.
Home :: Email form 
 
Email Form



 

   
  
    

 

© 2005 Airforce2