Søg
Avatar billede plato Juniormester
29. november 2002 - 20:12 Der er 25 kommentarer og
1 løsning

Count ASP

Hejsa...

Jeg er ikke særlig ferm til ASP.. Så jeg har lige et par spm.
Jeg har en database med film, hvor der hele tiden bliver tilføjet nye..

1: Hvordan koder jeg, så jeg f.eks kan skrive:
"Der er ialt så mange film i databasen = antal

2: Hvordan laver jeg en top 10. Dette skal bruges til min afstemning som er i samme database.

Håber der én der vil hjælpe :-)
Avatar billede hossein Nybegynder
29. november 2002 - 20:35 #1
Top 10:
Select * top 10 from tblMIN

Antal:
select count(minfelt) as antal from tblMIN
Avatar billede hossein Nybegynder
29. november 2002 - 20:39 #2
Det er omvendt:
select top 10 minFelt from tblMIN
Avatar billede plato Juniormester
29. november 2002 - 20:43 #3
Ehmm når jeg skriver jeg ikke er ferm til det, så mente jeg det ;o)

Jeg kan da ikke bare skrive select count(id) as antal from trailer ?
Så skriver siden jo det som jeg sætter ind...
Avatar billede hossein Nybegynder
29. november 2002 - 20:47 #4
Korrekt, Men har du lavet Database forbindelsen? så skal du skrive din sql sætning sådan:
strSQL = "select count(minfelt) as antal from tblMIN"
Avatar billede plato Juniormester
29. november 2002 - 20:48 #5
Jeg prøver...Ellers skriver jeg min kode her..
Avatar billede hossein Nybegynder
29. november 2002 - 20:51 #6
Sådan noget i den retning:
<%
Set objConn = server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("MINdata.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
Set objRS1 = Server.CreateObject("ADODB.Recordset")
strSQL = "Select count(minfelt) as antal FROM tblMIN"
objRS1.Open strSQL, objConn
'Response.Write sql
'Vis_billede1 = objRS1.Fields("ID")%>
<%
do while not objRS.EOF
%>
<img src=images/<%=objRS("URL")%> height=<%=objRS("Height")%> Width=<%=objRS("Width")%>>
<%
objRS1.Movenext
loop
%>
Avatar billede hossein Nybegynder
29. november 2002 - 20:52 #7
objRS1 skal være objRS
Avatar billede snuseren.dk Nybegynder
29. november 2002 - 20:53 #8
Sådan laver du nr. 1:
<%
SQL = "SELECT * FROM tabelnavn"
%>
<%=feltnavn%>

Du skal selfølgelig have en database conn. ovenover. feltnavn = navnet på feltet hvor tallet står i. tabelnavn = navnet på tabellen.

Skriv lige hvis der var noget du ikke forstod!

MVH
Snuseren.dk
Avatar billede plato Juniormester
29. november 2002 - 20:53 #9
Her er koden.
strSQL = "select count(minfelt) as antal from tblMIN" <- Hvor skal det sættes

Hvad er koden der skal vise det?

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  id = request.querystring("id")
  karakter = Request.Form("karakter")
  strSQL = "UPDATE sider SET stemmer = stemmer + 1, totalStjerner = totalStjerner + " & karakter & " WHERE ID = " & id
  objConn.Execute (strSQL) 
end if


strSQL = "SELECT * FROM sider WHERE id LIKE '"  & Request.QueryString("id") & "'"
Set rs = objConn.Execute(strSQL)

If Not rs.EOF Then
    titel = rs("titel")
    pic = rs("pic")
    tlink = rs("tlink")
    omtale = rs("omtale")
    premiere = rs("premiere")
    skuespil = rs("skuespil")
    instruk = rs("instruk")
    studio = rs("studio")
    genre = rs("genre")
    tid = rs("tid")
    tilbage = rs("tilbage")
    tilbaget = rs("tilbaget")
    stemmer = rs("stemmer")
    totalStjerner = rs("totalStjerner")
    hplink = rs("hplink")
    hptekst = rs("hptekst")

Else
    Response.Write "<b>Der er noget galt med id'et</b><br><br>"
End If

%>


<html>
<head>
<title><%=titel%></title>
<link rel="stylesheet" type="text/css" href="../style.css">


</head>
<body bgcolor="#efefef" text="#000000" leftmargin="5" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="overflow:auto">
<span id="font">Trailers » Sektion A » <%=titel%></span>
<br>  <br>   

<center>
<table border="0" cellspacing="0" cellpadding="0" width="70%">
    <tr>
        <td width="80%" valign="top">
       
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Premiere:</b></td>
                    <td class="menuc"><%=premiere%></td>
            </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td valign="top" class="menuc" width="140"><b>Skuespillere:</b></td>
                    <td class="menuc"><%=skuespil%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Instruktør:</b></td>
                    <td class="menuc"><%=instruk%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Studio:</b></td>
                    <td class="menuc"><%=studio%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Genre:</b></td>
                    <td class="menuc"><%=genre%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Spilletid:</b></td>
                    <td class="menuc"><%=tid%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Officiel HP:</b></td>
                    <td class="menuc"><a href="<%=hplink%>" target="_new"><%=hptekst%></a></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td colspan="3"><a href="<%=tlink%>"><b>»</b> <u>Afspil Trailer [Quicktime]</U></a></td>
                </tr>   
            </table>
        </td>
   
        <td align="right"><img src="../pics/<%=pic%>" width="200" height="300" border="0"></td>
    </tr>   
    <tr>
        <td  colspan="2"><span id="font2"><br><hr color="#970000" size="2"><%=omtale%>
                           
        </td>
    </tr>
    <tr>
        <td  colspan="2"><span id="font2"><br><hr color="#970000" size="2">
        <% ' Vis antal stjerner
     
            if stemmer = 0 or stemmer = "" then
              billede = "s0"
            else
              snit = Round(totalStjerner / stemmer,3) * 2
              snit = round(snit) / 2
              snit = replace(snit, ".", "k")
              snit = replace(snit, ",", "k")
              billede = "s" & snit
            end if
           
            Response.Write "<img src=""" & billede & ".gif"">"
          %>
          <form action="trailers.asp?id=<%=Request.QueryString("id")%>" method="post">
            <input type="radio" name="karakter" value="1">1
            <input type="radio" name="karakter" value="2">2
            <input type="radio" name="karakter" value="3">3
            <input type="radio" name="karakter" value="4">4
            <input type="radio" name="karakter" value="5">5
            <input type="submit" name="Stem" value="Stem">
          </form>
        </td>
    </tr>
</table>
<br> 
                            <a href="<%=tilbage%>"><b><%=tilbaget%></b></a>




</body>
</html>
<%
objConn.Close
%>
Avatar billede plato Juniormester
29. november 2002 - 20:53 #10
I var hurtigst... ;o)
Avatar billede plato Juniormester
29. november 2002 - 20:56 #11
Kan stadig ikke få det til at funke....
Kan man ikke tælle ud fra "id"?
Avatar billede hossein Nybegynder
29. november 2002 - 20:59 #12
prøv den:
strSQL="select count(*) as ANTAL from tblMIN"
Avatar billede hossein Nybegynder
29. november 2002 - 21:03 #13
Ups, du bruger where i din sql sætning, den ændre sagen jo!
Avatar billede plato Juniormester
29. november 2002 - 21:04 #14
Jeg kan i hvertfald ikke få det til at virke.. *S*
Avatar billede hossein Nybegynder
29. november 2002 - 21:13 #15
jeg forslog at du først bruger sql count(*) og når du har ikke noget fejl så kan du tilføje din sql update, på den måde har du mere styr på det:

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
strSQL = "SELECT Count(*) As Antal FROM sider WHERE id LIKE '"  & Request.QueryString("id") & "'"
Set rs = objConn.Execute(strSQL)

