<%@ language="vbscript"%> <%'option explicit %> <% Dim rs Dim rs1 Dim strsql Dim strsql1 Set rs=server.CreateObject("adodb.recordset") strsql="select catalogueshowname, products, markets from catalogueshows_master where catalogueshowcode = " & Request.QueryString("cscode") & " " set rs1=server.CreateObject("adodb.recordset") strsql1="select convert(char(10),catalogueshowdate,103) catalogueshowdate from catalogueshows_schedule where catalogueshowscode = " & Request.QueryString("cscode") & " " 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 %> Catalogue Shows Registration - <%=Application("Title")%>
Home>Calendar>Program Calendar>Catalogue Shows  
Preliminary Application for participation in
Catalogue Shows Abroad
Name of Program <%=rs("catalogueshowname")%>
Approx Dates
(dd/mm/yyyy)		 <%do while not rs1.EOF %> <%=rs1("catalogueshowdate")%> <%if not rs1.EOF then rs1.MoveNext end if if not rs1.EOF then%> , <%end if loop%>
Products <%=rs("products")%>
Markets <%=rs("markets")%>
Company Details
Company Name *
Contact Executive *
First Name *
Second Name *
Designation *
Contact Address *
Phone(s) + - - *
(Country Code - Area Code - Phone No.)
Fax + - -
(Country Code - Area Code - Fax No.)
Email *
Website URL http://
Business Details
Products Manufactured *
Products to be promoted during the programme *
Demand Draft Details
Amount remitted by Draft
Draft Number
Draft Date
Bank Name
">
* Mandatory Fields