Avatar billede fomse Nybegynder
07. november 2001 - 13:58 Der er 3 kommentarer og
1 løsning

Tælle sammen

Jeg har flg.:

<html>
<title>Tilmeldte hold</title>
<head>
<style type=\"text/css\">
<!--
-->
</style><link rel=\"stylesheet\" href=\"ccc2001.css\">
</head>
<body topmargin=\"20\" leftmargin=\"30\">

<h1 align=\"center\"><font color=\"#0000FF\" face=\"Impact\"><strong>STILLINGEN</strong></font></h1>

<hr size=\"3\" color=\"#FFFF00\">
<font face=\"Arial\" size=3>Sidst opdateret: </font>
<font face=\"Arial\" size=3 color=\"red\">
<strong>
<script language=\"JavaScript\" type=\"text/javascript\">
<!--
    // last modified script by Bernhard Friedrich; should work in all browsers
    var a;
    a=new Date(document.lastModified);
    lm_year=a.getYear();
    if (lm_year<1000){                 //just in case date is delivered with 4 digits
        if (lm_year<70){
        lm_year=2000+lm_year;
        }
        else lm_year=1900+lm_year;
    }                                //end workaround
    lm_month=a.getMonth()+1;
    if (lm_month<10){
        lm_month=\'0\'+lm_month;
    }
    lm_day=a.getDate();
    if (lm_day<10){
        lm_day=\'0\'+lm_day;
    }
    monthName = new Array(12)
    monthName[0] = \'jan\'
    monthName[1] = \'feb\'
    monthName[2] = \'mar\'
    monthName[3] = \'apr\'
    monthName[4] = \'maj\'
    monthName[5] = \'jun\'
    monthName[6] = \'jul\'
    monthName[7] = \'aug\'
    monthName[8] = \'sep\'
    monthName[9] = \'okt\'
    monthName[10] = \'nov\'
    monthName[11] = \'dec\'
    document.write(\"\" + lm_day+\'. \'+monthName[lm_month-1]+\' \'+lm_year);
// -->
</script>
</strong></font><BR> 
<font color=\"#000000\" face=\"Arial\" size=\"3\">Der er ikke nogen stilling tilgængelig endnu, men her er foreløbig en liste over tilmeldte hold.<BR>
Rytterne på disse hold vil først blive offentliggjort efter tilmeldingsfristen (fredag den 11. januar 2002 kl. 24.00.) er udløbet.<br>
<br>
<table BORDER=\"0\" CELLPADDING=\"5\">
<tr>
<td><strong>HOLDNAVN:</strong></td>
<td><strong>SPORTSDIREKTØR:</strong></td>
<td><strong>BY:</strong></td>
</tr>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"cycling.mdb\")
Conn.Open DSN


strSQL = \"Select * From tblTilmeldteHold Order by holdnavn \"

Set rs = Conn.Execute(strSQL)


Do

  count = count + 1
  Response.Write \"<tr>\"
  Response.Write \"<td>\" & rs(\"Holdnavn\") & \"</td>\"
  Response.Write \"<td>\" & rs(\"navn\") & \"</td>\"
  Response.Write \"<td>\" & rs(\"bynavn\") & \"</td>\"
  Response.Write \"</tr>\"

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
response.write count
%>

</table>
</body>
</html>


Problemet er flg.:

Jeg vil gerne have tælleren til at være her:
...tilmeldingsfristen (fredag den 11. januar 2002 kl. 24.00.) er udløbet.<br>
Der er i øjeblikket XXX antal hold tilmeldt.
<br>
<br>

Hvordan gør jeg det?

Fomse:-)
Avatar billede snowmoad Nybegynder
07. november 2001 - 14:00 #1
Avatar billede fomse Nybegynder
07. november 2001 - 16:21 #2
Ikke til megen hjælp!!!

Er der slet ikke nogen som kan hjælpe?

Jeg skal bare have en funktion som tæller hvor mange recordset der er, og så placeres det hvor jeg har vist det........Please.......

Fomse:-)
Avatar billede excession Nybegynder
07. november 2001 - 16:48 #3
<%
strSQL = \"SELECT COUNT(hold) AS holdcount FROM tblTilmeldteHold\"

