Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp Ci Arkadaslar Yardım Edebilir Mi? Asp Ci Arkadaslar Yardım Edebilir Mi?
-
S.a arkadaslar hazırlamakda oldugum websitesinde bir hata var yardımcı olabilir misiniz.Site saglam calısıyor localde felan.İlk problem vermiyor sonra vermeye baslıyor anlayan arkadaslar bi el atarsa gercekden sevinirim.Arama problemim vardı cozdum sandım cozememişim.Kodları degisdim bu seferde sacma sapan birsey Oldu.Arama problemim su.Kişi sadece bir tane ilan aramak istiyorsa yani sadece marka aramak istiyorsa o marka ve modelleri cıksın ama kişi marka ve modele gore hatta fiyat yıla gorede arama yapmaya kalkınca veritabanında ne var ne yok karsıma getiriyor.Bu sorunu nasıl cozebilirim acaba?Yardım eder misiniz.Kodlar bunlar.
<%
'dbpath="DBQ=(./db/car.mdb);Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
dbpath="Provider= Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/data.mdb") & ";"
'dbpath="DBQ=" & Server.MapPath("./db/car.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;"
%>
<%
marka_adi=Request.form("marka_adi")
model=Request.form("model")
minyil=Request.form("minyil")
maxyil=Request.form("maxyil")
fiyataralik=Request.form("fiyataralik")
fiyataralik2=Request.form("fiyataralik2")
fiyat_id=Request.form("fiyat_id")
if marka_adi="Lütfen Seçiniz" then
marka_adi=""
end if
ssql = "select * FROM ilanlar Where marka_adi like '"& marka_adi &"%' and"
If model <> "Fark Etmez" And model <> "" Then
'Model = Split(Me.ComModel, Space(100), -1, 1)
SqlEk = SqlEk & " model= '" & model & "' and "
End If
If Minyil <> "Fark Etmez" And Minyil <> "" Then
SqlEk = SqlEk & " yili >= '" & Minyil & "' and "
End If
If maxyil <> "Fark Etmez" And maxyil <> "" Then
SqlEk = SqlEk & " yili <= '" & maxyil & "' and "
End If
If fiyataralik <> "" and fiyataralik <>"Fark Etmez" Then
SqlEk = SqlEk & " fiyat >='" & fiyataralik & "' and "
End If
If fiyataralik2 <> "" and fiyataralik2<>"Fark Etmez" Then
SqlEk = SqlEk & " fiyat <='" & fiyataralik2 & "' and "
End If
If fiyat_id <> "" and fiyat_id<>"Fark Etmez" Then
SqlEk = SqlEk & " fiyat_id ='" & fiyat_id & "' and "
End If
ssql = ssql & SqlEk
ssql = Mid(ssql, 1, Len(ssql) - 4)
Set rcs = Server.CreateObject( "ADODB.Recordset" )
rcs.ActiveConnection = bag
rcs.CursorType= adOpenStatic
set Conn=server.CreateObject("ADODB.Connection")
Conn.Open dbpath
' Response.Write ssql
' response.end
rcs.Open " SELECT * FROM ilanlar Where onay='EVET' "
if rcs.RecordCount=0 then
%>
<%
end if
%>
<%
syf = request.Querystring("syf")
If syf="" Then syf=1
rcs.pagesize=18
rcs.AbsolutePage=syf
WHILE not rcs.eof and rowcount < rcs.pagesize rowcount=rowcount+1
%>
<style type="text/css">
<!--
.style3 {
font-size: 12px;
font-family: Tahoma;
color: #FFFFFF;
}
.aramaxx {
font-family: Tahoma;
font-size: 12px;
color: #666666;
text-decoration: none;
background-color: #CCCCCC;
border: 1px solid #CCCCCC;
}
.style13 {font-size: 12px; font-family: Tahoma; font-weight: bold; color: #000000; }
.style14 {color: #FFFFFF}
-->
</style>
<table width="100%" border="0" cellpadding="2" cellspacing="2" class="aramaxx">
<tr bgcolor="#CCCCCC" class="menu2">
<td width="8%"><span class="style13">Yıl</span></td>
<td width="25%"><span class="style13">Marka/Model</span></td>
<td width="14%"><span class="style13">Karoser</span></td>
<td width="12%"><span class="style13">Renk</span></td>
<td width="12%"><span class="style13">Km</span></td>
<td width="15%"><span class="style13">Fiyat</span></td>
<td width="14%"><span class="style13">Detay</span></td>
</tr>
<tr bgcolor="#000066">
<td><span class="style14"> <%=rcs("yili")%></font></span></td>
<td><span class="style14"> <%=rcs("marka_adi") & " " & rcs("alt_kategori")%></font></span></td>
<td><span class="style14"> <%=rcs("kasa_tip") %></font></span></td>
<td><span class="style14"> <%=rcs("Renk") %></font></span></td>
<td><span class="style14"> <%=rcs("Kilometre") %></font></span></td>
<td><span class="style14"> <%=rcs("Fiyat") & " " & rcs("fiyat_id")%></font></span></td>
<td><a href="default1.asp?go=ilan_goster&id=<%=rcs( "id" )%>&sid=<%=Session.SessionID%>" class="style3">Tıkla</a></td>
</tr>
<%
rcs.MoveNext
WEND
End If
%>
</table>
<div align="center"> <% if rcs.pagecount >0 then %>
<%
for i=1 to rcs.pagecount
if i <> cINT(syf) then
%>
<a target="_self" href="default.asp?go=arama&syf=<%=i%>">
<font color="#808080">
<%=i%></font></a>
<% else %>
[<%=i%>]
<% End IF %>
<% next %>
<% End IF %></div>
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla