<%@ 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")%>
Home>Calendar>Program Calendar>Product Promotion Programme  
<%if not rs1.EOF and not rs1.BOF then %> <%if trim(rs1("ParticipationCharges")) <> "" then%> <%end if%> <%if trim(rs1("GeneralInformation")) <> "" then %> <%end if%> <%If (Instr(1,Ucase(trim(Request.ServerVariables("HTTP_Referer"))),"FUTURE") <> 0) and (Instr(1,Ucase(trim(Request.ServerVariables("HTTP_Referer"))),"ADM") = 0) then%> <%end if%> <%else Response.Redirect "/inc/commoninc/error.asp?errorno=err.number" Response.End end if%>
<%=trim(rs1("PPPName"))%>
Approx Dates
(dd/mm/yyyy)
<%if not rs2.EOF and not rs2.BOF then%> <%do while not rs2.EOF%> <%=rs2("pppdate")%> <%rs2.MoveNext%> <%if not rs2.EOF then%> , <%end if loop%> <%end if%>
Products <%=trim(rs1("Products"))%>
Markets <%=trim(rs1("Markets"))%>
Country <%=trim(rs1("Country"))%>
Participating Charges <%=trim(rs1("Currency"))%> <%=rs1("ParticipationCharges")%>
Last Date for Receiving Application <%=rs1("LastDate")%>
General Information <%=trim(rs1("GeneralInformation"))%>
Contact Information
Contact Executive <%=trim(rs1("Salutation"))%> <%=trim(rs1("FirstName"))%> <%=trim(rs1("SecondName"))%>(<%=trim(rs1("Designation"))%>)
Organisation <%=trim(rs1("Organization"))%>,
<%=trim(rs1("ContactAddress1"))%>
<%if trim(rs1("ContactAddress2")) <> "" then %> <%=trim(rs1("ContactAddress2"))%>
<%end if%> <%if trim(rs1("ContactAddress3")) <> "" then %> <%=trim(rs1("ContactAddress3"))%> <%end if%>
Phone(s) <%if trim(rs1("ContactTelephone")) <> "--" then Response.Write trim(rs1("ContactTelephone")) end if%>
Fax <%if trim(rs1("ContactFax")) <> "--" then Response.Write trim(rs1("ContactFax")) end if%>
Email "><%=trim(rs1("ContactEmail"))%>
Website URL ')"><%=trim(rs1("ContactWebsite"))%>
Click here to Register
<% ' 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 & "" %>