---
title: "Nytt Script på wF Script!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13579-nytt-script-på-wf-script/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2001-05-03T22:22:00.000Z"
updated: "2002-01-05T19:09:00.000Z"
replies: 95
views: 786
page: 2
pages: 5
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/13579-nytt-script-på-wf-script"
---

# Nytt Script på wF Script!

_Sida 2 av 5._

## #21 — PatrikB, 2001-06-11T07:13Z

nu funkar det igen ....

cya,
PatrikB

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

## #22 — Cogo, 2001-06-11T12:29Z

Hur hämtar jag ur ytterliggare en kolumn från databasen? Fattar inte hur den hämtar dom dom kolumnerna som den hämtar ur nu.

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

## #23 — PatrikB, 2001-06-11T14:48Z

Hello,

den hämtar med metoden .GetRows och den metoden returnerar en 2-dimensionell array.

om du lägger till fler poster i sql-uttrycket så får du fler "fält" i arrayen:
arrRecords(0,I) innehåller första posten i sql-uttrycket
arrRecords(1,I) innehåller den andra
arrRecords(2,I) innehåller den tredje

om du nu vill lägga till fler så får du fram dem genom:
arrRecords(3,I) innehåller den fjärde osv

cya,
PatrikB

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

## #24 — Cogo, 2001-06-12T08:05Z

Tackar kom på det men nu undrar jag en annan sak. Jag har 4 visningar per sida. Och dom visas på en rad ner, hur gör jag för att dom skall visas på 2 rader. 2 och 2 om nån fattar vad jag menar.

```
Dim arrRecords
Dim intPageSize
Dim intPage
Dim intStartID
Dim I
Dim intId
Dim Namn
Dim tel
Dim intTotalPages
Dim intTotalRecords
Dim avd
Dim bild
Dim mob
Dim email

%>
<font face="verdana" size="2">
<%

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
If intPage = "" Then intPage = 1

'## -- hur många poster ska visas per sida --
intPageSize = 4

'## -- hämta alla records, hämtas med metoden getrows och returneras
'##    som en array. --
arrRecords = getRecords

'## -- vilken post är den första --
intStartID = getStartID(intPageSize, intPage)

'## -- printa ut sidan som ska visas
'##    alla poster finns i arrayen arrRecords som
'##    kommer från funktionen getRecords --
If IsArray(arrRecords) Then
	'Response.Write "E ju en array<BR>"
	'## -- hur många records finns det totalt --
	intTotalRecords = UBound(arrRecords,2) + 1
	
	'## -- hur många sidor finns det i recordsetet --
	intTotalPages = countPages(intTotalRecords, intPageSize)

	
	For I = intStartID To ((intStartID + intPageSize) -1)
	
		intId = arrRecords(0,I)
		Namn = arrRecords(1,I)
		tel = arrRecords(4,I)
		avd = arrRecords(3,I)
		bild = arrRecords(6,I)
		mob = arrRecords(5,I)
		email = arrRecords(8,I)
		
		
	Response.Write "<table border=0><tr><td><img src=" & bild & "></td><td><font size=1 color=000000>" & Namn & "<br><br>" & avd & "<br><br>Tel:" & tel & "<br>Mob:" & mob & "<br><br><a href=" & email & ">" & email & "</a></font></td></tr></table><br><br>"
		

	If I = UBound(arrRecords,2) Then Exit For

	Next
Else
	
	'## -- inga poster fanns i db --
	intPage = 0
	intTotalRecords = 0
	intTotalPages = 0
	
	'## -- skriv ut att inga poster hittades --
	Response.Write "<P>No records found.</P>"
End If

'## -- skriv ut sidnavigerings menyn --
Call PrevPage(intPage)
Response.Write " &#0124; "

Call NextPage(intTotalPages,intPage)

Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Pages:" 

Call PageNumbers(intTotalPages,intPage)
%>
```

Antar att det är här nån stans som koden måste ändras.

Tacksam för all hjälp jag kan få.

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

## #25 — PatrikB, 2001-06-12T08:40Z

hello,

du kan testa denna kod. 
OBS!!! ej testad!!

```
......

'## -- startar tabellen utanför loopen --
Response.Write "<table border=""0""><tr>"

For I = intStartID To ((intStartID + intPageSize) -1)

	intId = arrRecords(0,I)
	Namn = arrRecords(1,I)
	tel = arrRecords(4,I)
	avd = arrRecords(3,I)
	bild = arrRecords(6,I)
	mob = arrRecords(5,I)
	email = arrRecords(8,I)

	Response.Write "<td><img src=""" & bild & """></td>" & _
		"<td><font size=""1"" color=""#000000"">" & Namn & "<br><br>" & _
		avd & "<br><br>Tel:" & tel & "<br>Mob:" & mob & "<br><br>" & _
		"<a href=""mailto:" & email & """>" & email & "</a></font>" & _
		"</td>"

	If I mod 2 = 0 Then Response.Write "</TR><TR>"

If I = UBound(arrRecords,2) Then Exit For

Next

	'## -- stänger tabellen efter loopen --
	If I mod 2 <> 0 Then
		Do Until I mod 2 = 0
			Response.Write "<TD> </TD><TD> </TD>"
			I = I + 1
		Loop

	Response.Write "</tr></table>"
....
```

Du ser vart någonstans du ska ändra .....

cya,
PatrikB

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

## #26 — Lukaspojken, 2001-06-12T09:30Z

Hej PatrikB...jag har inte unzip på den här datorn...grrr...och kommer vara borta en vecka eller så...du kan inte maila mig. paging-text filen ozippat till lukaspojken@hotmail.com

Vore jättetacksam...

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

