---
title: "Bygga eget recordset och lägga in information i det."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/91184-bygga-eget-recordset-och-lägga-in-information-i-det"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2003-11-24T23:03:10.000Z"
updated: "2003-11-27T12:50:11.000Z"
replies: 20
views: 472
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/91184-bygga-eget-recordset-och-lägga-in-information-i-det"
---

# Bygga eget recordset och lägga in information i det.

_Sida 1 av 2._

## #1 — Addeladde, 2003-11-24T23:03Z

Hej

Kan man bygga sig ett eget recordsett och lägga in information i det?

Har nämligen byggt en liten sökpryl som hämtar information från filer. Informationen skulle jag sedan vilja kunna sortera och kunna dela upp på flera sidor med hjälp av paging.

Information som jag ska lägga in i recordsett är:
titel
sokvag
beskrivning
filnamn
traffar

Går detta? Hur gör man i så fall? Kanske finns nån artikel på nätet?

Permalänk: https://www.webforum.nu/p/91184

## #2 — Jesper T, 2003-11-24T23:10Z

Menar du hårdkåda in poster eller?

Permalänk: https://www.webforum.nu/p/1213520

## #3 — SPiN, 2003-11-24T23:11Z

Visst går det.
Enkelt beskrivet:

```
set adoRS = Server.CreateObject( "ADODB.Recordset" )
adoRS.CursorLocation = adUseClient
adoRS.Append "titel", adVarChar, 75
adoRS.Append "beskrivning", adVarChar, 200
adoRS.Append "traffar", adInteger

adoRS.AddNew
adoRS( "titel" ) = "Min titel!"
adoRS( "beskrivning" ) = "En beskrivning för ingenting"
adoRS( "traffar" ) = 7
adoRS.Update

adoRS.Sort = "titel DESC"

Do Until adoRS.EOF
     Response.Write adoRS( "titel" )
     ...
     adoRS.MoveNext
Loop

set adoRS = Nothing
```

Typ.

Sen kan du använda filter, plus en massa smaskigt också.

Notera att det kan vara bra att ha adovbs-filen för att kunna använda konstanterna, och slippa alla siffror. :)

Sök på MSDN för mer information, jag tror även att Vide har skrivit något om detta på webeye.nu också.

Permalänk: https://www.webforum.nu/p/1213521

## #4 — Addeladde, 2003-11-24T23:13Z

Så här ser min kod ut just nu. Den skriver ut all data på skärmen men istället skulle jag vilja placera det i ett recordset.

```
For each objFile in colFiles
  If raknare <=50 Then
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFSO.OpenTextFile(application("driver")&application("rootFolder")&"\pages\"&objFile.name, 1)
      strSida = objTextStream.ReadAll
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing
 
    strSida = RemoveASP(strSida)
    titel   = hamtaTitel(strSida, objFile.name)
	strSida = RemoveStyle(strSida)
    strSida = RemoveJava(strSida)
    strSida = RemoveHTML(strSida)
  
    sokResultat = sok(strSida, sokfraga)
  
    If sokResultat <> "" Then
      Response.write titel&"<br><br>"&sokResultat&"<hr>"
      traffar = traffar + 1
    End If
  End If
  raknare = raknare + 1
Next
```

Alla variabler är inte med i den här koden som ska in i rs:et

Permalänk: https://www.webforum.nu/p/1213522

## #5 — Addeladde, 2003-11-24T23:17Z

Okej tack! Jag ska titta mer på detta imorgon kväll. Återkommer om det blir några problem.

Permalänk: https://www.webforum.nu/p/1213523

## #6 — solbulle, 2003-11-24T23:32Z

Det där har vi gjort tidigare...
Sökte lite o hittade tex denna: <http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=43378&highlight=recordset>
Mao finns det kod o hjälp hos Vide Webeye :)

Permalänk: https://www.webforum.nu/p/1213527

## #7 — Addeladde, 2003-11-25T17:07Z

Får:

> Feltyp:
> ADODB.Fields (0x800A0BB9)
> Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

På

```
'Skapa recordsettet som sokresultatet ska läggas in i
set adoRS = Server.CreateObject( "ADODB.Recordset" )
adoRS.CursorLocation = 3
[b]adoRS.Fields.Append "Id", adInteger[/b]
adoRS.Fields.Append "titel", adVarChar, 100
adoRS.Fields.Append "beskrivning", adVarChar, 350
adoRS.Fields.Append "traffar", adInteger
adoRS.Fields.Append "sokvag", adVarChar, 350
adoRS.Fields.Append "filnamn", adVarChar, 100
adoRS.Open
```

Permalänk: https://www.webforum.nu/p/1213773

## #8 — SPiN, 2003-11-25T17:10Z

```
adoRS.Append "Id", adInteger
```

Ska det vara. Alltså inget Fields. :)

Permalänk: https://www.webforum.nu/p/1213775

## #9 — Addeladde, 2003-11-25T17:23Z

> Objektet stöder inte egenskapen eller metoden.: 'adoRS.Append'

```
'Skapa recordsettet som sokresultatet ska läggas in i
set adoRS = Server.CreateObject( "ADODB.Recordset" )
adoRS.CursorLocation = 3
[b]adoRS.Append "Id", adInteger[/b]
adoRS.Append "titel", adVarChar, 100
adoRS.Append "beskrivning", adVarChar, 350
adoRS.Append "traffar", adInteger
adoRS.Append "sokvag", adVarChar, 350
adoRS.Append "filnamn", adVarChar, 100
adoRS.Open
```

Permalänk: https://www.webforum.nu/p/1213782

## #10 — niko, 2003-11-25T17:29Z

```
adoRS.Fields.Append "Id", adInteger
```

.. ska det nog vara. \<ledande fråga\>Var anger du värdena på "adInteger" osv ..?\</ledande fråga\>

Permalänk: https://www.webforum.nu/p/1213788

## #11 — SPiN, 2003-11-25T17:31Z

Nu måste jag tänka... Fields ska ju kanske visst vara med, eftersom att felmeddelandet säger att det är parameterfel.

Ta en titt på Vides <http://www.webeye.nu> istället, det var för länge sedan jag gjorde det här för att komma ihåg det på ett vettigt sätt. :)

Permalänk: https://www.webforum.nu/p/1213790

## #12 — Addeladde, 2003-11-25T17:34Z

Givetvis så tänkte jag ju inte på att inkludera adovbs filen

Permalänk: https://www.webforum.nu/p/1213792

## #13 — Addeladde, 2003-11-25T17:34Z

Verkar fungera klockrent nu. Antagligen kommer jag tillbaks med lite frågor angående lite avancerad sortering.

Permalänk: https://www.webforum.nu/p/1213793

## #14 — Addeladde, 2003-11-25T20:16Z

Kan man få paging och fungera med det här recorsetet?

Permalänk: https://www.webforum.nu/p/1213886

## #15 — @nders, 2003-11-25T20:21Z

Inte utan att mellanlagra det någonstans är jag rädd.

Permalänk: https://www.webforum.nu/p/1213887

## #16 — Addeladde, 2003-11-26T00:21Z

Kan man mellanlagra informationen på nått bra sätt som är resurssnålt och inte använder sig av en databas?

Permalänk: https://www.webforum.nu/p/1213960

## #17 — Vide, 2003-11-26T07:08Z

Sålänge posterna läggs till på samma sätt varje gång så är det inga problem att använda paging utan att mellanlagra.

Men, genom att t.ex använda en session kan du mellanlagra recordsettet.

Men kom ihåg att bara lagra i sessionen om fördelarna med detta överväger prestandan det tar att skapa recordsettet varje gång. ;)

Permalänk: https://www.webforum.nu/p/1213994

## #18 — Addeladde, 2003-11-26T12:36Z

Något exempel?

Har försökt men inte fått till det

Permalänk: https://www.webforum.nu/p/1214138

## #19 — Vide, 2003-11-26T12:46Z

Visa koden för hur du har försökt så kan vi utgå ifrån den.

Permalänk: https://www.webforum.nu/p/1214140

## #20 — Addeladde, 2003-11-26T15:28Z

Det är lite mycket kod:
Nu tog jag heller inte med funktionerna men det har inte så stor betydelse tror jag.

