Asp De (veritabanı + Tablodan) Istenen Kayıt Arama

[ugurnaz]

<%
numr=request.form("adisoyadi")
dim conn,rst
Response.Buffer=true
set conn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt1.mdb")
sql = "SELECT * from kalfa WHERE adisoyadi='"&TRIM(numr)&"'"
rst.open sql,conn,3,3
if rst.eof=true then
response.redirect("yok.html")
end if

for each i in rst.fields
%> 


<table border="1" id="table1" cellspacing="1" bordercolor="#0000FF">
<tr>

<%if i.value<>"" Then%>

<td width="350"><B><FONT SIZE="1" COLOR="#0000FF"><%=i.name%></td>
<td width="18"> </td>
<td width="180"><FONT SIZE="1" COLOR="#FF0000"> <%=i.value%></td>
</B><%end if%>
</tr></table>


   <%next%>[/CODE]

şimdi çözüldü if önündeki <%= işaretinde = fazlaymış oldu şimdi.sonuç sayfası

[CODE]KALFALIK NOT ÇİZELGESİ

No 8
Mesleği DIŞ GİYİM
adisoyadi ESRA ŞİMŞEK
TÜRKÇE M
MATEMATİK VE MESLEK MATEMATİĞİ M
İŞLETME BİLGİSİ VE KOOPERATİF Gi
TOPLAM KALİTE YÖNETİMİ Gi
İŞ GÜVENLİĞİ g
MESLEK BİLGİSİ Gi
MESLEK RESMİ Gi
PRATİK UYGULAMA Gi
Durumu K
açıklma KALDI
ADI SOYADI:===>> ESRA ŞİMŞEK

SONUÇ:===>> KALDI[/CODE]

oh be oldu sonunda şimdi sırada süslemeler var...