Hello Vide,
Hittade själv inget sådant som automatiskt räknade upp en counter.
Jag löste det så här (obs! förutsättningarna är din artikel på www.webeye.nu):
<html>
<head>
<title>Recordset utan databas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Const adUseClient = 3
Const adInteger = 3
Const adVarChar = 200
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.CursorLocation = 3 '## -- adUseClient --
.CursorType = 3
.LockType = 3
.Fields.Append "id", adInteger
.Fields.Append "name", adVarChar, 50
.Fields.Append "group", adInteger
.Open
End With
AddPerson "PatrikB", 1
AddPerson "jorgen", 1
AddPerson "Vide", 2
'## -- move to first record in recordset --
objRS.MoveFirst
Do Until objRS.EOF
Response.Write "ID: " & objRS(0) & "<BR>" & _
"Name: " & objRS(1) & "<BR>" & _
"Group: " & objRS(2) & "<BR><BR>"
objRS.MoveNext
Loop
Set objRS = Nothing
%>
</body>
</html>
<%
'## -- update recordset counter --
Function GetCounter(ByVal Recordset)
Dim intTempCounter
'## -- sort the recordset by counter field ascending --
Recordset.Sort = "id ASC"
'## -- check if recordset contain any records --
If Not Recordset.EOF Then
'## -- records found. move to last record to get last counter --
Recordset.MoveLast
'## -- count up the recordsetcounter by one --
intTempCounter = Recordset(0) + 1
Else
intTempCounter = 1
End If
'## -- return new counter value --
GetCounter = intTempCounter
End Function
'## -- add new posts/records to recordset --
Sub AddPerson(ByVal Name, ByVal GroupID)
Dim intCounter
'## -- get new counter value for unique id --
intCounter = GetCounter(objRS)
'## -- check if recordset contain any records --
If Not objRS.EOF Then
'## -- records found. move to last recordset before adding new records --
objRS.MoveLast
End If
'## -- start of adding new records to recordset --
objRS.AddNew
objRS(0) = intCounter
objRS(1) = Name
objRS(2) = GroupID
objRS.Update '## -- update recordset with new records --
End Sub
%>
Byggde mig en funktion som kollade högsta id och sedan returnerade högsta id + 1.
Återkom om du hittar ett värde man kan sätta för att öka countern automatiskt ... blir ju trots allt smidigare i längden *ler*
cya,
PatrikB
------------------
*ordning och reda!, pengar på fredag.*
[Redigerat av PatrikB den 20 sep 2001]