Notifikationer

Markér alle som læst Log ud

justdoit Nybegynder

12. december 2002 - 11:50 Der er 28 kommentarer og
1 løsning

Hvordan samler jeg ens overskrifter?

Hej

Når jeg laver en søgning på min tabel annoncer, så finder jeg nogle data som udskrives. Måden de bliver udskrevet på er at der er et id som passer til en kategori og der er et andet id som passer til en underkategori.

Derfor bliver min data nu udskrevet sådan:

Kategori1 >> underkategori3
Kategori1 >> underkategori3
Kategori3 >> underkategori5
Kategori5 >> underkategori8

Men jeg vil gerne have skrevet det ud sådan at både de kategori og underkategorier der er ens, de skal udskrives sådan:

Kategori1 >> underkategori3 (2)
Kategori3 >> underkategori5 (1)
Kategori5 >> underkategori8 (1)

Sådan udskrives der lige nu fra tabellerne, men hvordan for jeg lavet sådan at det står som ovenfor????

<% Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString
StrSql2 = "SELECT kategoriNavn FROM kategori WHERE kategoriId=" &
objrec("Kategori")
Set objRec2 = Conn2.Execute(StrSql2)
%>
<%=objRec2("kategoriNavn")%> >>
<%
objRec2.movenext()
Conn2.Close
Set Conn2 = Nothing
Set objRec2 = Nothing
%><% Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open ConString
StrSql3 = "SELECT u_kategoriNavn, Count(u_kategoriNavn) AS Antal FROM
u_katagori WHERE id =" & objRec("u_kategoriId") & " GROUP BY u_kategoriNavn"
Set objRec3 = Conn3.Execute(StrSql3)
%>
<%=("<a onFocus=""this.blur()"" href=""seannonce.asp?id=" & objRec("id") &
""">" & objRec3("u_kategoriNavn") & "</a> (" & objRec3("Antal") & ")")%>
<%
objRec3.movenext()
Conn3.Close
Set Conn3 = Nothing
Set objRec3 = Nothing
%>

Synes godt om

eagleeye Praktikant

12. december 2002 - 12:34 #1

Du kan lave en SQL som gør det hele for dig...: Jeg har så vist muligt brugt samme kolonne og tabel navn i SQL'en, dog har jeg antaget at din samlings tabel som bruges v´til åbning af objRec hedder: kat_u_kat

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (kat_u_kat LEFT JOIN kategori ON kat_u_kat.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON kat_u_kat.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn;

Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString
Set rs = Conn2.Execute(SQL)
do while not rs.EOF

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")<br>"

rs.MoveNext
loop

Synes godt om

justdoit Nybegynder

12. december 2002 - 17:13 #2

Det ser godt ud, men jeg forstår ikke lige hvad du mener med at du har kaldt den ene table for kat_u_kat ???? Hvad er det du vil hente der??

Lige nu har jeg lavet det sådan:

<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (kat_u_kat LEFT JOIN kategori ON kat_u_kat.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON kat_u_kat.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>

Synes godt om

justdoit Nybegynder

12. december 2002 - 17:21 #3

Jeg har læst denne sætning igen og igen men kan ikke forstå hvad der skal stå ved kat_u_kat:

dog har jeg antaget at din samlings tabel som bruges v´til åbning af objRec hedder: kat_u_kat

Synes godt om

eagleeye Praktikant

12. december 2002 - 18:48 #4

Du har et objRec i oprendelige kode hvor du bruger:
objrec("Kategori")
og
objRec("u_kategoriId")

Tabelnavnet på den tabel hvor de to kolonner i skal skrives hvor der står kat_u_kat

Synes godt om

justdoit Nybegynder

12. december 2002 - 18:56 #5

Ok, nu er jeg med!!

Jeg har rettet det nu, og det ser ud til at det virker. Men lige nu skriver den det samme ud flere gange fx.

Kategori1 >> underkategori3 (2)
Kategori1 >> underkategori3 (2)
Kategori1 >> underkategori3 (2)
Kategori1 >> underkategori3 (2)
Kategori1 >> underkategori3 (2)

Hvorfor det???

Her er koden som jeg har den nu!!

<%
Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>
<%
i = 1
Do While Not objRec.EOF
If i mod 2 = 0 then
%>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr bgcolor="#DDDDDD">
<td colspan="2" valign="top">
<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>
</td>
</tr>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
</tr>
<% else %>
<tr>
<td height="3" colspan="2"></td>
</tr>
<tr>
<td colspan="2" valign="top"><%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>
</td>
</tr>
<tr>
<td height="3" colspan="2"></td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
</tr>
<%
End if
objRec.movenext()
i = i + 1
Loop
Else %>

Synes godt om

eagleeye Praktikant

12. december 2002 - 19:04 #6

Det bliver udskrevet lige så mange gagne som der er records i objRec i dette styk kode, som loop'er gennem objRec.:

<%
Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>
<%
i = 1
Do While Not objRec.EOF
If i mod 2 = 0 then
%>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr bgcolor="#DDDDDD">
<td colspan="2" valign="top">
<%
'HER BLIVER DET UDSKREVET LIGE SÅ MANGE GANGE SOM RECORDS I objRec

Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>

Synes godt om

justdoit Nybegynder

12. december 2002 - 19:26 #7

Øhh det forstår jeg altså ikke helt! Der bliver loopet det antal gange der er noget i min objrec! Men hvorfor udskriver den den første objrec ens alle gangene?

Hvordan får jeg den til at udskrive sådan:

Kategori1 >> underkategori3 (2)
Kategori3 >> underkategori5 (1)
Kategori5 >> underkategori8 (1)

..og ikke sådan

Kategori1 >> underkategori3 (2)
Kategori1 >> underkategori3 (2)
Kategori1 >> underkategori3 (2)

Synes godt om

eagleeye Praktikant

12. december 2002 - 19:40 #8

Jeg prøver på en anden måde.. Det som udskriver fra rs er ikke lavet som et loop men udskriver kun den første record. Det som bliver loopet et objRec og inde i det loop åbes rs og udskirver den første record så derfor er de alle ens.
Prøv kun har havde den del af koden som er vist her:

<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>

Synes godt om

justdoit Nybegynder

12. december 2002 - 19:56 #9

Jeg syntes det er lige meget hvad jeg prøver at loope på, så udskriver den kun første record??

Her er mine koder nu, men hvad gør jeg forkert??

<%
Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>
<%
'i = 1
Do While Not objRec.EOF
'If i mod 2 = 0 then
%>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr bgcolor="#DDDDDD">
<td colspan="2" valign="top">
<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)

Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>

Synes godt om

eagleeye Praktikant

12. december 2002 - 19:58 #10

Hvad er meningen med dette

<%
Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then
%>

Synes godt om

eagleeye Praktikant

12. december 2002 - 19:58 #11

Du har stadig loop på et helt anden recordset nemlig objRec.

Synes godt om

eagleeye Praktikant

12. december 2002 - 20:00 #12

doh jeg har helt glemt loop i mit eks.... :(

<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)
do while not rs.EOF
Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")"

rs.MoveNext()
loop
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>

Synes godt om

justdoit Nybegynder

12. december 2002 - 20:47 #13

Ok - nu har jeg fået det til at virke, men jeg kan ikke få felterne vil at skrife mellem to farver, som de gjorde før! Er det noget du kan finde ud af, du skal naturligvis nok få dine point, det har du fortjent??

Her er koderne der virker!

<%
Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then

Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Set rs = Conn2.Execute(SQL)
do while not rs.EOF
%>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr bgcolor="#DDDDDD">
<td colspan="2" valign="top"><%
Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")" %>
</td>
</tr>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
</tr>
<%
rs.MoveNext()
loop
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>

Synes godt om

eagleeye Praktikant

12. december 2002 - 21:06 #14

Prøv at rette dette:

%>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr bgcolor="#DDDDDD">
<td colspan="2" valign="top"><%
Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")" %>
</td>
</tr>
<tr bgcolor="#DDDDDD">
<td height="3" colspan="2"></td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
</tr>
<%

til

%>

If blnBGColor = True Then
strBGColor = "#DDDDDD"
blnBGColor = False
Else
strBGColor = "#CCCCCC"
blnBGColor = True
End If
<tr bgcolor="<%=strBGColor%>">
<td colspan="2" valign="top"><%
Response.write rs("kategoriNavn") & " >> " & rs("u_kategoriNavn")
Response.write " (" & rs("antal") & ")" %>
</td>
</tr>

Synes godt om

justdoit Nybegynder

12. december 2002 - 21:39 #15

Når jeg skal hente mit id som passer til det der er fundet, så skal jeg bruge min id fra annoncer, men hvordan henter jeg det`????

Synes godt om

eagleeye Praktikant

12. december 2002 - 21:49 #16

Hvis du tilføjer:

SQL = "SELECT annoncer.ID, kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Det er mulig det også skal med i GROUP BY

SQL = "SELECT annoncer.ID, kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn, annoncer.ID"

Synes godt om

justdoit Nybegynder

12. december 2002 - 22:05 #17

Med denne virker det:

SQL = "SELECT annoncer.ID, kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

Men jeg skal lige hører noget. Når der nu er fx er 3 underkategorier, hvordan udskriver jeg så de 3??? Lige nu viser den kun ét id som den så udskriver!!

Synes godt om

eagleeye Praktikant

12. december 2002 - 22:15 #18

Hvilket id skal det være på under kategorien?

Synes godt om

justdoit Nybegynder

12. december 2002 - 22:27 #19

Det er annoncer.id der er det unikke id til hver annonce, men det er når der nu står fx.

Kategori1 >> underkategori3 (2)

Så er der jo to id'er - hvordan henter jeg begge id'er over i et andet dokument? Er det ved at bruge Request.Querystring??

Synes godt om

eagleeye Praktikant

12. december 2002 - 22:38 #20

Ja skal det være et link??

så kan det laves i stil med filnavn.asp?katid=2&ukatid=3

Synes godt om

justdoit Nybegynder

12. december 2002 - 22:53 #21

Ja, det skal være et link, og jeg har lavet det sådan:

Response.write "<a href=""seannonce.asp?id=" & rs("id") & """>" & rs("kategoriNavn") & " >> " & rs("u_kategoriNavn") & "</a>"

Men her kommer kun ét id frem, og linket skal jo fx vise 5 id'er når jeg klikker på det - ved du hvad jeg mener??

Synes godt om

eagleeye Praktikant

12. december 2002 - 22:57 #22

Muligvis.. hvis man har denne linie som link

Kategori1 >> underkategori3 (5)

så skal den side som linket loader vise de 5 underkategorier ?

Så skal SQL også hendte annoncer.u_kategoriId ud:

SQL = "SELECT annoncer.ID, annoncer.u_kategoriId , kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn"

og så linket:

Response.write "<a href=""seannonce.asp?id=" & rs("id") & "&uid=" rs("u_kategoriId") & """>" & rs("kategoriNavn") & " >> " & rs("u_kategoriNavn") & "</a>"

Synes godt om

justdoit Nybegynder

12. december 2002 - 23:12 #23

Jeg får denne fejl:

Response.write "<a href=""seannonce.asp?id=" & rs("id") & "&uid=" rs("u_kategoriId") & """>" & rs("kategoriNavn") & " >> " & rs("u_kategoriNavn") & "</a>"
------------------------------------------------------------------^

Synes godt om

eagleeye Praktikant

12. december 2002 - 23:16 #24

hov der manger et & foran rs("u_ka..

Response.write "<a href=""seannonce.asp?id=" & rs("id") & "&uid=" & rs("u_kategoriId") & """>" & rs("kategoriNavn") & " >> " & rs("u_kategoriNavn") & "</a>"

Synes godt om

justdoit Nybegynder

12. december 2002 - 23:30 #25

Ja, du har da helt ret!

Men jeg tror desværre ikke dette er løsningen! Problemet her er at nu finder jeg jo bare ét andet id, men dette

Kategori1 >> underkategori3 id=3
Kategori1 >> underkategori3 id=7
Kategori1 >> underkategori3 id=11

er jo samlet under

Kategori1 >> underkategori(3)

Så når jeg klikker på Response.write "<a href=""seannonce.asp?id=" & rs("id") & "&uid=" & rs("u_kategoriId") & """>" & rs("kategoriNavn") & " >> " & rs("u_kategoriNavn") & "</a>"

Så skal jeg jo have hentet id=3, id=7 og id=11 på samme tid.

Hvordan gør jeg det?

Synes godt om

eagleeye Praktikant

12. december 2002 - 23:38 #26

Den kan ikke hendte alle 3 ID ud når de er talt sammen. Så må du lave en SQL som hendter ID ud på den side om linkes til ud fra kategori og u_kategori.

SQL = "SELECT kategori.kategoriNavn, u_katagori.u_kategoriNavn, u_katagori.ID "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "WHERE annoncer.ID = " & Request.QueryString("id") & " AND annoncer.u_kategoriId = " & Request.QueryString("uid")

Måske det kan bruges.. Det ikke fordi jeg ikke vil hjælpe mere, men jeg er nød til at smutte for iaften, jeg skal i seng nu...

Synes godt om

justdoit Nybegynder

12. december 2002 - 23:41 #27

Det er helt ok - jeg kigger på det i morgen, men mange tak for hjælpen til nu ;o)

Synes godt om

justdoit Nybegynder

13. december 2002 - 11:19 #28

Jeg får denne fejl i det du lige har skrevet:

[TCX][MyODBC]You have an error in your SQL syntax near 'AND annoncer.u_kategoriId = ' at line 1

Synes godt om

justdoit Nybegynder

16. december 2002 - 09:50 #29

Hej - jeg sidder lige og ser at der er noget galt, som jeg ikke lige kan gennemskue! Når jeg søger på et Keyword så leder jeg i tabellen annoncer, og hvis der findes noget i tabellen så udskrives strSql, men lige nu udskriver jeg ALT - lige meget hvad der bliver søgt på - hvorfor????

Her er koderne:

<%
Set objRec = Conn.Execute(StrSql)
If Not (objRec.BOF Or objRec.EOF) Then

Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString

SQL = "SELECT annoncer.ID, annoncer.u_kategoriId, kategori.kategoriNavn, u_katagori.u_kategoriNavn, Count(u_katagori.u_kategoriNavn) AS antal "
SQL = SQL & "FROM (annoncer LEFT JOIN kategori ON annoncer.Kategori = kategori.kategoriId) "
SQL = SQL & "LEFT JOIN u_katagori ON annoncer.u_kategoriId = u_katagori.id "
SQL = SQL & "GROUP BY kategori.kategoriNavn, u_katagori.u_kategoriNavn ORDER BY antal DESC"

Set rs = Conn2.Execute(SQL)
do while not rs.EOF
If blnBGColor = True Then
strBGColor = ""
blnBGColor = False
Else
strBGColor = "#DDDDDD"
blnBGColor = True
End If
%>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
<tr>
<td height="3" colspan="2" bgcolor="<%=strBGColor%>"></td>
</tr>
<tr>
<td colspan="2" valign="top" bgcolor="<%=strBGColor%>"><%
Response.write "<a href=""seannonce.asp?id=" & rs("id") & "&uid=" & rs("u_kategoriId") & """>" & rs("kategoriNavn") & " >> " & rs("u_kategoriNavn") & "</a>"
Response.write " (" & rs("antal") & " annoncer )" %>
</td>
</tr>
<tr>
<td height="3" colspan="2" bgcolor="<%=strBGColor%>"></td>
</tr>
<tr>
</tr>
<%
rs.MoveNext()
loop
Conn2.Close
Set Conn2 = Nothing
Set rs = Nothing
%>
<% Else %>
<tr>
<td height="20"></td>
</tr>
<tr>
<td>
<div align="center">Der blev ikke fundet noget på denne søgning</div>
</td>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS