06. november 2001 - 00:19
Der er
4 kommentarer og 1 løsning
Tælle sammen?
Jeg har følgende recordset: <% 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 navn \" 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 Conn.Close Set Conn = Nothing %> Kan man tælle sammen hvormange der er? Altså hvormange holdnavne fx. Fomse:-)
Annonceindlæg fra Cognizant
06. november 2001 - 00:22
#1
<% 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 navn \" 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 %>
06. november 2001 - 00:26
#2
Kan nu også gøres en del nemmere med følgende: <% Set Conn = Server.CreateObject(\"ADODB.Connection\") DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \" DSN = DSN & \"DBQ=\" & Server.MapPath (\"cycling.mdb\") Conn.Open DSN strSQL = \"Select Count(*) As HoldAntal From tblTilmeldteHold\" Set rs = Conn.Execute(strSQL) response.write rs(\"HoldAntal\") Conn.Close Set Conn = Nothing %>