|
<%
'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 OrgName,OrgEmail,OrgPhone,ContactPer 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")
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
%>
|
Who Should Visit Trade Fair
|
| <%=whoVis%> |
| Exhibited products will include: |
<%
while not rsCat3.EOF =true
Response.Write "| • "&rsCat3("Category")&" | "
if not rsCat6.EOF =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
wend
rsCat3.MoveNext
wend
Response.Write " | "
Response.Write ""
Response.Write "To visit "&exbTitle&", please contact:"
Response.Write " | "
Response.Write ""&contactPer&""
if contactPer<>"" then
Response.Write "
"
end if
'response.write "Email : "
'Response.Write ""&OrgEmail&"
Tel. : "
Response.Write orgPhone &"
"
end if%>
|
Goto Top
|
<%
traderight
tradecopyright
%>
|