Hvis der ingen tilmeldinger er!!
Jeg har en konkurrence hvor man skal tilmelde et hold, og derefter en liste hvor man kan se alle hold!Men vis der ikk eer nogen hold viser den en fejl!
Hvordan får jeg den til at skrive "Ingen hold tilmeldt iøjeblikket"?
Koden:
<html>
<title>Tilmeldte hold</title><a name="top" /a>
<head>
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="http://www.fomsgaard.com/ccc/ccc2001.css">
</head>
<body topmargin="20" leftmargin="30">
<table>
<tr>
<td><a href="#" onClick="history.back(); return false;" onFocus="this.blur()">
Tilbage</a></td>
<td><a href="#" onClick="history.forward(); return false;" onFocus="this.blur()">Frem</a></td>
</tr>
</table>
<h1 align="center"><font color="#0000FF" face="Impact"><strong>STILLINGEN</strong></font></h1>
<hr>
Det er på denne side du kan følge dit og andres hold.<br>
Vælg på listen herunder det hold du gerne vil se og tryk VIS.
<%
' 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>Følgende <strong><font color=""#ff0000"">" & rs("Antal") & "</font></strong> hold er tilmeldt:</p>"
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
<%
DBConnLogin = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cycling.mdb")
set connect = server.createobject("ADODB.connection")
Connect.Open DBConnLogin
Query = "SELECT pID, holdnavn FROM tblTilmeldteHold Order by holdnavn"
Set RSAlleHold = Server.CreateObject("ADODB.RecordSet")
RSAlleHold.open Query, Connect
%>
<form action="visHold2.asp" method="post" name="form3">
<select name="allehold">
<option selected>Vælg hold</option>
<%
Do until RSAlleHold.EOF
Response.Write " <option value=""" & RSAlleHold(0) & """>" & RSAlleHold(1) & "</option>"
RSAlleHold.Movenext
Loop
%>
</select>
<input type="Submit" value="VIS">
</form>
<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>
Fomse:-)
