nu funkar det igen ....
cya,
PatrikB
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
Nytt Script på wF Script!
95 svar · 768 visningar · startad av PatrikB · sida 2 av 5
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.
------------------
sZ][Cogo
<-| STARZINGER |->
[Redigerat av Cogo den 11 jun 2001]
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
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
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 " | "
Call NextPage(intTotalPages,intPage)
Response.Write " 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å.
------------------
sZ][Cogo
<-| STARZINGER |->
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
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
[Redigerat av PatrikB den 12 jun 2001]
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...
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
------------------
sZ][Cogo
<-| STARZINGER |->
[Redigerat av Cogo den 12 jun 2001]
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
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
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
------------------
sZ][Cogo
<-| STARZINGER |->
bild kanske är ett NULL värde.
Testa denna istället:
If Len(bild) > 0 Then
img = ""
End If
cya,
PatrikB
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
[Redigerat av PatrikB den 12 jun 2001]
Det testade jag först men då slutar ju den if satsen innan den används.
------------------
sZ][Cogo
<-| STARZINGER |->
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.
------------------
sZ][Cogo
<-| STARZINGER |->
he, he ..... vart lite fel ....
du får kolla om Len(bild) = 0 och inte större ....
faaan, jobbig dag idag =P
cya,
PatrikB
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
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 ?????
------------------
sZ][Cogo
<-| STARZINGER |->
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
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
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
------------------
sZ][Cogo
<-| STARZINGER |->
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
------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*
Tackar Patrik B nu funkar det så himla bra så jag vet inte du skall ha ett stort tack för detta.
------------------
sZ][Cogo
<-| STARZINGER |->