|
<%
exbId=Request("exbId")
'exbId=6
'accessdb="tradeshow.mdb"
tradelindividualeft(exbId)
'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")
db.open "driver={SQL Server};server=localhost;database=easy2source_com_easysource2;uid=easy2source_com_easysource;pwd=n-h3d$v^b2#vr!x"
dim sql
sql="select Organizer_id,ExbTitle,ExbStartDate,ExbEndDate,Venue,exbImagePath from Exhibition where Exhibition_id=" &exbId
rs.open sql ,db,3
dup_org_fl=0
if not rs.eof then
dup_org_fl = 1
exbTitle=rs("ExbTitle")
exbStartDate=rs("ExbStartDate")
exbEndDate=rs("ExbEndDate")
exbVenue=rs("Venue")
exbImgPath=rs("ExbImagePath")
sql="select OrgName,OrgDetails from Organizers where Organizer_id="&rs("Organizer_id")
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql ,db,3
if not rs1.eof then
OrgName = rs1("OrgName")
OrgDetails = rs1("OrgDetails")
end if
rs1.close
end if
rs.Close
'exbId=6
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
%>
|
Visitor Registration
|
| Organizer : <%=OrgName%> |
| |
<%=OrgDetails%> |
Please enter your company details:
Fields marked with asterisk ( * ) are mandatory
<%
'response.write " | "
%>
|