også resten
Avatar billede plato Juniormester
29. november 2002 - 21:23 #16
Og så skal jeg oprette antal i min tabel?
Avatar billede hossein Nybegynder
29. november 2002 - 21:26 #17
html tabel? hvis ja, ja :)
sådan noget:
<table>
<tr>
<td><%=rs("Antal")%></td>
</tr>
</table>
Avatar billede hossein Nybegynder
29. november 2002 - 21:27 #18
for din update kig på dette ex: http://www.w3schools.com/ado/ado_update.asp
Avatar billede plato Juniormester
29. november 2002 - 21:32 #19
Jeg har oprette "antal" i trailer.mdb

Koden ser nu sådan har ud, men det virker ikke.. Jeg fatter intet ligenu..Sorry...

<%

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  id = request.querystring("id")
  karakter = Request.Form("karakter")
  strSQL = "UPDATE sider SET stemmer = stemmer + 1, totalStjerner = totalStjerner + " & karakter & " WHERE ID = " & id
  objConn.Execute (strSQL) 
end if

strSQL = "SELECT Count(*) As Antal FROM sider WHERE id LIKE '"  & Request.QueryString("id") & "'"
Set rs = objConn.Execute(strSQL)



If Not rs.EOF Then
    titel = rs("titel")
    pic = rs("pic")
    tlink = rs("tlink")
    omtale = rs("omtale")
    premiere = rs("premiere")
    skuespil = rs("skuespil")
    instruk = rs("instruk")
    studio = rs("studio")
    genre = rs("genre")
    tid = rs("tid")
    tilbage = rs("tilbage")
    tilbaget = rs("tilbaget")
    stemmer = rs("stemmer")
    totalStjerner = rs("totalStjerner")
    antal = rs("antal")
    hplink = rs("hplink")
    hptekst = rs("hptekst")
   

