Lave et mindre funktion

Du laver en SQL hvor der står:

"SELECT COUNT as Antal FORM tabelnavn WHERE"

Response.Write "Antal jokes: " & rs("antal")

"SELECT TOP5 FORM tabelnavn SORT by views"

Response.Write "Mest læste: "
'Her laver du så et loop der udskriver de fem mest læste....!

Sorry...: "SELECT COUNT as Antal FORM tabelnavn"

Ahh..... for helvede.. Det gik lidt stærkt...

"SELECT COUNT() as Antal FROM tabelnavn"

Hej cool_casper !

Her er lige et foreslag til dig !

visantal.asp

<%
'Skaber forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

'Laver en Sql Forespørgelse der tæller alle jokes
Sql = "SELECT COUNT (Id) AS Total From DinTabel"
Set Rs = Conn.Execute(Sql)
%>

'Så laver vi lige en tabel der kan vise resultatet
<table>
  <tr>
    <td><%= Rs("Total")%></td>
  </tr>
</table>

top5.asp

<%
'Skaber forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

'Laver en Sql Forespørgelse der henter de 5 mest læste Jokes
Sql = "SELECT TOP5 From DinTabel ORDER BY veiws DESC"
Set Rs = Conn.Execute(Sql)
%>
'Så laver vi lige en tabel der kan vise resultatet
<table>
  <tr>
    <td>5 mest læste Jokes</td>
  <tr>
  'Her looper vi igennem databasen
  <%Do While Not Rs.EOF%>
  </tr>
    <td><%= Rs("Overskrift")%></td>
  </tr>
  <%
    Rs.MoveNext
    Loop
  %>
</table>

Husk lige at ændre feltnavne i det oven stående
og ellers skulle det være det :-)

/websam

he he... Det havde jeg glemt....!

Men virker det ellers ikke efter hensigten ?

/websam

jeg tester om et øjeblik...er først lige kommet hjem og fortrækker at spise noget mad først:)

he he he....

til top 5 får jeg denne fejl

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

men ialt scriptet virker..

Har du ændret så det passer til dine felter ?
Hvis du har og det stadig ikke virker så skal jeg
lige se hvad felterne hedder i din database !

/websam

<%
'Skaber forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")

'Laver en Sql Forespørgelse der henter de 5 mest læste Jokes
Sql = "SELECT TOP5 From joke ORDER BY views DESC"
Set Rs = Conn.Execute(Sql)
%>
'Så laver vi lige en tabel der kan vise resultatet
<table>
  <tr>
    <td>5 mest læste Jokes</td>
  <tr>
  'Her looper vi igennem databasen
  <%Do While Not Rs.EOF%>
  </tr>
    <td><%= Rs("Overskrift")%></td>
  </tr>
  <%
    Rs.MoveNext
    Loop
  %>
</table>


sådan ser scriptet ud...

hvis man trykker på joke i databasen så kommer der følgende felter frem..

ID | Overskrift | Views |
_________________________
___|____________|________
___|____________|________


Id er jokens id som sagt.. overskrift... det er dens titel...  views.. hvor mange gange man har læste joken..

Hvis ikke du mener der er fejl i scriptet må du gerne lave et eksempel med database og sende det til mig. shadmuda@privat.dk
jeg kan selvfølgelig også godt sende dig min database men det tager næsten længerer tid end hvis du selv laver den:)

Hej igen !

Det var vist gået lidt hurtigt tidligere hvis jeg bruger denne
så virker det her :

Sql = "SELECT TOP 5 * From joke ORDER BY views DESC"

Så prøv lige det :-)

/WebSam

Og hvis du vil kan jeg sende det til dig ?

/websam

pis.. jeg havde helt glemt noget...

man skal selfølgelig også kunne klikke på de fem top jokes..
i hvordan får du linksne til at virke? linket til hver joke ligger i feltet "jokelink"

Send lige den db så er det lidt lettere

websam@worldonline.dk

/websam

Så skal jeg nok lave det færdigt !

/websam