ASP Sorunu! (ACİL YARDIM)

quote:

<%Dim Vt, SQL, emlak, emlak2, emlak3, gidilecekKayit,ToplamKayit

Set Vt = Server.CreateObject("Adodb.Connection")
Vt.Open "DBQ="& Server.Mappath("emlakdb/emlakveri.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"
%>
<div align="center">
  <td width="92%">
<%i=1
Set emlak = Server.CreateObject("Adodb.Recordset")
sor = "Select * from emlak where kimlik "
emlak.Open sor, Vt, 1, 3
%>
<%
do while not emlak.eof%>
<table border="0" width="100%">
<tr><!-- Row 1 -->
<td valign=middle align=left>

<table border="1" width="98%">
<tr><td width="145" valign="middle">
<p align="center"><!-- Row 1 -->

</font><br>
<font family="Verdana"> <b> <img src="<%=emlak("resim")%>" border="0" width=120 height=120 alt="<%=emlak("baslik")%>"></b></font>
</td><td valign=top align=right>
<table border="0" width="100%" height="90">
<tr><!-- Row 1 -->
<td width="82"><u><b><font size="2">Özellikler</font></b></u></td><!-- Col 1 -->
<td><b><%=emlak("durum")%></b></td><!-- Col 2 -->
</tr>
<tr><!-- Row 2 -->
<td width="82"><font size="2">Yer</font></td><!-- Col 1 -->
<td><b><%=emlak("yer")%></b></td><!-- Col 2 -->
</tr>
<tr><!-- Row 3 -->
<td width="82"><font size="2">Bilgi</font></td><!-- Col 1 -->
<td><b><%=emlak("bilgi")%></b></td><!-- Col 2 -->
</tr>
<tr><!-- Row 4 -->
<td width="82"><font size="2">Fiyatı</font></td><!-- Col 1 -->
<td><b><%=emlak("fiyat")%> Ytl (<%=emlak("fiyat")*1000000%> TL)</td></b><!-- Col 2 -->
</tr>
</table>

</td><!-- Col 2 -->
</tr>
</table>

</td>
</tr>
</table>
<br><%
emlak.movenext
i=i+1
loop
emlak.close
%></div>