<%@ Language=VBScript%> <%'option explicit 'Page/form name: catalogueashows_detail.asp 'Purpose : Details of the Catalogue Shows 'Date Modified: 17/07/2001 'Author :Vikas Agarwal %> <% Dim strsql1 Dim rs1 Dim strsql2 Dim rs2 Dim sqlbfcase Dim rsbfcase Dim var_cscode var_cscode = trim(Request.QueryString("cscode")) 'var_cscode = 1 strsql1 = "select CatalogueShowCode, CatalogueShowName, 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 catalogueshows_master where catalogueshowcode = " & var_cscode & "" strsql2 = "select convert(char(10),catalogueshowdate,103) catalogueshowdate " &_ "from catalogueshows_schedule " &_ "where catalogueshowscode = " & var_cscode & " " &_ "order by catalogueshowdate " 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 %> Catalogue Shows Abroad - <%=Application("Title")%>
Home>Calendar>Program Calendar>Catalogue Shows  
<%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("CatalogueShowName"))%>
Approx Dates
(dd/mm/yyyy)
<%if not rs2.EOF and not rs2.BOF then%> <%do while not rs2.EOF%> <%=rs2("catalogueshowdate")%> <%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),catalogueshowdate,103)) catalogueshowdate from catalogueshows_schedule " &_ " where CatalogueShowsCode = " & var_cscode & " " rsbfcase.Open sqlbfcase,objconn Briefcase_SectionCode = 1 Briefcase_REFVALUE1 = rs1("CatalogueShowName") Briefcase_REFVALUE2 = rs1("Country") Briefcase_REFVALUE3 = rsbfcase("catalogueshowdate") %> <%rs1.Close rs2.Close rsbfcase.Close %> <% updatetable = "catalogueshows_master" updatewhereclause = " CatalogueShowCode = " & var_cscode & "" %>