%@ 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")%>
<%
' 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 & ""
%>