## #27 — Cogo, 2001-06-12T09:48Z

Det funkade ganska bra men den lägger en rad med 3 visningar och den andra raden där det skall vara 2 lägger den 1 så en från dom 3 skall komma över till där det bara är 1. Kanske låter helt oförstårligt. Kan du hjälpa mig Patrik B

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

## #28 — Cogo, 2001-06-12T09:48Z

Dubbel post

\[Redigerat av Cogo den 12 jun 2001\]

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

## #29 — PatrikB, 2001-06-12T10:32Z

Cogo:
testa denna kod:

```
'## -- startar tabellen utanför loopen --
Response.Write "<table border=""0""><tr>"

For I = intStartID To ((intStartID + intPageSize) -1)

intCounter = intCounter + 1 

intId = arrRecords(0,I)
Namn = arrRecords(1,I)
tel = arrRecords(4,I)
avd = arrRecords(3,I)
bild = arrRecords(6,I)
mob = arrRecords(5,I)
email = arrRecords(8,I)

Response.Write "<td><img src=""" & bild & """></td>" & _
"<td><font size=""1"" color=""#000000"">" & Namn & "<br><br>" & _
avd & "<br><br>Tel:" & tel & "<br>Mob:" & mob & "<br><br>" & _
"<a href=""mailto:" & email & """>" & email & "</a></font>" & _
"</td>"

If intCounter mod 2 = 0 Then Response.Write "</TR><TR>"

If I = UBound(arrRecords,2) Then Exit For

Next

'## -- stänger tabellen efter loopen --
If intCounter mod 2 <> 0 Then
Do Until intCounter  mod 2 = 0
Response.Write "<TD> </TD><TD> </TD>"
intCounter = intCounter + 1
Loop

Response.Write "</tr></table>"
```

Lucaspojken:
Visst, skickar .asp filen

cya,
PatrikB

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

## #30 — Cogo, 2001-06-12T11:47Z

Tackar så mycket Patrik nu funkar det helt OK.

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

## #31 — Cogo, 2001-06-12T12:38Z

Kan nån se varför inte denna koden funkar riktigt?

```
intId = arrRecords(0,I)
Namn = arrRecords(1,I)
tel = arrRecords(4,I)
avd = arrRecords(3,I)
bild = arrRecords(6,I)
mob = arrRecords(5,I)
email = arrRecords(8,I)
img ="<img src=""" & bild & """>"

If bild ="" Then 
img = ""

Response.Write "<td>" & img & "</td>" & _
"<td>" & Namn & "<br><br>" & _
avd & "<br><br>Tel:" & tel & "<br>Mob:" & mob & "<br><br>" & _
"<a href=""mailto:" & email & """>" & email & "</a>" & _
"</td>"

End If
```

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

## #32 — PatrikB, 2001-06-12T12:47Z

bild kanske är ett NULL värde.

Testa denna istället:

```
If Len(bild) > 0 Then
img = ""
End If
```

cya,
PatrikB

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

## #33 — Cogo, 2001-06-12T13:22Z

Det testade jag först men då slutar ju den if satsen innan den används.

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

## #34 — Cogo, 2001-06-12T13:33Z

Eller det var inte det jag testade =) 
Jag testade det som du skrev då funkade det exakt som jag ville fast tvärt om =)

Den visar inte där det finns bilder men försöker visa bilder som inte finns.

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

## #35 — PatrikB, 2001-06-12T13:39Z

he, he ..... vart lite fel ....

du får kolla om Len(bild) = 0 och inte större ....

faaan, jobbig dag idag =P

cya,
PatrikB

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

## #36 — Cogo, 2001-06-12T13:47Z

Hmm nu visar den dom bilderna som finns och försöker visa dom bilder som inte finns.

Men innan försökte den visa dom bilderna som inte finns och visade inte dom bilderna som finns ?????

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

## #37 — PatrikB, 2001-06-12T14:23Z

Trodde att den skulle visa en bild om bildnamn fanns i \<bild\> , annars skulle den inte visa någon bild men väl namn etc.

Är det inte så du vill ha det??

cya,
PatrikB

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

## #38 — Cogo, 2001-06-12T14:27Z

Den hämtar adressen till bilden i en databas. Men om det inte finns nån adress i databasen (om bild är tom) skall den inte skriva ut \<img\> taggen för då kommer det ju fram en sån liten bild ruta med ett rött kryss i. Förstår du hur jag menar ? 

MVH Andreas

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

## #39 — PatrikB, 2001-06-12T15:35Z

ok,
då borde detta funka:

```

intId = arrRecords(0,I)
Namn = arrRecords(1,I)
tel = arrRecords(4,I)
avd = arrRecords(3,I)
bild = arrRecords(6,I)
mob = arrRecords(5,I)
email = arrRecords(8,I)

If Len(bild) > 0 Then 
img ="<img src=""" & bild & """>"
Else
img = ""
End If

Response.Write "<td>" & img & "</td>" & _
"<td>" & Namn & "<br><br>" & _
avd & "<br><br>Tel:" & tel & "<br>Mob:" & mob & "<br><br>" & _
"<a href=""mailto:" & email & """>" & email & "</a>" & _
"</td>"
```

cya,
PatrikB

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

## #40 — Cogo, 2001-06-14T06:19Z

Tackar Patrik B nu funkar det så himla bra så jag vet inte du skall ha ett stort tack för detta.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13579-nytt-script-på-wf-script/page2  
Föregående sida: https://www.webforum.nu/amne/asp/13579-nytt-script-på-wf-script.md  
Nästa sida: https://www.webforum.nu/amne/asp/13579-nytt-script-på-wf-script/page3.md