<% 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=plast"
set recs=server.CreateObject("adodb.recordset")
set recs2=server.CreateObject("adodb.recordset")
set recs3=server.CreateObject("adodb.recordset")
sql="select * from e_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
%>
Exhibition's
Plan
Please in case you want to attend in this exhibition contact the
exhibition organizer with following numbers :
