|
<%
'accessdb="tradeshow.mdb"
'myDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
'myDSN=myDSN & "DBQ=" & server.mappath(accessdb)
set db=server.CreateObject("adodb.connection" )
set rs=server.CreateObject("adodb.recordset")
'set rs=server.CreateObject("adodb.recordset")
db.open "driver={SQL Server};server=localhost;database=easy2source_com_easysource2;uid=easy2source_com_easysource;pwd=n-h3d$v^b2#vr!x"
dim sql
exbId=Request.QueryString("exbId")
if(not exbId="") then
sql="select * from Exhibition where Exhibition_id = " & exbId
rs.open sql ,db,3
if not rs.EOF then
orgId=rs("Organizer_id")
exbTitle=rs("ExbTitle")
exbDetails=rs("ExbDetails")
exbStartDate=rs("ExbStartDate")
exbEndDate=rs("ExbEndDate")
exbImgPath=rs("ExbImagePath")
whoVis=rs("whoVis")
venue=rs("Venue")
end if
set rsOrg=server.CreateObject("adodb.recordset")
sql="select * from Organizers where Organizer_id="& orgId
rsOrg.Open sql ,db,3
if not rsOrg.EOF=true then
orgName=rsOrg("OrgName")
contactPer=rsOrg("ContactPer")
OrgPhone=rsOrg("OrgPhone")
OrgEmail=rsOrg("OrgEmail")
OrgEmail=rsOrg("OrgEmail")
OrgDetails=rsOrg("OrgDetails")
OrgAdd=rsOrg("OrgAdd")
end if
sql="select * from Category where Cat_id in(select Cat_id from Exhibition_Category where Exhibition_id= " & exbId & " ) and len(Index1) = 3"
set rsCat3=server.CreateObject("adodb.recordset")
rsCat3.Open sql ,db,3
set rsCat6=server.CreateObject("adodb.recordset")
sql="select * from Category where Cat_id in(select Cat_id from Exhibition_Category where Exhibition_id= " & exbId & " ) and len(Index1) = 6"
rsCat6.Open sql ,db,3
tradelindividualeft ExbId ' leftside panel
%>
|
Major Exhibits
|
| Exhibit Categories |
<%
flgRs="false"
while not rsCat3.EOF =true
Response.Write "| • "&rsCat3("Category")&" | "
if flgRs="true" then rsCat6.MoveFirst
while not rsCat6.EOF=true
index6=rsCat6("Index1")
if rsCat3("Index1")=mid(index6,1,3) then
Response.Write("| | "&rsCat6("Category")&" | ")
end if
rsCat6.MoveNext
flgRs="true"
wend
rsCat3.MoveNext
wend
end if
%>
|
<%
traderight
tradecopyright
%>
|