<% dim fid
dim gh_no
dim conn2
dim recs
dim recs2
dim sql2
dim sql
dim recs3
dim sql3
set conn2=server.CreateObject("adodb.connection")
conn2.Open "dsn=tbargh"
set recs=server.CreateObject("adodb.recordset")
set recs2=server.CreateObject("adodb.recordset")
set recs3=server.CreateObject("adodb.recordset")
sql="select * from fair where fair_status=1;"
recs.open sql,conn2
fid=recs("fair_id")
sql2="select * from ghorfe where fair_id='" & fid & "';"
recs2.open sql2,conn2
%>
نقشه
جانمايي غرفه ها
راهنمای نقشه:
در صورت تمايل به حضور در نمايشگاه ، هماهنگي لازم با ستاد برگزاري
و با شماره تلفن ( 9 خط ) 6633939 - 0311 و 9-22632025 -021صورت گيرد .
