<%@ language="vbscript"%>
<%'option explicit
%>
<%
Dim rs
Dim rs1
Dim strsql
Dim strsql1
Dim pppname
Dim pppdate
Dim Products
Dim Markets
Dim Companyname
Dim salutation
Dim fname
Dim lname
Dim Designation
Dim Address1
Dim Address2
Dim Address3
Dim Telephone
Dim Fax
Dim Email
Dim Website
Dim Products1
Dim Productspromoted
Dim Amount
Dim DDNo
Dim DDDate
Dim Bank
Dim strname
Dim mailconfirm
Dim var_pppcode
var_pppcode = Request.Form("pppcode")
'Intialised
Companyname=Replace(Request.Form("Companyname"),"'","''")
Salutation=Request.Form("Executive")
fname=Replace(Request.Form("fname"),"'","''")
lname=Replace(Request.Form("lname"),"'","''")
Designation=Replace(Request.Form("Designation"),"'","''")
Address1=Replace(Request.Form("Address1"),"'","''")
Address2=Replace(Request.Form("Address2"),"'","''")
Address3=Replace(Request.Form("Address3"),"'","''")
Telephone=Request.Form("txttelcountrycode") & "-" & Request.form("txttelareacode") & "-" & Request.Form("Telephone")
Fax=Request.Form("txtfaxcountrycode") & "-" & Request.form("txtfaxareacode") & "-" & Request.Form("Fax")
Email=Request.Form("Email")
Website=Request.Form("Website")
Products1=Replace(Request.Form("Products1"),"'","''")
Productspromoted=Replace(Request.Form("Productspromoted"),"'","''")
Amount=Request.Form("Amount")
DDNo=Request.Form("DDNo")
DDDate=Request.Form("DDDate")
Bank=Replace(Request.Form("Bank"),"'","''")
Set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
strsql="select pppname, products, markets from ppp_master where pppcode = " & var_pppcode & ""
strsql1="select convert(char(10),pppdate,103) pppdate from ppp_schedule where pppcode = " & var_pppcode & ""
on error resume next
rs.Open strsql,objconn
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
on error resume next
rs1.Open strsql1,objconn
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
'Variables intialized
pppname=rs("pppname")
pppdate=rs1("pppdate")
Products=rs("Products")
Markets=rs("Markets")
strname =""
strname=strname & "pppname:" & " " & pppname & vbcrlf
strname=strname & "ApproxDates:" & " " & pppdate & vbcrlf
strname=strname & "Products:" & " " & Products & vbcrlf
strname=strname & "Markets:" & " " & Markets & vbcrlf
strname=strname & "companyname:" & " " & Companyname & vbcrlf
strname=strname & "Name: " & Salutation & " " & fname & " " & lname & "(" & Designation & ")" & vbcrlf
strname=strname & "Address:" & Address1 & ", " & Address2 & ", " & Address3 & vbcrlf
strname=strname & "Telephone: " & telephone & " Fax: " & fax & vbcrlf
strname=strname & "E-Mail:" & " " & Email & vbcrlf
strname=strname & "Website:" & " " & website & vbcrlf
strname=strname & "Products Manufactured:" & " " & Products1 & vbcrlf
strname=strname & "Products Promoted:" & " " & Productspromoted & vbcrlf
strname=strname & "DD Amount:" & " " & Amount & vbcrlf
strname=strname & "DDNumber:" & " " & DDNo & vbcrlf
strname=strname & "DDDate:" & " " & DDDate & vbcrlf
strname=strname & "Bank:" & " " & Bank& vbcrlf
If Request.ServerVariables("Request_Method") <> "POST" Then
%>
<%Else
'--- Create an instance of the SA-SMTPmail object
on error resume next
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
'--- Set Properties for The name of the sender (FromName) and their email address (FromAddress)
Mailer.FromName = fname & " " & lname
Mailer.FromAddress =Email
'--- Add the recipient who will receive the email.
'--- You can add as many people as necessary
mailer.addrecipient Application("adminname"), application("adminemail")
'mailer.addrecipient "ITPO Administrator", "Rajnishm@hclcomnet.co.in"
'--- Body of text
Mailer.bodytext =strname
'--- Sets Subject line for the message
mailer.subject = "Participant Registration for Product Promotion Programme"
'--- Set the Remote Host (SMTP) Host that we'll send this mail thru.
'--- We set a condition to verify that Remote Host is correct.
strMailHost = Application("smtpserverip")
' strMailHost = "172.28.64.31"
on error resume next
if Mailer.SendMail then
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
'Response.Write "
Your Question has been sent to the Administrator
"
mailconfirm = "Your Registration has been sent to the Administrator"
on error resume next
else
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
'Response.Write "
Mail failure. Check mail host server name and tcp/ip connection...
"
mailconfirm = "Mail failure. Check mail host server name and tcp/ip connection..."
end if
set Mailer = nothing
End IF
%>
Product Promotion Programme Registration - <%=Application("Title")%>