<% Set ODBC = Server.CreateObject("ADODB.Connection") ODBC.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")&"" %>
<% Set listele = ODBC.Execute("Select PROJETUR,PROJE,IL,RESIM from proje ") If listele.EOF then response.write "Listelenecek hiçbir kayıt bulunamadı" Else While not listele.eof response.write "" listele.movenext : wend End If listele.close %>
"&listele("PROJETUR")&""&listele("PROJE")&" "&listele("IL")&"
ES - ER © 2008-2021