Else
    Response.Write "<b>Der er noget galt med id'et. Kontakt webmaster på admin@trailersiden.dk</b><br><br>"
End If

%>


<html>
<head>
<title><%=titel%></title>
<link rel="stylesheet" type="text/css" href="../style.css">


</head>
<body bgcolor="#efefef" text="#000000" leftmargin="5" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="overflow:auto">
<span id="font">Trailers » Sektion A » <%=titel%></span>
<br>  <br>   
<%=antal%>
<center>
<table border="0" cellspacing="0" cellpadding="0" width="70%">
    <tr>
        <td width="80%" valign="top">
       
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Premiere:</b></td>
                    <td class="menuc"><%=premiere%></td>
            </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td valign="top" class="menuc" width="140"><b>Skuespillere:</b></td>
                    <td class="menuc"><%=skuespil%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Instruktør:</b></td>
                    <td class="menuc"><%=instruk%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td class="menuc" width="140"><b>Studio:</b></td>
                    <td class="menuc"><%=studio%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Genre:</b></td>
                    <td class="menuc"><%=genre%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Spilletid:</b></td>
                    <td class="menuc"><%=tid%></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>   
                    <td class="menuc" width="140"><b>Officiel HP:</b></td>
                    <td class="menuc"><a href="<%=hplink%>" target="_new"><%=hptekst%></a></td>
                </tr>
            </table>
            <br>
            <Table border="0" cellpadding="0" cellspacing="0">
                <tr>
                    <td colspan="3"><a href="<%=tlink%>"><b>»</b> <u>Afspil Trailer [Quicktime]</U></a></td>
                </tr>   
            </table>
        </td>
   
        <td align="right"><img src="../pics/<%=pic%>" width="200" height="300" border="0"></td>
    </tr>   
    <tr>
        <td  colspan="2"><span id="font2"><br><hr color="#970000" size="2"><%=omtale%>
                           
        </td>
    </tr>
    <tr>
        <td  colspan="2"><span id="font2"><br><hr color="#970000" size="2">
        <% ' Vis antal stjerner
     
            if stemmer = 0 or stemmer = "" then
              billede = "s0"
            else
              snit = Round(totalStjerner / stemmer,3) * 2
              snit = round(snit) / 2
              snit = replace(snit, ".", "k")
              snit = replace(snit, ",", "k")
              billede = "s" & snit
            end if
           
            Response.Write "<img src=""" & billede & ".gif"">"
          %>
          <form action="trailers.asp?id=<%=Request.QueryString("id")%>" method="post">
            <input type="radio" name="karakter" value="1">1
            <input type="radio" name="karakter" value="2">2
            <input type="radio" name="karakter" value="3">3
            <input type="radio" name="karakter" value="4">4
            <input type="radio" name="karakter" value="5">5
            <input type="submit" name="Stem" value="Stem">
          </form>
        </td>
    </tr>
</table>
<br> 
                            <a href="<%=tilbage%>"><b><%=tilbaget%></b></a>




</body>
</html>
<%
objConn.Close
%>
Avatar billede hossein Nybegynder
29. november 2002 - 21:39 #20
nej, du skal ikke tilføje et felt til din db. Når du bruger Count(*) AS Antal, opretter selve db'en et felt som hedder Antal, også skal du bare kalde det:<%=rs("Antal")%>
Avatar billede plato Juniormester
29. november 2002 - 21:40 #21
Okies... Jeg prøver igen igen.
Avatar billede hossein Nybegynder
29. november 2002 - 21:41 #22
For bedre forklaring på AS kig dette: http://www.w3schools.com/sql/sql_alias.asp
Avatar billede hossein Nybegynder
29. november 2002 - 21:57 #23
plato, nu har jeg kigget på din kodning, jeg tvivler på at den komme til at virke?!
Avatar billede plato Juniormester
29. november 2002 - 22:37 #24
Uanser hvad jeg gør..Så kan jeg ikke få det til at virke..*S*
Avatar billede plato Juniormester
01. december 2002 - 22:06 #25
Lukket.. Prøver igen...
Avatar billede plato Juniormester
01. december 2002 - 22:06 #26
Ehmmm
Avatar billede 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.

Loading billede Opret Preview
Kategori
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
White papers
Flere white papers »