<%@ language=VBScript%> <% fromemail="administrator@bhagatgroup.com" toemail="bsmc@bhagatgroup.com" 'toemail="diptanshu@yahoo.com" ccemail="raj@bhagatgroup.com" ''' 'ccemail="diptanshu@yahoo.com" 'ccemail="anu@pugmarks.com;shyam@pugmarks.com" name="Finance" '=============================================== flg=request.form("flg") msg="" if flg="submit" then cstmr_nm=server.htmlEncode(trim(request.form("cstmr_nm"))) eml=server.htmlEncode(trim(request.form("eml"))) addrss=server.htmlEncode(trim(request.form("addrss"))) cty=server.htmlEncode(trim(request.form("cty"))) phn1=server.htmlEncode(trim(request.form("phn1"))) phn2=server.htmlEncode(trim(request.form("phn2"))) phn="" if phn1<>"" and phn2<>"" then phn=phn1 & "-" & phn2 end if lctn=server.htmlEncode(trim(request.form("lctn"))) cstmr_typ=server.htmlEncode(trim(request.form("cstmr_typ"))) mdl=server.htmlEncode(trim(request.form("mdl"))) pln=trim(request.form("pln")) dd1=trim(request.form("dd")) mm1=trim(request.form("mm")) yr1=trim(request.form("yr")) dob="" if dd1<>"" and mm1<>"" and yr1<>"" then dob=dd1 & "/" & mm1 & "/" & yr1 end if rsdnc_typ=server.htmlEncode(trim(request.form("rsdnc_typ"))) rsdnc_yr=server.htmlEncode(trim(request.form("rsdnc_yr"))) emply_tnr=server.htmlEncode(trim(request.form("emply_tnr"))) it_rtrn=server.htmlEncode(trim(request.form("it_rtrn"))) fncl_dtl=server.htmlEncode(trim(request.form("fncl_dtl"))) expences=server.htmlEncode(trim(request.form("expences"))) car_prc=server.htmlEncode(trim(request.form("car_prc"))) amnt_rqrd=server.htmlEncode(trim(request.form("amnt_rqrd"))) fnc_tnr=server.htmlEncode(trim(request.form("fnc_tnr"))) fname=cstmr_nm instruction ="Following is the Finance detail given by a customer online." fontstrt="" fontstrt1="" fontend="" detail="" detail=detail & "" detail=detail & ""&fontstrt&"Dear " & name &fontend detail=detail & "

"&fontstrt& instruction &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 & "" 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&"Email "& fontend&"	"&fontstrt1 & eml &fontend& "
"&fontstrt&"Address "& fontend&"	"&fontstrt1 & addrss &fontend& "
"&fontstrt&"City "& fontend&"	" &fontstrt1& cty & fontend&"
"&fontstrt&"Phone "& fontend&"	" &fontstrt1& phn & fontend&"
"&fontstrt&"Location "& fontend&"	" &fontstrt1& lctn & fontend&"
"&fontstrt&"Type of Customer "& fontend&"	" &fontstrt1& cstmr_typ & fontend&"
"&fontstrt&"Vehicle Model "& fontend&"	" &fontstrt1& mdl & fontend&"
"&fontstrt&"Plan "& fontend&"	" &fontstrt1& pln & fontend&"
"&fontstrt&"DOB "& fontend&"	" &fontstrt1& dob & fontend&"
"&fontstrt&"Type of Residence "& fontend&"	" &fontstrt1& rsdnc_typ & fontend&"
"&fontstrt&"Number of years at current Residence "& fontend&"	" &fontstrt1& rsdnc_yr & fontend&"
"&fontstrt&"Tenure of employment with current employer "& fontend&"	" &fontstrt1& emply_tnr & fontend&"
"&fontstrt&"Latest time period for which you can provide IT Returns "& fontend&"	" &fontstrt1& it_rtrn & fontend&"
"&fontstrt&"Latest Financial Details "& fontend&"	" &fontstrt1& " " & fontend&"
"&fontstrt&"Annual Gross Income (parents,spouce,children,self) "& fontend&"	" &fontstrt1& fncl_dtl & fontend&"
"&fontstrt&"Average monthly expences(electricity/telephone/ grocery/entertainment) "& fontend&"	" &fontstrt1& expences & fontend&"
"&fontstrt&"Car Price (Rs.) "& fontend&"	" &fontstrt1& car_prc & fontend&"
"&fontstrt&"Amount of Finance Required (Rs.) "& fontend&"	" &fontstrt1& amnt_rqrd & fontend&"
"&fontstrt&"Tenure of Finance Required "& fontend&"	" &fontstrt1& fnc_tnr & fontend&"

" detail=detail & "

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

" detail=detail & "" sendmail fname,fromemail, toemail,ccemail,detail 'response.write "sssssssssss" response.redirect "thank_insurance.asp?flg="&flg end if '========================================================================== %> <% dim barr(20,20),cat(20,20),catid(20,20) %> Finance

Home - Finance

Finance

We offer the most suitable finance options for your convenience. For details, please fill in this form:

" onSubmit="return formcheck(this);">

Name *
Email *
Address *
City *
Phone *	-
Location *
Type of Customer *
Vehicle Model *
Plan *
DOB (dd/mm/yy) *	<% datedropdown "dd","mm","yr","dd/mm/yy" %>
Type of Residence *
Number of years at current Residence *
Tenure of employment with current employer *
Latest time period for which you can provide IT Returns *
Latest Financial Details
Annual Gross Income * (parents, spouse, children, self)	(Rs)
Average monthly expenses* (electricity/telephone/ grocery/entertainment)	(Rs)
Car Price*	(Rs)
Amount of Finance Required *	(Rs)
Tenure of Finance Required *

* 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 Mail.Subject = "Finance detail from " & fname 'if cc <> "" then mymail.Cc=cc 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 '************************************************************************ sub dd(ddname,curday) response.write ""& vbcrlf response.write ""& vbcrlf end sub sub mm(mmname,curmonth) response.write ""& vbcrlf response.write ""& vbcrlf end sub sub yy(yyname,year1) preyear=1920 postyear =1990 response.write ""& vbcrlf response.write ""& vbcrlf end sub sub datedropdown(ddname,mmname,yyname,format) today = date() day1 = day(today) month1 = month(today) year1 = year(today) if format="dd/mm/yy" then dd "dd",day1 mm "mm",month1 yy "yr",year1 end if if format="mm/dd/yy" then mm "mm",month1 dd "dd",day1 yy "yr",year1 end if end sub %>