```
IF Not len(sSearchString) < 3 Then
'Skapa objektet för att kunna läsa och bläddra igenom filer
set objFS = server.createObject("Scripting.FileSystemObject")
set objFolderRoot = objFS.getFolder(application("driver")&application("rootFolder")&"\pages") 
set colFiles = objFolderRoot.Files

'Skapa recordsettet som sokresultatet ska läggas in i
set adoRS = Server.CreateObject( "ADODB.Recordset" )
adoRS.CursorLocation = 3
adoRS.Fields.Append "Id", adInteger
adoRS.Fields.Append "titel", adVarChar, 100
adoRS.Fields.Append "beskrivning", adVarChar, 350
adoRS.Fields.Append "antalOrd", adInteger
adoRS.Fields.Append "sokvag", adVarChar, 350
adoRS.Fields.Append "filnamn", adVarChar, 100
adoRS.Open

traffar = 0
raknare = 0

For each objFile in colFiles
 raknare = raknare + 1
 If pg = 1 Or raknare > start Then
  If raknare <=50 Then
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFSO.OpenTextFile(application("driver")&application("rootFolder")&"\pages\"&objFile.name, 1)
      strSida = objTextStream.ReadAll
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFSO = Nothing
 
    strSida = RemoveASP(strSida)
    titel   = hamtaTitel(strSida, objFile.name)
	strSida = RemoveStyle(strSida)
    strSida = RemoveJava(strSida)
    strSida = RemoveHTML(strSida)
    call sok(strSida, sSearchString, sokResultat, antalOrd)
	   
  
    If sokResultat <> "" Then
	  traffar = traffar + 1
	  'Lägg in resultatet i recordsetet
	  adoRS.AddNew
        adoRS( "id" ) = traffar
		adoRS( "titel" ) = titel
        adoRS( "beskrivning" ) = sokResultat
        adoRS( "antalOrd" ) = antalOrd
		adoRS( "sokvag") = application("httpadress")&"pages/"&objFile.name
		adoRS( "filnamn" ) = objFile.name
	  adoRS.Update
      
    End If
  End If
 End if
Next
						
Response.write "<span class=""mallFet"">Sökresultat</span><hr size=1 noshade>"

If traffar = 0 Then
  Response.Write "<span class=""vanligtext"">Din sökning - </span><span class=""mallFet"">" & sSearchString & "</span><span class=""vanligtext""> - matchade inte något dokument.</span><br><br>" &_
    "<span class=""mallFet"">Tips:</span><br>" &_
	"<span class=""vanligtext"">- Kontrollera att alla ord är rättstavade.<br>" &_
	"- Försök med andra sökord.<br>" &_
	"- Försök med mer allmänna sökord.<br>" &_
	"- Försök med färre sökord."
Else
  Response.write "<span class=""vanligtext"">Du sökte efter:</span><span class=""vanligtextFarg""> "& sSearchString&"</span>" 
  If traffar < 50 Then
    Response.write "<br><span class=""vanligtext"">Din sökning genererade: "& traffar  &" träffar.</span>"
  Else
    Response.write "<br><span class=""vanligtext"">Eftersom din sökning genrerade mer än 50 träffar så har vi begränsat din sökning till 50 träffar.</span>"
  End if
 
End If
response.write "<br>"

adoRS.Sort = "titel DESC"

'Vilka träffar som visas
Dim startTraff, slutTraff
startTraff = 1
Sluttraff = sidStorlek
If request("pg") = "" Then
  pg = 1
Else
  pg = cINT(request("pg"))
End If

If pg <> 1 Then
  slutTraff = sluttraff * pg
  startTraff = slutTraff - sidStorlek +1
End If
If pg = (FIX((adoRS.recordcount / sidStorlek))+1) OR adoRS.recordcount  < sidStorlek Then
  slutTraff = adoRS.recordcount 
End If
						
Response.write "<br><br>" &_ 
  "<table width=""100%"" cellspacing=""0"" cellpadding=""0"">" &_ 
	 "<tr>" &_ 
		"<td bgcolor=""#E8E8E8"" align=""right"" class=""vanligtext"">Visar träffar: "&startTraff&" - "&slutTraff&"</td>" &_ 
	  "</tr>" &_
  "</table><br>" &vbcrlf &_ 

						"<table width=""100%"" cellspacing=""0"" cellpadding=""0"">" 
						 While Not oRS.EOF   AND rowCount < sidStorlek
							rowCount = rowCount + 1

							
						   response.write "<tr>" &_ 
						   "<td valign=""top"" width=""25"" class=""vanligtext"">" 
						   typ = lcase(right(adoRS("filnamn"),3))
									select case typ
										case "pdf"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_pdf.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "ppt","pps"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_powerpoint.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "psd","eps"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_psd.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "doc"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_word.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "xls"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_excel.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "fla","swf"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_flash.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "wav","wma","mp3","mp2","avi","aIf","mov","mp1","mpa","peg","mpg",".ra"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_ljud.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "zip"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_zip.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "exe","bat"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_exe.gIf' width='16' height='16' alt='' border='0' align='left'>")	
										case "css"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_css.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "gIf","png","bmp"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_gIf.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "jpg"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_jpg.gIf' width='16' height='16' alt='' border='0' align='left'>")				
										case "mdb"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_access.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "htm","tml", "asp","asa","xml","hta","htc","stm",".js","xsd","xsl","slt","spx","jsp","jst","scx","cfm","fml","php","hp3","hp4"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_html.gIf' width='16' height='16' alt='' border='0' align='left'>")
										case "txt","rtf"
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_text.gIf' width='16' height='16' alt='' border='0' align='left'>")			 
										case Else
											response.write("<img src='"&application("httpAdress")&"systembilder/filhanterare/typ_unknown.gIf' width='16' height='16' alt='' border='0' align='left'>")			 
									end select
						  response.write "</td><td valign=""top"">"
					

						  response.write "<a  class=""soklank"" href="""& adoRS("sokvag")  &""">"&adoRS("titel") &"</a><br>"
						
						  Response.write  "<span class=""vanligtext"">"& adoRS("beskrivning") &"</span><br>"	  
						  response.write "<span class=""sokvag"">"& adoRS("sokvag") &"</span><br><br>"
						  response.write "</td><tr>"
						  
						  adoRS.MoveNext
						  Wend
						  response.write "</table>"
						  
						  
						If sidStorlek > 1 Then 
						If err.number = 0 Then
						Response.write "<br><br>" &_ 
						"<table width=""100%"" cellspacing=""0"" cellpadding=""0"">" &_ 
						  "<tr>" &_ 
							"<td bgcolor=""#E8E8E8"" align=""left""><span class=""vanligtext"">Visa&nbsp;sida: </span>"
							 FOR i = 1 to adoRS.PageCount
							   If i <> cINT( pg ) Then
								 response.write "<a  href=""http://"&TRIM(request.servervariables("HTTP_HOST") & request.servervariables("SCRIPT_NAME"))&"?sokord="&sSearchString&"&pg="&i&"&slut="&sluttraff&"&start="&starttraff&"&total="&adoRS.recordcount&""">"&i&"</a>&nbsp;"
							   Else
								 response.write "<span class=""vanligtext"">"&i&"</span>&nbsp;"
							   End If 
							 NEXT
							Response.write "</td><td bgcolor=""#E8E8E8"" align=""right"" class=""vanligtext"">"
							If pg <> 1 Then
							  response.write "<a href=""http://"&TRIM(request.servervariables("HTTP_HOST") & request.servervariables("SCRIPT_NAME"))&"?sokord="&sSearchString&"&pg="&(pg-1)&"&slut="&sluttraff&"&start="&starttraff&"&total="&adoRS.recordcount&""">Föregående sida</a>&nbsp;I&nbsp;"
							Else
							  response.write "<span class=""vanligtextGra"">Föregående sida</span>&nbsp;|&nbsp;"
							End If
							If pg <> FIX((adoRS.recordcount / sidStorlek))+1 Then
							  response.write "<a href=""http://"&TRIM(request.servervariables("HTTP_HOST") & request.servervariables("SCRIPT_NAME"))&"?sokord="&sSearchString&"&pg="&(pg+1)&"&slut="&sluttraff&"&start="&starttraff&"&total="&adoRS.recordcount&""">Nästa sida</a></td>" 
							Else
							  response.write "<span class=""vanligtextGra"">Nästa sida</span>"
							End If  
						  response.write "</tr>" &_
						"</table>"
					End If
				End If

adoRS.close
set adoRS = Nothing

End if
```

Permalänk: https://www.webforum.nu/p/1214239

---

Tråden på webben: https://www.webforum.nu/amne/asp/91184-bygga-eget-recordset-och-lägga-in-information-i-det  
Nästa sida: https://www.webforum.nu/amne/asp/91184-bygga-eget-recordset-och-lägga-in-information-i-det/page2.md