%@ Language=VBScript%>
<%'option explicit
'Page/form name: ppp_detail.asp
'Purpose : Details of the Product Promotion Programme
'Date Modified: 17/07/2001
'Author :Vikas Agarwal
%>
<%
Dim strsql1
Dim rs1
Dim strsql2
Dim rs2
Dim sqlbfcase
Dim rsbfcase
Dim var_pppcode
var_pppcode = trim(Request.QueryString("pppcode"))
'var_pppcode = 1
strsql1 = "select PPPCode, PPPName, Products, " &_
"Markets, Country, Currency, ParticipationCharges, " &_
"convert(char(10),LastDate,103) LastDate, GeneralInformation, " &_
"Salutation, FirstName, SecondName, Designation, Organization, "&_
"ContactAddress1 ContactAddress1, ContactAddress2, ContactAddress3, ContactTelephone, "&_
"ContactFax, ContactEmail, ContactWebsite "&_
"from ppp_master where PPPcode = " & var_pppcode & ""
strsql2 = "select convert(char(10),pppdate,103) pppdate " &_
"from ppp_schedule " &_
"where pppcode = " & var_pppcode & " " &_
"order by pppdate "
set rs1 = server.CreateObject("adodb.RecordSet")
set rs2 = Server.CreateObject("ADODB.RecordSet")
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
on error resume next
rs2.Open strsql2, objconn
if err.number <> 0 then
Response.Redirect "/inc/commoninc/error.asp?errorno=err.number"
Response.End
end if
on error goto 0
%>
Product Promotion Programme - <%=Application("Title")%>
<%
' Add Briefcase Code
set rsbfcase = server.CreateObject("ADODB.Recordset")
sqlbfcase = "select min(convert(char(10),pppdate,103)) pppdate from ppp_schedule " &_
" where pppcode = " & var_pppcode & " "
rsbfcase.Open sqlbfcase,objconn
Briefcase_SectionCode = 1
Briefcase_REFVALUE1 = rs1("PPPName")
Briefcase_REFVALUE2 = rs1("Country")
Briefcase_REFVALUE3 = rsbfcase("pppdate")
%>
<%rs1.Close
rs2.Close
rsbfcase.Close
%>
<%
updatetable = "ppp_master"
updatewhereclause = " PPPCode = " & var_pppcode & ""
%>