Spørgsmål.....

select count(bannerord) as found from tabel where bannerord = \'gris\'

det virker ikke!

det er et tal jeg skal bruge (hvor mange gange gris står i kolonnen banneord)

set rs = conn.execute(\"select count(banneord) as antal from dintabel where banneord = \'gris\'\")

response.write rs(\"antal\")

<% select count(bannerord) as found from tabel where bannerord = \'gris\' %>

Mangler responsen *g*

netsrac>> den finder denne fejl:

The Microsoft Jet database engine cannot find the input table or query \'dintabel\'. Make sure it exists and that its name is spelled correctly.

darkzero >> Det er fordi du skal udskifte dintabel med navnet på din tabel :-)

ohhhh =)

netsrac>> nu siger den dette:

Too few parameters. Expected 1

glem det

Hele fejlkoden og hele din kode ?

nu tæller den hvor mange gange gris kommer... men den får resten af det den skal hente fra databasen til at gå i lort!

den siger dette:

ADODB.Recordset error \'800a0cc1\'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/sescript.asp, line 22

Hele din kode ?

<p><%
\'Connection til databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"script.mdb\")
strSQL = \"select * from messages ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)
set rs = conn.execute(\"select count(type) as antal from messages where type = \'ASP\'\")

response.write rs(\"antal\")
%>
<%
if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er ingen indlæg i databasen, men skynd dig og skriv et som den første ;-)</font>\"
else
Do Until rs.EOF
%>

<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\"><b><a href=\"scriptinfo.asp?id=<%=RS(\"id\")%>\"><%=RS(\"Script\")%></b></td>
</center>
<td width=\"50%\"><p align=\"right\">Af:&nbsp;<%
If rs(\"email\") = \"ingen\" then %>

<% Else %><a href=\"mailto:<%=RS(\"email\")%>\"><% end if %><%=RS(\"name\")%></td>
</tr>
</table>
</div>


<%RS.MoveNext
loop
end if

Conn.Close
Set Conn = Nothing%>
</center>

<p><%
\'Connection til databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"script.mdb\")
strSQL = \"select * from messages ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)
set rs2 = conn.execute(\"select count(type) as antal from messages where type = \'ASP\'\")

response.write rs2(\"antal\")
%>
<%
if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er ingen indlæg i databasen, men skynd dig og skriv et som den første ;-)</font>\"
else
Do Until rs.EOF
%>

<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\"><b><a href=\"scriptinfo.asp?id=<%=RS(\"id\")%>\"><%=RS(\"Script\")%></b></td>
</center>
<td width=\"50%\"><p align=\"right\">Af:&nbsp;<%
If rs(\"email\") = \"ingen\" then %>

<% Else %><a href=\"mailto:<%=RS(\"email\")%>\"><% end if %><%=RS(\"name\")%></td>
</tr>
</table>
</div>


<%RS.MoveNext
loop
end if

Conn.Close
Set Conn = Nothing%>
</center>