---
title: "Massa hjälp att dela upp recordset, snälla"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8436-massa-hjälp-att-dela-upp-recordset-snälla"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ghost of North"
published: "2001-03-05T19:44:00.000Z"
updated: "2001-03-07T17:25:00.000Z"
replies: 2
views: 262
page: 1
pages: 1
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/8436-massa-hjälp-att-dela-upp-recordset-snälla"
---

# Massa hjälp att dela upp recordset, snälla

## #1 — Ghost of North, 2001-03-05T19:44Z

Hej. Jag har en gästbok och en dagbok jag skulle vilja dela upp. 
Nu är det så att jag är är rejält grön på ASP och egentligen inte ens borde försöka mig på detta alls. Jag har sett scriptet som finns på Webforum men har ingen aning aning alls om hur jag ska bära mig åt för att lyckas.
Finns det någon vänlig själ här som kan tänka sig guida mig steg för steg...?

Vilse i ASP

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

## #2 — crisse6, 2001-03-06T20:18Z

om du visar lite kod ska det nog funka... jag är själv ganska "grön" på det där med asp, men jag har fått det skriptet att fungera! kom igen! :e

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

## #3 — Ghost of North, 2001-03-07T17:25Z

Här är den kodsnutt av dagboken som skriver ut databasen (jag tror den gör det iaf).

\<%
Case Else
	strAddLine = "\<p\>\<img src=images/add.gif width=16 height=16\>&nbsp;\<a href=guestbook.asp?mode=add\>\<strong\>\<font face=verdana size=2\>Skriv inlägg i gästboken\</font\>\</strong\>\</a\>\</p\>"
	Response.Write strAddLine
	strSQL = "SELECT \* FROM Guestbook ORDER BY Dato DESC;"
	Set myConn = Server.CreateObject("ADODB.Connection")
	myConn.Open tempConn
	Set rs = myConn.Execute(strSQL)
	If Not (rs.BOF Or rs.EOF) Then
		Response.Write "\<table width=600 border=0 cellpadding=1 cellspacing=1\>"
		Do While Not rs.EOF
			
			Select Case weekday(rs("Dato"))
case 1 dag = "Söndag"
case 2 dag = "Måndag"
case 3 dag = "Tisdag"
case 4 dag = "Onsdag"
case 5 dag = "Torsdag"
case 6 dag = "Fredag"
case 7 dag = "Lördag"
End Select

Select Case month(rs("Dato"))
case 1 maaned = " januari "
case 2 maaned = " februari "
case 3 maaned = " mars "
case 4 maaned = " april "
case 5 maaned = " maj "
case 6 maaned = " juni "
case 7 maaned = " juli "
case 8 maaned = " augusti "
case 9 maaned = " september "
case 10 maaned = " oktober "
case 11 maaned = " november "
case 12 maaned = " december "
End Select

	Response.Write "\<tr width=""600"" bgcolor=#99ccff\>\<td\>\<font face=verdana,arial,helvetica size=2 color=#0000ff\>\<B\>" & dag &  " den " & day(rs("Dato")) & maaned & year(rs("Dato")) & "\</B\>\</td\>\</tr\>"
	'response.write year(rs("Dato"))

			If Len(rs("Email")) \> 0 Then
				Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>\<strong\>\<a href=mailto:" & rs("Email") & "\>" & rs("Navn") & "\</a\> skriver:\</strong\>\</td\>\</tr\>"
			Else
				Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>\<strong\>" & rs("Navn") & " skriver:\</strong\>\</td\>\</tr\>"
			End If
			Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>" & replace(rs("Kommentar"), vbcrlf, "\<br\>") & "\<br\>&nbsp;\</td\>\</tr\>"
			If Len(rs("Hemsida")) \> 0 Then
				Hemsa = rs("Hemsida")
				If left(Hemsa,4) \<\> "http" then
					Hemsa = "http://" & Hemsa
				End If
				Response.Write "\<tr\>\<td\>\<font face=verdana size=2\>\<strong\>Hemsida: \<a href=" & Hemsa & " target=\_blank\>" & rs("Hemsida") & "\</a\>\</strong\>\<br\>\<br\>"
			End If
		rs.MoveNext
		Loop
		Response.Write "\</table\>"
	Else
		Response.Write "\<p\>\<font face=verdana size=2\>Inget inlägg i gästboken !\</font\>\</p\>"
	End If
	myConn.Close
	Set myConn = Nothing
	Response.Write strAddLine
End Select
%\>

Nu då...? :q

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8436-massa-hjälp-att-dela-upp-recordset-snälla