tilføj endnu et felt fra databasen tak
Har denne kode som jeg vil tilføje et ekstra felt på.<%
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1
%>
<html>
<head>
<link rel="stylesheet" href="/css/general.css">
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
</head>
<body text="#FFFFFF" link="#000000" vlink="#FFFFFF" alink="#FFFFFF" background="gfx/bg.gif">
De 15 sidste tilmeldte:
<table width="100%" border="1" cellpadding="1" bordercolor="#FFFFFF" align="center"><div align="center">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
' SQL forespørgsel
strsql="SELECT TOP 15 * FROM firma ORDER BY ID desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
counter=0
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
' Udskriv værdien af kolonnen
notatfelt = rs("lokalt")
click = rs("klik")
'start farver
counter = counter + 1
if counter = 2 then
counter = 0
end if
if counter = 0 then
color="#000000"
else
color="#666666"
end if
' slut farver
Response.write("<tr align=""center""><td bgcolor='" & color & "' align=""center"">")
Response.write("<a href=""" & notatfelt & """ target=""main"">" & rs("firma") & " </td></tr>")
Response.write("</td></tr>")
' Gå til næste Record i rs
rs.MoveNext
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></div>
</table>
</body>
</html>
MEN den brokker sig konstant når jeg vil smide endnu en kolonne på..
