%
dim rsautoinfo
set rsautoinfo = cnConn.execute("select * from tblautoinfo where id = " & request("id"))
dim sfrom, sto, ssub, smsg
sfrom = request("TREF_Email")
sto = "info@dfwautocredit.com"
ssub = "Website Inventory Lead"
smsg = "First Name : " & request("TR_fname")&_
"
Last Name : " & request("TR_lname")&_
"
Phone : " & request("TR_phone")&_
"
Email : " & request("TREF_Email")&_
"
Time Table : " & request("TR_when")&_
"
Comments: " & request("TR_comments")&_
"
Stock : " & rsautoinfo("stock") &_
"
Year : " & rsautoinfo("year")&_
"
Make : " & rsautoinfo("vehicle")&_
"
Model : " & rsautoinfo("model")&_
"
Date/Time : " & now()
'sendmail sfrom, sto, ssub, smsg
dim sfrom1, sto1, ssub1, smsg1
sfrom1 = "info@dfwautocredit.com"
sto1 = request("TREF_Email")
ssub1 = "Thank You from DFWautocredit.com"
smsg1 = "Thank you for your interest in"&_
"
" & rsautoinfo("year") & " " & rsautoinfo("vehicle") & " "& rsautoinfo("model") &_
"
We have received your information and will"&_
"
contact you in a timely manner."&_
"
If you'd like immediate assistance, please call us"&_
"
at 214-357-5700. ClaycooleyIsuzu.com"
'sendmail sfrom1, sto1, ssub1, smsg1
%>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Request.Form("TR_fname")&Request.Form("TR_lname")
Mailer.FromAddress= Request.Form("TREF_Email")
Mailer.RemoteHost = "sendmail.intercityweb.com"
Mailer.AddRecipient "Sales Desk","info@dfwautocredit.com"
Mailer.AddRecipient "Cody Wilson","support@intercityweb.com"
Mailer.Subject = "Auto Website Lead"
Mailer.BodyText = "First Name:"&Request.Form("TR_fname")&VbCrLf&"Last Name:"&Request.Form("TR_lname")&VbCrLf&"Email:"&Request.Form("TREF_Email")&VbCrLf&"Phone:"&Request.Form("TR_phone")&VbCrLf&"Purchase Time:"&Request.Form("TR_when")&VbCrLf&"Stock Number:"&Request.Form("stock")&VbCrLf&"Comments:"&Request.Form("TR_comments")&VbCrLf&VbCrLf&MailFooter
Mailer.SendMail
Set Mailer = Nothing
%>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "DFWautocredit.com"
Mailer.FromAddress= "info@dfwautocredit.com"
Mailer.RemoteHost = "sendmail.intercityweb.com"
Mailer.AddRecipient Request.Form("TREF_Email"),Request.Form("TREF_Email")
'Mailer.AddRecipient "Cody Wilson","c.wilson@intercityweb.com"
Mailer.Subject = "Thank you from DFWautocredit.com"
Mailer.BodyText = "First Name:"&Request.Form("TR_fname")&VbCrLf&"Last Name:"&Request.Form("TR_lname")&VbCrLf&"Email:"&Request.Form("TREF_Email")&VbCrLf&"Phone:"&Request.Form("TR_phone")&VbCrLf&"Purchase Time:"&Request.Form("TR_when")&VbCrLf&"Stock Number:"&Request.Form("stock")&VbCrLf&"Thank you for using the online form! We will respond to your request in a timely manner."&VbCrLf&VbCrLf&MailFooter
Mailer.SendMail
Set Mailer = Nothing
%>
Clay Cooley Isuzu
|
Coming
Soon.
|

|
|
|
|