<table width="600" border="0" cellpadding="3" cellspacing="0">
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 10
SQL = "Select * From Radannonser ORDER By datum DESC"
Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("../asp/hundbazar.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
Response.write "Där fanns det ju inget... " & sok
Else
rstemp.movefirst
rstemp.pagesize = mypagesize
maxcount = Cint(rstemp.pagecount)
rstemp.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rstemp.fields.count -1
Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
counter = counter + 1
If counter mod 2 = 0 then
color = "#E0D2BF"
Else
color = "#FFFFFF"
End If
Response.write "<tr bgcolor='" & color & "'><td><B>" & RStemp("kategori") & "</B><BR><B>Annonstext:</B><BR>"&RStemp("annonstext")&"<BR><B>Telefon:"&RStemp("telefon")&"</B><BR><B>E-post: </B><A HREF='mailto:" & RStemp("epost") & "'>" & RStemp("epost") & "</A><BR><B>Namn:</B> "&RStemp("namn")&"<BR><B>Rubrik:</B>"&RStemp("rubrik")&"</TD></tr>"
rstemp.movenext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.close
Set rstemp = nothing
%>
<tr>
<td width="400"><hr class="hundbazarlight" size="1" noshade>
</td>
<td></td>
</tr>
<tr>
<td width="400"><%
If maxcount <> 0 then
response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
response.write "<br>"
End If
Next
End If
End If
%>
</td>
<td></td>
</tr>
</table>
Nu vill jag kunna plocka fram så att man kan välja att bara se de annonser som finns under säljes.
Går det?
Genom att skriva
SQL = "Select * From Radannonser ORDER By kategori DESC"
på http://www.costodia.com/hundbazar/show-only.asp så fick jag de sorterade kategorivis, men nu undrar jag alltså om det finns något sätt att helt och hållet bara visa en av de olika kategorierna, säljes, köper, bytes etc
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/hundbazar/show-only.asp, line 70
nu skulle jag vilja ha det på en och samma aspsida går det och hur skulle en sådan länk i så fall se ut?
Det blev lite krånglikt att ha det på 7 olika sidor (alltså en för varje kategori)
Tack på förhand,
scriptet ligger överst på denna sida,
det är hela scriptet,
T ex Avel är ett värde i en av cellerna
jag vet inte om du förstår bättre nu, databasen har en tabell som heter radannonser i den finns bland annat en kolumn som heter Kategori och det är ibland dessa jag nu vill välja,
där bland annat avel, bytes, köpes och säljes finns med.
SQL = "Select * From Radannonser WHERE Kategori='" & request.querystring("kategori") & "' ORDER By datum DESC"
så lyckas jag plocka ut säljes som jag vill och sedan listar sidan längst ner på sidan länkar till de 26 sidor som finns med säljes till skillnad från de 50 som finns utan kategoriindelning, problemet är att om man trycker på en av dessa 26 länkar längst ner på sidan så så kommer det upp
Där fanns det ju inget...
jag misstänkar att det är något som är fel i anropet men jag kan inte lista ut vad, så om någon kan hjälpa mig skulle jag bli jätteglad.
