DB + link
Når jeg får udskrevet hvad jeg har i DB'en kunne jeg godt tænke mig at få lavet en "extra" kolonne, hvor der skal stå "SLET".Har følgende kode, men aner ikke lige hvor jeg skal sætte det ind henne, da det jo ikke skal være en post i DB'en.
SLET skal være et link, som går til siden "sletpost.asp", hvor posten i DB'en bliver slettet med ... request.querystring(id)
..........................................................
<%@ Language=VBScript %>
<html>
<head>
<title>Sound Of Memphis</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css"><!--
a:hover { font-family: Arial, Helvetica, sans-serif; font-size: 10pt; font-weight: bold; color: #CCCCCC; text-decoration: none}
-->
</style>
<link rel="stylesheet" href="style.css"></head>
<body >
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<p align=center> TEST! </p>
<%
dim objConn, oRS, SQL
Set objConn = Server.CreateObject("ADODB.Connection")
'--oprette recordset
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("spilletider.mdb")
Set oRS = Server.CreateObject("ADODB.Connection")
'--Åbne recordset
set oRS = objConn.Execute("SELECT * FROM spilletider order by spilletid")
'--Udskriv poster
'udskriv krop (feltpost)
j=0
Do While Not oRS.EOF
j=j+1
if(j mod 2)=0 then
Response.Write "<tr bgColor=#F8F8FF>"
else Response.Write "<tr bgColor=#E8E8E8>"
End if
For i = 0 to oRS.Fields.Count - 1
Response.Write "<td><font face=arial size=2>" & oRS.fields.item(i).value & "</font></td>"
Next
oRS.MoveNext
Response.Write "</tr>"
Loop
oRS.Close
Set oRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
........................................................
Mvh
Thomas
