Pagingsystem - GetRows() av Palle

[Meng]

Tjena, jag hittade ett "Pagingsystem - GetRows()" som Palle hade gjort. Den innehöll en databas som jag ändrade lite på.
Jag kan drygt inget om asp men jag försöker lära mig. Jag la till en rad i Access som heter fldNr brevid fldName som default.asp sidan hämtar och listar. Nu vill jag att default sidanskahämta namn i bokstavs ordning och nr brevid. så det blir en form av telefonlista. Frågan är bara. Hur får jag den att visa Nr brevid?

'// Databashantering

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("databas.mdb")

	Set RecSet = Connect.Execute("SELECT fldName FROM tblTable ORDER BY fldName")
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

Filen jag laddade ner är:

http://www.webforum.nu/attachment.php?s=&postid=640564

[Palle]

Först ändrar du sql-satsen till:

Set RecSet = Connect.Execute("SELECT fldName, fldNr FROM tblTable ORDER BY fldName")

Och där du sedan printar ut innehållet: (rad 100 i orginalfilen)

For i = intFirstPost To intLastPost
	strName = arrRecSet(0,i)
	intNumb = arrRecSet(1,i)
	Response.Write strName &" "& intNumb &"<br>"& vbcrlf
Next

[Meng]

Tackar, det funkade men text formateringen blev inget vidare snygg, kan man göra så fldName står i vänster kant och fldNr i höger? eller bara nån skilje linje?

[SteveP]

Denna får du trixa med så det passar som du vill ha.

Response.Write strName &" "& intNumb &"<br>"& vbcrlf

Nåt sånthär kanske?

Response.Write "<table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
"<tr><td width=""200"" align=""left"">" & strName & "</td>" & _
"<td width=""200"" align=""right"">" & intNumb & "</td></tr></table>"

[Meng]

Jo det där va ju hel-fint =) tackar Stevee!