Hits/counter !
For at sige det lige ud, er jeg en tumpe til ASP, men med hjælp fra Ekspertens Bruger har jeg fået stablet en anmeldelse sektion op (demo http://www.web-byggeren.dk/eksperten/anmeldelse.asp ).Men for at fuldende sektionen, kunne jeg godt bruge en hits der viser hvor mange gange de forskellige anmeldelser er læst og hvor mange kommentarer der er under hver anmeldelse !!!
I min database har jeg to tabeller :
Anm (id, navn, produkt, karakter, beskrivelse, kategori, pris, dato, mail)
kommen (id, navn, besked, kategori)
Her er min anmeldelse side
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Grej Anmeldelse !</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.unnamed1 {
font-family: Verdana;
font-size: 11px;
font-weight: normal;
color: #FF0000;
padding-left: 10px;
}
-->
</style>
<style type="text/css">
<!--
a:link {
color: #0000CC;
}
a:visited {
color: #0000CC;
}
.box {
background-color: #E4E4E4;
border: 1px dotted #333333;
}
-->
</style>
<style type="text/css">
<!--
a:hover {
text-decoration: none;
}
.tal {
color: #FF0000;
}
.ramme {
border: 1px dotted #333333;
}
-->
</style>
</head>
<body >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"> <h3 align="center"><font color="#0000CC">Anmeldelse af fiskeartikler
!</font> </h3></td>
</tr>
<tr>
<td> </td>
<td valign="top"><div align="center"><br>
<br>
</div></td>
</tr>
<tr>
<td width="69%"> <table width="99%" border="0" align="left" cellpadding="10" cellspacing="0">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("jerg.mdb")
Conn.Open DSN%>
<tr>
<td colspan="2" class="unnamed1"> <div align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50"><img src="/images/anmeldelse/trigger.jpg" alt="Stænger" width="50" height="50"></td>
<td width="688" class="unnamed1"> <a href="/anmeldelse/fluest1.asp">FlueStænger
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Fluestænger'"
Set Rs = Conn.Execute(Sql)
Response.Write "<color=#0000CC>" & rs("Total")%>
<font color="#0000CC">) -</font> <a href="/anmeldelse/spinst1.asp">SpinneStænger
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Spinnestænger'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
- </font><a href="/anmeldelse/havst1.asp">HavStænger
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Havstænger'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/andrest1.asp">Andet </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Andre stænger'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%> <font color="#0000CC">)</font></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td colspan="2" class="unnamed1"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50"><img src="/images/anmeldelse/multi.jpg" alt="Hjul" width="50" height="50"></td>
<td width="688" class="unnamed1"> <div align="left"><a href="/anmeldelse/fluehjul1.asp">FlueHjul
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Fluehjul'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">) -</font> <a href="/anmeldelse/spinhjul1.asp">FastspoleHjul
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Fastspolehjul'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">) -</font> <a href="/anmeldelse/multihjul1.asp">MultiplikatorHjul
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Multiplikatorhjul'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">) -</font> <a href="/anmeldelse/andrehjul1.asp">Andet
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Andre hjul'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)</font></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" class="unnamed1"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50"><img src="/images/anmeldelse/saet.jpg" alt="Fiskesæt" width="50" height="50"></td>
<td width="688" class="unnamed1"><a href="/anmeldelse/fluesaet1.asp">FlueSæt
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Fluesæt'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/kystsaet1.asp">KystSæt </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Kystsæt'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
- </font><a href="/anmeldelse/havsaet1.asp">HavSæt </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Havsæt'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/andresaet1.asp">Andre </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Andre sæt'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)</font></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" class="unnamed1"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="5%"><img src="/images/anmeldelse/endegrej.jpg" alt="Endegrej" width="50" height="50"></td>
<td width="95%" class="unnamed1"><a href="/anmeldelse/fluer1.asp">Fluer
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Fluer'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/kyst1.asp">Kyst</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Kyst endegrej'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/hav1.asp">Hav </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Hav endegrej'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/mede1.asp">Mede </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Mede'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)</font>
<font color="#0000CC">-</font> <a href="/anmeldelse/andetende1.asp">Andet</a>
<font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='andet endegrej'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)</font>
</td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" class="unnamed1"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"><img src="/images/anmeldelse/bekaeldning.jpg" alt="Beklædning" width="50" height="50"></td>
<td width="94%" class="unnamed1"><a href="/eksperten/waders1.asp">Waders
</a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='waders'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/Lystfiskergordetselv/anmeldelse/vadestoevler1.asp">Vadestøvler </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='vadestøvler'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%> <font color="#0000CC">)
-</font> <a href="/anmeldelse/vadejakke1.asp">Vadejakke </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='vadejakke'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%> <font color="#0000CC">)
-</font> <a href="/anmeldelse/beklaedningandet1.asp">Andet </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Andre beklædningsdele'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)</font></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" class="unnamed1"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="7%"><img src="/images/anmeldelse/diverse.jpg" alt="Diverse" width="50" height="50"></td>
<td width="93%" class="unnamed1"> <a href="/anmeldelse/boeger1.asp">Bøger
</a><font color="#0000CC">(</font> <%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='bøger'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total") %>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/video1.asp">Video/DVD </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Video/DVD'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
-</font> <a href="/anmeldelse/divandet1.asp">Andet </a><font color="#0000CC">(</font>
<%
Sql = "SELECT COUNT (Id) AS Total From anm WHERE kategori ='Diverse'"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Total")%>
<font color="#0000CC">)
</font></td>
</tr>
</table></td>
</tr>
<tr>
<%Conn.Close
Set Conn = Nothing%>
<td colspan="2" class="unnamed1"><font size="3"><strong>Det er kun Waders
og 5 seneste anmeldelser linke der virker i demoen </strong></font></td>
</tr>
<tr>
<td width="54%"><font size="2" face="Verdana">Ønsker du at bedømme
grej - så tryk <a href="/Lystfiskergordetselv/anmeldelse/formular_grej.asp">HER</a></font></td>
<td width="46%"> </td>
</tr>
</table></td>
<td width="31%" valign="top">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("jerg.mdb")
str_sql2 = "SELECT TOP 5 * FROM anm ORDER BY id desc"
Set rs = Conn.Execute (str_sql2)
%>
<p align="center"> <font face="Courier New, Courier, mono" size="3">
<%
if rs.EOF then
%>
<span class="overskrift"><font color="#0000CC"><b>Ingen anmeldelser endnu!
</b></font> </span>
<%
else
%>
</font></p>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E4E4E4" class="ramme">
<tr>
<td><table width="100%" height="8" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#E4E4E4">
<tr>
<td width="82%" valign="top"> <div align="center">
<h5><font color="#0000CC"><b>5 seneste anmeldelser</b></font></h5>
</div></td>
</tr>
<%
Do Until rs.EOF
%>
<tr bgcolor="#E5E5E5">
<td width="82%" bgcolor="#E4E4E4"><font size="-7" face="Verdana">
<a href="/eksperten/poptop.asp?rid=<%= rs("id") %>">
<strong>
<% = rs("kategori") %>
</strong><br>
indsat af
<% = rs("navn") %>
den
<% = rs("dato") %>
</a> </font></td>
</tr>
<%
rs.MoveNext
Loop
%>
<p></p>
</table></td>
</tr>
</table>
<p><font face="Courier New, Courier, mono" size="3"> </font></p>
<div align="center"> </div>
<font face="Courier New, Courier, mono" size="2">
<% end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
</font></td>
</tr>
</table>
<p> </p>
<h3 align="center"> </h3>
</body>
</html>
------------- O ---------------
Her er min visningside :
<%
dim mode, id
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("jerg.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
id = Request("rid")
%>
<html>
<head>
<title></title>
<style type="text/css">
<!--
.ramme {
border: 1px solid #333333;
}
-->
</style>
<style type="text/css">
<!--
body {
margin: 0px;
padding: 0px;
}
-->
</style>
<style type="text/css">
<!--
a:link {
font-weight: bold;
color: #0000CC;
}
a:visited {
font-weight: bold;
color: #0000CC;
}
a:hover {
font-weight: bold;
text-decoration: none;
color: #0000CC;
}
a:active {
font-weight: bold;
color: #0000CC;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body onload="parent.document.getElementById('indhold').style.height=((document.body.scrollHeight)?document.body.scrollHeight:document.body.offsetHeight)+'px'">
<div align="center"> <font face="Courier New, Courier, mono" size="2"> </font></div>
<font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font>
<tr>
<td valign="top" >
<% strSQL = "SELECT * From anm where id = " & id
Set rs = myConn.Execute(strSQL)
%>
</font></p>
<table width="80%" border="0" align="center" valign="top" cellpadding="4" cellspacing="4">
<tr>
<td height="6">
<div align="center">
<h3><font color="#0000CC">Waders</font></h3>
<br>
</div></td>
</tr>
<tr>
<td height="6" bordercolor="#000000"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="java script:history.go(-1)">< Tilbage</a></td>
<td><div align="center"><a href="/eksperten/formular_grej.asp">Opret
ny anmeldelse</a></div></td>
<td><div align="right"><a href="/anmeldelse.asp"><<
Index</a></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="16" bordercolor="#000000"><table width="100%" border="0" align="center" cellpadding="8" cellspacing="0" bordercolor="#333333" class="ramme">
<tr bgcolor="#E4E4E4">
<td width="158" height="28"><font size="3"><strong>Produkt:</strong></font></td>
<td height="28"><font size="3"><%=rs("produkt")%></font></td>
</tr>
<tr bgcolor="#E4E4E4">
<td width="158" height="28"><font size="3"><strong>Indsendt af :</strong></font></td>
<td height="28"><font size="3"><%=rs("navn")%> <%=rs("dato")%></font></td>
</tr>
<tr bgcolor="#E4E4E4">
<td height="28"><strong>Anslået antal testture :</strong></td>
<td height="28"><%=rs("ture")%> </td>
</tr>
<tr bgcolor="#E4E4E4">
<td width="158" height="28"><font size="3"><strong>Karakter :</strong></font></td>
<td height="28"> <font size="3">
<%
for i = 1 to CInt(rs("karakter"))
response.write "<img src=""orange.gif"">"
next
%>
</font></td>
</tr>
<tr bgcolor="#E4E4E4">
<td width="158" height="28" valign="top" ><font size="3"><strong>Bedømmelse
:</strong></font></td>
<td height="28"><font size="3"><%= Replace(rs("beskrivelse"),vbCrLf,"<br>") %> </font></td>
</tr>
<tr bgcolor="#E4E4E4">
<td height="27" width="158"> <div align="left"><font size="3"><strong>Pris
:</strong></font></div></td>
<td height="27" width="623"> <div align="left"><font size="3"><%=rs("pris")%></font></div></td>
</tr>
<tr>
<td height="27" colspan="2" bgcolor="#E4E4E4"><font size="3"><br>
<br>
<% billed_url = rs("url")
if billed_url<>"" then
Response.write "<br>" & "<br>" & "<img src='" & billed_url & "'"
end if
%>
</font></td>
</tr>
</table></td>
</tr>
</table>
<div align="center"><br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p align="center"><strong>Kommentar :</strong></p>
<p>
<%' HER ER VISNING SIDEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("jerg.mdb")
strSQL = "Select * from kommen where kategori="&request.querystring("rid")
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write ""
else
Do Until rs.EOF
%>
<b>Indsendt af:</b> <%=RS("navn")%><br>
<b>Kommentar:</b> <%=RS("besked")%><br></p>
</p>
<hr align="left">
<div align="left"><br>
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
</div></td>
</tr>
<tr>
<td>
<form action="/kom2.asp?mode=new&rid=<%=request.querystring("rid")%>" method="post">
<p>Tilføj en kommentar : </p>
<p><b>Navn:</b><br>
<input type='text' name='navn' size='25'>
<br>
<b>Kommentar:</b><br>
<textarea cols="37" rows="6" name="besked"></textarea>
<br>
<br>
<input type="submit" value="Tilføj">
</p>
</form>
<%' HER ER FORMSIDEN
DBPATH = "DBQ=" & Server.MapPath("jerg.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBPATH
If Request.QueryString("mode") = "new" Then
navn = Request.Form("navn")
besked1 = Request.Form("besked")
besked1 = Replace(besked1, "'", "''")
besked1 = Replace(besked1, vbCrLf, "<br>")
besked = besked1
kategori=request.querystring("rid")
If navn="" Or besked="" then
Response.Write "<b>Du skal udfylde alle felter!</b>"
Else
strSQL="INSERT INTO kommen (navn,besked,kategori) VALUES('" & navn & "','" & besked & "'," & kategori & ")"
Conn.Execute(strSQL)
'og så lige lidt orden, måske ;)
conn.close
set conn=nothing
'og SÅ:
response.redirect "kom2.asp?rid="&request.querystring("rid")
End If
End If
Set Conn = Nothing
%>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</dd>
<dt> </dt>
</dl>
<br>
</body>
</html>
Jeg håber ikke det er en for stor mund fuld
