<%@ language="vbscript"%>
<%'option explicit
%>
<%
Dim rs
Dim rs1
Dim strsql
Dim strsql1
Dim missionname
Dim missiondate
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_missioncode
'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 missionname, products,Markets from salesstudymission_master where missioncode = " & Request.Form("missioncode") & ""
strsql1="select convert(char(10),missiondate,103) missiondate from salesstudymission_schedule where missioncode = " & Request.Form("missioncode") & ""
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
missionname=rs("missionname")
missiondate=rs1("missiondate")
Products=rs("Products")
Markets=rs("Markets")
strname =""
strname=strname & "Missionname:" & " " & missionname & vbcrlf
strname=strname & "Dates:" & " " & missiondate & 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 Sales Study Missions"
'--- 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
%>
Sales Cum Study Mission Registration - <%=Application("Title")%>