thesurfer -> Du får da begge dele ;o))
<%
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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body >
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("jerg.mdb")
strUpdate = "UPDATE anm SET visninger = visninger + 1 WHERE id = "& request.querystring("rid") &""
Conn.Execute(strUpdate)%>
<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"><%=rs("kategori")%></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"> </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" bgcolor="#E4E4E4" class="ramme">
<div align="left">
<%
'Så kan du checke om "t" er "butik" eller "grej":
dim t
t = LCase(request.querystring("t"))
' LCase betyder at den skal check småbogstaver, da der er forskel på butik, buTIK, BUtik, osv..
Select Case t
case "grejbutik"
' udfør kode der har med "butik" at gøre
response.write "<div align='left'>"
response.write"<table width=100% border=0 bgcolor=#E4E4E4 cellpadding=8 >"
response.write"<tr>"
response.write"<td>"
response.write"<b> </b>"
response.write"</td>"
response.write"<td>"
response.write " "
response.write"</td>"
response.write"<td >"
response.write "<font size=2>" & "læst:" & " " & rs("visninger") & " </font> "
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Indsendt af:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("navn") & " " & rs("dato")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Butik:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("butik")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> By:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("by")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Hjemmeside:</b>"
response.write"</td>"
response.write"<td>"
Response.write "<a href=" & rs("url") & " target='_blank'" & ">Besøg siden</a>"
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Faglig ekspertise:</b>"
response.write"</td>"
response.write"<td>"
for i = 1 to CInt(rs("faglig"))
response.write "<img src=""orange.gif"">"
next
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Kundeservice:</b>"
response.write"</td>"
response.write"<td>"
for i = 1 to CInt(rs("kunde"))
response.write "<img src=""orange.gif"">"
next
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Udvalg:</b>"
response.write"</td>"
response.write"<td>"
for i = 1 to CInt(rs("udvalg"))
response.write "<img src=""orange.gif"">"
next
response.write"</td>"
response.write"<tr>"
response.write"<td valign=top>"
response.write"<b> Bemærkning:</b>"
response.write"</td>"
response.write"<td>"
response.write Replace(rs("beskrivelse"),vbCrLf,"<br>")
response.write"</td>"
response.write "</table>"
response.write "</div>"
case else
' udfør kode der har med "butik" at gøre
response.write "<div align='left'>"
response.write"<table width=80% border=0 bgcolor=#E4E4E4 cellpadding=8 >"
response.write"<tr>"
response.write"<td>"
response.write"<b> </b>"
response.write"</td>"
response.write"<td>"
response.write " "
response.write"</td>"
response.write"<td>"
response.write "<font size=2>" & "læst:" & " " & rs("visninger") & " </font> "
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Produkt:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("produkt")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Indsendt af:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("navn") & " " & rs("dato")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Anslået antal ture:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("ture")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Karakter:</b>"
response.write"</td>"
response.write"<td>"
for i = 1 to CInt(rs("karakter"))
response.write "<img src=""orange.gif"">"
next
response.write"</td>"
response.write"<tr>"
response.write"<td valign=top>"
response.write"<b> Bedømmelse:</b>"
response.write"</td>"
response.write"<td>"
response.write Replace(rs("beskrivelse"),vbCrLf,"<br>")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> Pris:</b>"
response.write"</td>"
response.write"<td>"
response.write rs("pris")
response.write"</td>"
response.write"<tr>"
response.write"<td>"
response.write"<b> </b>"
response.write"</td>"
response.write"<td>"
billed_url = rs("url")
if billed_url<>"" then
Response.write "<br>" & "<br>" & "<img src='" & billed_url & "'"
end if
response.write"</td>"
response.write "</table>"
response.write "</div>"
end select
%>
</div></td>
</tr>
</table>
<div align="center"><br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <p align="center"><strong><font size="5"><u>Kommentar :</u></font></strong></p>
<p align="center"> </p>
<p align="center"> </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
dim kategori
kategori = rs("kategori")
%>
<b>Dato:</b> <%=RS("kommendato")%><br>
<b>Indsendt af:</b> <%=RS("kommennavn")%><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="poptop.asp?mode=new&rid=<%=request.querystring("rid")%>&t=<%=request.querystring("t")%>" 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 (kommennavn,besked,kategori,kommendato) VALUES('" & navn & "','" & besked & "'," & kategori & ",'" & day(now) & "-" & month(now) & "-" & year(now) & "' )"
Conn.Execute(strSQL)
'og så lige lidt orden, måske ;)
conn.close
set conn=nothing
'og SÅ:
response.redirect "poptop.asp?rid="&request.querystring("rid")& "&t=" & request("t") End If
End If
Set Conn = Nothing
%>
</td>
</tr>
</table>
</div>
</td>
</tr>
</body>
</html>
