Hej, när jag försöker skapa en tabell med getstring blir det fel. Här kommer lite kod:
strGetString = rs.GetString(adClipString, , "</TD>" & VbCrLf & "<TD>", "</TD>" & VbCrLf & "</TR>" & VbCrLf & VbCrLf & "<TR>" & VbCrLf & "<TD>", "Null")

Problemet ligger i slutet av tabellen. Den ser ut så här:
-----------------
<TD>2001-04-08</TD>
</TR>

<TR>
<TD></TABLE>
-----------------

Här kommer all kod:

----------------------
<%
' *************************************
' * MM MM AA RRR K K U U SSSS *
' * M M M M A A R R K K U U S *
' * M M M AAAA RRR KK U U SS *
' * M M A A R R K K U U S *
' * M M A A R R K K UUU SSSS *
' *************************************

Option Explicit 'Deklarera alla variabler

Dim rs 'Recordset objekt.
Dim strConn 'Connection strängen
Dim intSida 'Vilka sida som ska hämtas från databasen, värdet hämtas från request.form("sida")
Dim intRec 'Räknare i loop
Dim tid1 'Tid 1 för tidtagning av körningen
Dim tid2 'Tid 2 för tidtagning av körningen
Dim cntfield 'Räknare i loop
Dim strTabell 'Tabell eller SQL-sträng, fast då måste adCmdText eller adCmdTable ändras.
Dim i 'Räknare i loop
Dim strScriptName 'exempel: default.asp
Dim strGetString 'Hela innehållet i tabellen.
tid1 = timer()

'Lägg till alla ado-konstanter från en includefil
%>
<!-- #INCLUDE FILE="adovbs.inc" -->
<%

'Lägg till lite värden
strScriptName = Request.ServerVariables("SCRIPT_NAME")
strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\inetpub\wwwroot\vjk\databas.mdb"
intSida = Request.QueryString("sida")
strTabell = "inlagg"

'Skapa recordset och ställ in lite inställningar
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 10 'Antalet poster som visas på varje sida
rs.Cachesize = 10 'Antalet poster som läses in i chacheminet per gång.
rs.Sort = "id DESC" 'Det högst id-värdet kommer först.
rs.CursorLocation = adUseClient
rs.open strTabell, strConn, adOpenForwardOnly, adLockReadOnly, adCmdTable

'Kolla om värdet på request.form("sida") är giltligt, annars ändrar den det.
If len(intSida) Then
If IsNumeric(intSida) Then
If CInt(intSida) < 1 Then intSida = 1
If CInt(intSida) > rs.PageCount Then intSida = rs.PageCount
Else
intSida = 1
End If
Else
intSida = 1
End If

rs.AbsolutePage = intSida 'Den sidan som ska hämtas
intSida = rs.AbsolutePage 'För över värdet till intSida eftersom det kommer att ändras i rs.AbsolutePage

'Skicka ut början av tabellen
Response.Write "<TABLE border=""1"">" & VbCrLf & VbCrLf & "<CAPTION>" & _
"<FONT face=""Arial"" size=""5"">" & strTabell & "</FONT>" & _
"</CAPTION>" & VbCrLf & VbCrLf & "<TR>" & VbCrLf

'Skriv ut namnet på alla fälten
For each cntfield In rs.Fields
Response.Write "<TH>" & cntfield.Name & "</TH>" & VbCrLf
Next
response.write "</TR>" & VbCrLf & VbCrLf & "<TR>" & VbCrLf & "<TD>"
strGetString = rs.GetString(adClipString, , "</TD>" & VbCrLf & "<TD>", "</TD>" & VbCrLf & "</TR>" & VbCrLf & VbCrLf & "<TR>" & VbCrLf & "<TD>", "Null")
response.write strGetString
'Sluta tabellraden

'Skriv ut alla värden på fälten
'For intRec = 1 to rs.PageSize
' If not rs.EOF Then 'Om rs.EOF finns det ingen post som kan hämtas
' Response.write "<TR>" & VbCrLf
' For each cntfield in rs.Fields
' Response.write "<TD>" & cntfield.Value & "</TD>" & VbCrLf
' Next
' Response.write "</TR>" & VbCrLf & VbCrLf
' rs.MoveNext
' End If
'Next

'Avsluta tabellen
Response.Write "</TABLE>" & VbCrLf & VbCrLf & "["

'Länka alla till alla sidor
For i = 1 to rs.pagecount
Response.write " & "?sida=" & i & """>" & i & " "
Next

'Skriv ut antalet sidor och poster samt aktuell sida.
Response.write "]" & VBCrLf & "Sida " & intSida & " av " & rs.PageCount & _
". Totalt " & rs.RecordCount & "st poster." & VbCrLf

'Stäng recordsetet och sopa upp.
rs.Close
Set rs = Nothing

'Ta tiden när alla är klart och beräkna skillnaden.
tid2 = timer()
Response.Write "<BR>Det tog " & abs(tid1-tid2) & " sekunder att köra sidan."
%>

adClipString har ett värde av 2. Du verkar inte definera den eller använda adovbs.inc så då skickar du in 0 istället.

Skriv därför: Const adClipString = 2

/Pelle