Set rs = Conn.Execute(strSQL)
Response.Write \"<p>Der er \" & rs(\"holdcount\") & \" hold registreret.</p>\"
%>

-- xs
Avatar billede fomse Nybegynder
07. november 2001 - 23:31 #4
Løste det således:

<html>
<title>Tilmeldte hold</title><a name=\"top\" /a>
<head>
<style type=\"text/css\">
<!--
-->
</style><link rel=\"stylesheet\" href=\"ccc2001.css\">
</head>
<body topmargin=\"20\" leftmargin=\"30\">

<h1 align=\"center\"><font color=\"#0000FF\" face=\"Impact\"><strong>STILLINGEN</strong></font></h1>

<hr size=\"3\" color=\"#FFFF00\">
<font face=\"Arial\" size=3>Sidst opdateret: </font>
<font face=\"Arial\" size=3 color=\"red\">
<strong>
<script language=\"JavaScript\" type=\"text/javascript\">
<!--
    // last modified script by Bernhard Friedrich; should work in all browsers
    var a;
    a=new Date(document.lastModified);
    lm_year=a.getYear();
    if (lm_year<1000){                 //just in case date is delivered with 4 digits
        if (lm_year<70){
        lm_year=2000+lm_year;
        }
        else lm_year=1900+lm_year;
    }                                //end workaround
    lm_month=a.getMonth()+1;
    if (lm_month<10){
        lm_month=\'0\'+lm_month;
    }
    lm_day=a.getDate();
    if (lm_day<10){
        lm_day=\'0\'+lm_day;
    }
    monthName = new Array(12)
    monthName[0] = \'jan\'
    monthName[1] = \'feb\'
    monthName[2] = \'mar\'
    monthName[3] = \'apr\'
    monthName[4] = \'maj\'
    monthName[5] = \'jun\'
    monthName[6] = \'jul\'
    monthName[7] = \'aug\'
    monthName[8] = \'sep\'
    monthName[9] = \'okt\'
    monthName[10] = \'nov\'
    monthName[11] = \'dec\'
    document.write(\"\" + lm_day+\'. \'+monthName[lm_month-1]+\' \'+lm_year);
// -->
</script>
</strong></font><BR> 
<font color=\"#000000\" face=\"Arial\" size=\"3\">Der er ikke nogen stilling tilgængelig endnu, men her er foreløbig en liste over tilmeldte hold.<BR>
Rytterne på disse hold vil først blive offentliggjort efter tilmeldingsfristen (fredag den 11. januar 2002 kl. 24.00.) er udløbet.<br>
<%
\' DSNLess forbindelse til databasen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"cycling.mdb\")

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

\' Tæller antal poster i tabellen Links
strSQL = \"SELECT COUNT(pID) AS Antal FROM tblTilmeldteHold\"
Set rs = myConn.Execute(strSQL)
Response.Write \"<p>Der er iøjeblikket <strong><font color=\"\"#ff0000\"\">\" & rs(\"Antal\") & \"</font></strong> tilmeldte hold</p>\"

\' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

<br>
<table BORDER=\"0\" CELLPADDING=\"5\">
<tr>
<td><strong>HOLDNAVN:</strong></td>
<td><strong>SPORTSDIREKTØR:</strong></td>
<td><strong>BY:</strong></td>
</tr>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"cycling.mdb\")
Conn.Open DSN


strSQL = \"Select * From tblTilmeldteHold Order by holdnavn \"

Set rs = Conn.Execute(strSQL)

Do

  Response.Write \"<tr>\"
  Response.Write \"<td>\" & rs(\"Holdnavn\") & \"</td>\"
  Response.Write \"<td>\" & rs(\"navn\") & \"</td>\"
  Response.Write \"<td>\" & rs(\"bynavn\") & \"</td>\"
  Response.Write \"</tr>\"

  rs.MoveNext

Loop While Not rs.EOF

%>

</table>

<hr>
</table>
<TABLE BORDER=\"0\">
<TR>
<TD><a href=\"#top\">Til toppen</a></TD>
</TR>
</TABLE>
<hr>

</body>
</html>

Men excession fik mig på vej så point til dig:-)

Fomse
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
Kurser inden for grundlæggende programmering

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