%
on error resume next
bSQLe="select * from fotogaleri where kategori=3"
Set Baglantid = Server.CreateObject("Adodb.Recordset")
Baglantid.Open bSQLe ,conn,1,2
%>
<%
i=0
degisken=""
do while Not Baglantid.Eof
resim3=Baglantid("buyukresim")
degisken=degisken & "'fotoimage/kucuk/" & resim3 & "',"
Baglantid.Movenext
loop
for i=0 to 150
'response.Write(chr(i) &"-"&i & "
")
next
degisken=replace(mid(degisken,1,len(degisken)-1),"'",chr(34))
%>
|