%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "admin@primeadv.com" objCDO.To = "sales@hillcrestchevy.com" objCDO.CC = "hillcrest4@aol.com,cablecars2001@hotmail.com" objCDO.Subject = "Contact from HILLCRESTCORVETTE.COM" objCDO.Body = "The following person has contacted the dealership: " & chr(10)& chr(10) & "Name: " & Request.Form("name")&chr(10)&"email: " & Request.Form("email")&chr(10)&"comment: " & Request.Form("comment") objCDO.Send() Set objCDO = Nothing Response.Redirect("th_email.asp") End If %>
![]() |
|
|