<%@ language=VBScript%> <% fromemail="administrator@bhagatgroup.com" toemail="bsmc@bhagatgroup.com" ccemail="raj@bhagatgroup.com" ''' bccemail="diptanshu@gmail.com" 'toemail="raj@bhagatgroup.com" 'toemail="diptanshu@gmail.com" 'ccemail="diptanshu@yahoo.com" name="Insurance" '=============================================== flg=request.form("flg") msg="" if flg="submit" then cstmr_nm=server.htmlEncode(trim(request.form("cstmr_nm"))) adrss1="" adrss1=server.htmlEncode(trim(request.form("adrss1"))) adrss2="" adrss2=server.htmlEncode(trim(request.form("adrss2"))) addrss="" if adrss2 <>"" then addrss=adrss1 & ", " & adrss2 else addrss=addrss1 end if cty=server.htmlEncode(trim(request.form("cty"))) stt=server.htmlEncode(trim(request.form("stt"))) pn_cd=server.htmlEncode(trim(request.form("pn_cd"))) pn_cd="" if pn_cd="" then pn_cd="Not Given" rsdnc_std=server.htmlEncode(trim(request.form("rsdnc_std"))) rsdnc_phn=server.htmlEncode(trim(request.form("rsdnc_phn"))) rsdnc_phn="" if rsdnc_std<>"" and rsdnc_phn<>"" then rsdnc_phn=rsdnc_std & "-" & rsdnc_phn else rsdnc_phn="Not Given" end if offc_std=server.htmlEncode(trim(request.form("offc_std"))) offc_phn=server.htmlEncode(trim(request.form("offc_phn"))) offc_phn="" if offc_std<>"" and offc_phn<>"" then offc_phn=offc_std & "-" & offc_phn else offc_phn="Not Given" end if mbl="" mbl=server.htmlEncode(trim(request.form("mbl"))) if mbl="" then mbl="Not Given" fx=server.htmlEncode(trim(request.form("fx"))) if fx="" then fx="Not Given" eml=server.htmlEncode(trim(request.form("eml"))) yr=server.htmlEncode(trim(request.form("yr"))) cr_mdl=server.htmlEncode(trim(request.form("cr_mdl"))) ex_shrm_price=server.htmlEncode(trim(request.form("ex_shrm_price"))) price_insured=server.htmlEncode(trim(request.form("price_insured"))) fname=cstmr_nm fontstrt="" fontstrt1="" fontend="" detail="" detail=detail & "" detail=detail & ""&fontstrt&"Dear " & name &fontend detail=detail & "

"&fontstrt&"Following is the insurance detail given by a customer online."&fontend&"

" detail=detail & "

" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "" detail=detail & "

"&fontstrt&"Customer Name :"& fontend&"	"&fontstrt1 & cstmr_nm &fontend& "
"&fontstrt&"Address :"& fontend&"	"&fontstrt1 & addrss &fontend& "
"&fontstrt&"City :"& fontend&"	"&fontstrt1 & cty &fontend& "
"&fontstrt&"State :"& fontend&"	"&fontstrt1 & stt &fontend& "
"&fontstrt&"Pin :"& fontend&"	"&fontstrt1 & pn_cd &fontend& "
"&fontstrt&"Residence Phone No :"& fontend&"	"&fontstrt1 & rsdnc_phn &fontend& "
"&fontstrt&"Office Phone No :"& fontend&"	"&fontstrt1 & offc_phn &fontend& "
"&fontstrt&"Mobile :"& fontend&"	"&fontstrt1 & mbl &fontend& "
"&fontstrt&"Fax :"& fontend&"	"&fontstrt1 & fx &fontend& "
"&fontstrt&"Email :"& fontend&"	"&fontstrt1 & ""& eml & ""&fontend& "
"&fontstrt&"Year : "& fontend&"	"&fontstrt1 & yr &fontend& "
"&fontstrt&"Model of the Car :"& fontend&"	"&fontstrt1 & cr_mdl &fontend& "
"&fontstrt&"Ex Showroom Price : "& fontend&"	" &fontstrt1& ex_shrm_price & fontend&"
"&fontstrt&"Price at which car to be insured (Rs) :"& fontend&"	" &fontstrt1& price_insured & fontend&"

" detail=detail & "

"&fontstrt&"From Site administrator "& fontend&"

" detail=detail & "" sendmail fname,fromemail, toemail,ccemail,bccemail,detail response.redirect "thank_insurance.asp?flg="&flg end if %> Finance

Home - Insurance

Insurance

We offer the insurance for your convenience:

Customer Name *
Address
Line (1) *
Line (2)
City *
State *
Pin
Phone No.
Residence*
Office
Mobile
Fax
E-mail *
Vehicle Information
Year *
Model of the Car *
Ex Showroom Price*
Price at which car is to be insured (Rs)*

* Mandatory Fields

<% '************************************************************************ SUB sendmail(fname,fromemail, toemail,cc,orderdetail) DIM mymail dim body dim str Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component. Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail Mail.FromAddress=fromemail Mail.AddRecipient toemail, toemail 'if cc <> "" then mymail.Cc=cc Mail.Subject="Insurance detail from " & fname Mail.BodyText = HTML Mail.ContentType = "text/html" if Mail.SendMail then ' Response.Write "Your mail has already been sent..." else Response.Write "Mail send failure. Error was " & Mail.Response end if END SUB '************************************************************************ %>