ASPTurkiye.com Forum: datada kayıt yoksa kayıt yok yazdıramıyor

implant

Aktif Konular

Üye Listesi

Arama

Yardım

Kayıt Ol

Giriş

ASP / ASP.NET
ASPTurkiye.com Forum : ASP / ASP.NET

Konu: datada kayıt yoksa kayıt yok yazdıramıyor

Yazanlarda

Mesaj

<< Önceki Konu | Sonraki Konu >>

ertugrular
Yeni Üye

Kayıt Tarihi: 09-Haziran-2006
Ülke: Turkiye
Gönderilenler: 6

Gönderen: 09-Haziran-2006 Saat 19:40 \| Kayıtlı IP

mehabalar

sorunum şu; datada kayıt varsa getirip gösteriyo yoksa tabloyu boz gösteri ben bunun yerine mesaj verdirmek istiyorum ama bir türlü olmadı.

<%
Dim adi,soyadi,tel,tel1,kirasat,sehir,tarih,tipi,adres,diger,bag lan,yer,SQL,stmt,adsoy,ac,RS
tipi=request.form("tipi")
kirasat=request.form("kirasat")
sehir=request.form("sehir")
yer=server.mappath("rehber.mdb")
ac="DBQ="& yer &";Driver={Microsoft Access Driver (*.mdb)}"
set baglan=server.createobject("adodb.connection")
baglan.open ac,1,3
set RS=server.createobject("adodb.recordset")
RS.Open "Select * from tablorehber" ,baglan,1,3

if tipi="SEÇİNİZ" THEN
RS.movenext
response.write ("<center>LÜTFEN SEÇİMİNİZİ YAPINIZ</center>")
else
SQLstmt = " select * from tablorehber WHERE tipi='"&tipi&"' "
set RS=baglan.execute(SQLstmt)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>EMLAK ARAMA</title>
</head>

<body>
<table border="1" align="left" style="font-family: Tahoma; font-size: 10pt; text-transform: uppercase; font-weight: bold; word-spacing: 0; text-indent: 2; text-align: left; line-height: 100%; border-collapse: collapse; margin: 0 2" bordercolor="#111111" cellpadding="0">
<tr>
<td> ADI</td>
<td> SOYADI</td>
<td> TELEFON</td>
<td> CEP TELEFONU</td>
<td> KİRALIK MI? SATILIK MI?</td>
<td> ŞEHİR</td>
<td> TARİH</td>
<td> TİPİ</td>
<td> ADRES</td>
<td> DİĞER</td>

</tr>
<% while not RS.eof %>

<tr>
<td> <%=RS("adi")%>  </td>

</tr>

<%
RS.movenext

wend

baglan.close

set baglan = nothing
end if
%>
</table>

</body>

</html>

bu durumdayken herşey güzel çalışıyo ama şu mesajı bir türlü verdiremedim.

saygılar

__________________
extra yazılım

Yukarı Dön

yildirimbeyazit
Yeni Üye

Kayıt Tarihi: 23-Haziran-2006
Gönderilenler: 2

Gönderen: 23-Haziran-2006 Saat 01:10 \| Kayıtlı IP

bağlantıyı krduktan sonra kaydı kontrol ettir kursör nerede die

sondaysa hiç bişi eklenmemiş dicek ve döngüden çıkıcak

If kayit.eof then
Response.Write "Hiç bişi Eklenmemiç..."
Response.End
End If

kayıt sonunda deil se buraya gelecek ve

for i=1 to kayit.eof

kayit.movenext

falan filan

in yardımcı olabildim

Yukarı Dön

YEŞİL AŞKI
Yeni Üye

Kayıt Tarihi: 26-Haziran-2006
Gönderilenler: 5

Gönderen: 26-Haziran-2006 Saat 20:23 \| Kayıtlı IP

If objRS.Eof Then
response.write ""
response.write " Hiç Kayıt Bulunamadı. <INPUT TYPE=" "button" " VALUE=" " << Geri " " onClick=" "history.go(-1)" ">"
response.write ""

Yukarı Dön

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

Yazıcı Sürümü

Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma