%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB; Data Source =94.73.145.8; Initial Catalog = itm2018ms; User Id =itm2018ms; Password=XJid97R1"
%>
<%
ulke = Request.Querystring("ulke")
if ulke="" then ulke="0"
salon= Request.Querystring("salon")
if salon="" then salon="0"
harf= Request.Querystring("harf")
if harf="" then harf="0"
firma= Request.Querystring("firma")
if firma="" then firma="0"
%>
<%
i=0
if ulke="0" then
else
sorgu1="and ulke='"& ulke &"'"
end if
if firma="0" then
else
firma2=replace(firma,"i","İ")
sorgu2="and firma like '%"& firma &"%' or stantno like '%"& firma &"%'"
end if
if salon="0" then
else
sorgu3="and salon='"& salon &"'"
end if
if harf="0" then
else
sorgu4="and firma like '"& harf &"%'"
end if
sorgud=sorgu1 &""& sorgu2 &""& sorgu3 &""& sorgu4
Set TabF=Conn.Execute("SELECT * FROM Katilimcilar where Onay=1 "& sorgud &" order by firma asc")
if not TabF.eof then
%>
<%
do while not TabF.eof
i=i+1
%>
<%
ulke = Request.Querystring("ulke")
if ulke="" then ulke="0"
salon= Request.Querystring("salon")
if salon="" then salon="0"
harf= Request.Querystring("harf")
if harf="" then harf="0"
firma= Request.Querystring("firma")
if firma="" then firma="0"
%>
ITM 2018 Katılımcı Listesi
Firma Adı:
Ülke:
Salon:
TÜMÜNÜ GÖR A |
B |
C |
D |
E |
F |
G |
H |
I |
J |
K |
L |
M |
N |
O |
P |
Q |
R |
S |
T |
U |
V |
W |
X |
Y |
Z |
<%
i=0
if ulke="0" then
else
sorgu1="and ulke='"& ulke &"'"
end if
if firma="0" then
else
sorgu2="and firma like '%"& firma &"%'"
end if
if salon="0" then
else
sorgu3="and salon='"& salon &"'"
end if
if harf="0" then
else
sorgu4="and firma like '"& harf &"%'"
end if
sorgud=sorgu1 &""& sorgu2 &""& sorgu3 &""& sorgu4
Set TabF=Conn.Execute("SELECT * FROM Katilimcilar where Onay=1 "& sorgud &" order by firma asc")
if not TabF.eof then
%>
<%
do while not TabF.eof
i=i+1
%>