Hej!
Vad är det som är fel i koden?
Får ett felmeddelande som säger att det är för få parametrar!
koden är följande:
<html>
<head>
<title></title>
</head>
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\links.mdb"
sqlstmt = "SELECT * FROM links ORDER BY id ASC"
Set rs = conn.Execute(sqlstmt)
%>
<%
Sub showrs(rs)
Dim mColumn, mValue
If NOT rs.EOF Then
Response.Write "<table border=""0""><tr>"
For each mColumn IN rs.Fields
Response.Write "<td><b>" & column.name & "</b></td>"
Next
Response.Write "</tr>"
Do until rs.EOF
Response.Write "<tr>"
For each mColumn in rs.fields
mValue = mColumn.value
If isnull(mValue) Then
mValue = "<NULL>"
End If
If Trim(mValue) = "" Then
mValue = " "
End If
Response.Write "<td valign=""top"">" & mValue & "</td>"
Next
Response.Write "</tr>"
rs.MoveNext
Loop
Response.Write "</table>"
End If
End Sub
%>
</body>
</html>
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\links.mdb"
SQL = "SELECT * FROM links ORDER BY id Desc"
Set rs = Databas.Execute(SQL)
