<% tradeleft ' leftside panel 'accessdb="tradeshow.mdb" 'myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" 'myDSN=myDSN & "DBQ=" & server.mappath(accessdb) set db=server.createobject("adodb.connection") db.open "driver={SQL Server};server=localhost;database=easy2source_com_easysource2;uid=easy2source_com_easysource;pwd=n-h3d$v^b2#vr!x" 'accessdb1="NewData.mdb" 'accessdb1="tradeshow.mdb" 'myDSN1="DRIVER={Microsoft Access Driver (*.mdb)};" 'myDSN1=myDSN1 & "DBQ=" & server.mappath(accessdb) set db1=server.createobject("adodb.connection") db1.open "driver={SQL Server};server=localhost;database=easy2source_com_easysource2;uid=easy2source_com_easysource;pwd=n-h3d$v^b2#vr!x" 'set db1=server.createobject("adodb.connection") 'db1.open "driver={SQL Server};server=localhost;database=easy2source_com_easysource2;uid=easy2source_com_easysource;pwd=n-h3d$v^b2#vr!x" 'db1.open "driver={SQL Server};server=comp11;database=easy2source_com_easysource2;uid=sa;pwd=" %>

Trade Fair Center

Special Trade Fair Search

<% response.write "

" response.write "

" response.write "Please select the following Criteria for Trade Fair Search

" s1="select * from category" s1="select * from Category where Cat_id in(select distinct(Cat_id) from Exhibition_Category ) " set r1=server.createobject("adodb.recordset") r1.open s1, db1, 3 dim all all = 0 response.write "Select Category :

" r1.close sql="select distinct ExbCountry from Exhibition where len(ExbCountry)>2 order by ExbCountry" set rs=server.createobject("adodb.recordset") rs.open sql, db, 3 all = 0 response.write "Select Country :

" rs.close response.write "Starting Month : " response.write "" response.write " " sql="select distinct ExbEndYear from Exhibition order by ExbEndYear" set rs=server.createobject("adodb.recordset") rs.open sql, db, 3 response.write "

" response.write "Ending Month : " response.write "" response.write " " response.write "" rs.close response.write "

" response.write "

" %>

<% traderight tradecopyright %> <% function ProperCase(txt) if isnull(txt)=true or txt="" then exit function end if txt=trim(txt) if txt<>"" then varTxt=split(txt," ") putSpace="" for i=0 to ubound(varTxt) if varTxt(i)<>"" then txtVal=txtVal & putSpace & ucase(left(varTxt(i),1)) & lcase(right(varTxt(i),len(varTxt(i))-1)) end if putSpace=" " next ProperCase=txtVal end if End function %>