<%@ Language=VBScript%> <%'option explicit 'Page/form name: seminars_detail.asp 'Purpose : Details of Seminars / Workshops 'Date Modified: 17/07/2001 'Author :Vikas Agarwal %> <% Dim strsql1 Dim rs1 Dim strsql2 Dim rs2 Dim sqlbfcase Dim rsbfcase Dim var_swcode var_swcode = Request.QueryString("seminarcode") 'var_swcode = 1 strsql1 = "select SeminarName, CosponserName1, CosponserCity1, "&_ "CosponserName2, CosponserCity2, Venue, Country, " &_ "FeesCurrency, Fees, FeesPCurrency, FeesPayable, "&_ "convert(char(10),LastDate,103) LastDate, ExpectedFaculty, " &_ "GeneralInformation, Salutation, FirstName, LastName, "&_ "Designation, Organization, ContactAddress1 ContactAddress1, ContactAddress2, "&_ "ContactAddress3, ContactTelephone, ContactFax, ContactEmail, "&_ "ContactWebsite from seminar_master "&_ "where seminarcode = " & var_swcode & "" strsql2 = "select convert(char(10),seminardate,103) seminardate, " &_ "seminarfromtime, seminartotime " &_ "from seminar_schedule "&_ "where seminarcode = " & var_swcode & "" 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 %> Seminars And Workshops - <%=Application("Title")%>
Home>Calendar>Program Calendar>Seminars  
<%if not rs1.EOF and not rs1.BOF then %> <%if not rs2.EOF and not rs2.BOF then%> <%end if%> <%if rs1("Fees") <> "" then %> <%end if if rs1("FeesPayable") <> "" then %> <%end if if trim(rs1("ExpectedFaculty")) <> "" then%> <%end if if trim(rs1("GeneralInformation")) <> "" then%> <%end if%> <%else Response.Redirect "/inc/commoninc/error.asp?errorno=err.number" Response.End end if%>
<%=trim(rs1("seminarname"))%>,  <%=trim(rs1("venue"))%>, <%=trim(rs1("Country"))%>
Seminar Schedule
<%do while not rs2.EOF%> <%if not rs2.EOF then rs2.MoveNext end if loop%>
Seminar Date
From Time
To Time
<%=rs2("seminardate")%>
<%=rs2("seminarfromtime")%>
<%=rs2("seminartotime")%>
Other Details
Co-Organisers /
Co-Sponsers 		<%if trim(rs1("CosponserName1")) <> "" then %> <%=trim(rs1("CosponserName1"))%>, <%=trim(rs1("CosponserCity1"))%> <%end if%> <%if trim(rs1("CosponserName2")) <> "" then %>
<%=trim(rs1("CosponserName2"))%>, <%=trim(rs1("CosponserCity2"))%> <%end if%>
Last Date for Receiving Application  <%=rs1("LastDate")%>
Fees <%=rs1("FeesCurrency")%> <%=rs1("Fees")%>
Fees Payable <%=rs1("FeesPCurrency")%> <%=rs1("FeesPayable")%>
Expected Faculty <%=trim(rs1("ExpectedFaculty"))%>
General Information <%=trim(rs1("GeneralInformation"))%>
Contact Information
Contact Executive <%=trim(rs1("Salutation"))%> <%=trim(rs1("FirstName"))%> <%=trim(rs1("LastName"))%>(<%=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"))%>