Hej Kalp !
For at vi ikke skal misforstå hinanden, prøver jeg at forklare hvad jeg mener!!!
På denne her side
http://www.web-byggeren.dk/eksperten/top5.asp skal jeg kunne vise, antal hits og kommentar der er hver anmeldelse
<%
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)
%>
</font>
<p> <font face="Courier New, Courier, mono" size="3">
<%
if rs.EOF then
%>
<span class="overskrift"><font color="#FF0000"><b>Ingen anmeldelser
endnu! </b></font> </span>
<%
else
%>
</font></p>
<div align="center">
<table height="8" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000" width="700">
<tr bgcolor="#CCCCCC">
<td width="82%">
<div align="center"><font face="Courier New, Courier, mono" size="3" color="#333333"><b>Seneste
anmeldelse</b></font></div>
</td>
</tr>
<%
Do Until rs.EOF
%>
<tr bgcolor="#E5E5E5">
<td width="82%"><font face="Courier New, Courier, mono" size="3">
<a href="/Lystfiskergordetselv/anmeldelse/boeger3.asp?rid=<%= rs("id") %>">
<% = rs("produkt") %> skrevet af <% = rs("navn") %>
</a> </font></td>
</tr>
<%
rs.MoveNext
Loop
%>
<p></p>
</table>
</div>
<font face="Courier New, Courier, mono" size="2">
<% end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
Her har du siden
http://www.web-byggeren.dk/eksperten/kom2.asp?rid=8, hvor man indtaster kommentaren
<%
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">Andet endegrej</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="/Lystfiskergordetselv/anmeldelse/formular_grej.asp">Opret ny anmeldelse</a></div></td>
<td><div align="right"><a href="/anmeldelse/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="100" 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="100" 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 width="100" 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="100" 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="100">
<div align="left"><font size="3"><strong>Pris
:</strong></font></div></td>
<td height="27" width="652"> <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><%' 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>
<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, "xbr")
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>
I min database har jeg to tabeller :
Anm (id, navn, produkt, karakter, beskrivelse, kategori, pris, dato, mail)
kommen (id, navn, besked, kategori)
Da jeg "stod" på ryggen, fik jeg den ide, at kun ha' en tabel, men den gik ikke.....
Ny bruger
Nybegynder
Opret
Preview
