Hur lägga in denna kod?

8 svar · 569 visningar · startad av Jeppeweb 21 feb. 2008

JeppewebMedlem sedan sep. 2006462 inlägg

Frågan21 feb. 2008 19:08#1

Okej, jag vill få in denna kodsnutt att fungera i en annan. Ni förstår säkert. :)

<%If (ObjRS("kon")) = "0" then %>P<% Else %>F<% End If %>

 <%
      
Dim ObjRS, arrRs2, intRows2, rows2, anvnamn, kon
Set ObjRS = ObjConn.Execute("Select bild, Id, anvnamn, icq, kon From medlemmar WHERE bild_accepterad = '1' ORDER BY datum DESC limit 9")

if ObjRS.Eof then
 Response.write "<p>Det finns inga bilder, konstigt.</p> "
 ObjRS.Close
 Set ObjRS = nothing
else

 arrRs2 = ObjRS.GetRows()

 ObjRS.Close
 Set ObjRS = nothing

 intRows2 = uBound(arrRs2,2)

 For rows2 = 0 to intRows2
  Response.Write " <a href='inloggad.asp?visa=profil&userID=" & arrRs2(1,rows2) & "' title=' " & arrRs2(2,rows2) & arrRs2(4,rows2) & " från " & arrRs2(3,rows2) & "'><img src=" & arrRs2(0,rows2) & " width=65 height=81></a>"
 Next
End if
   
ObjConn.CLOSE
Set ObjConn = nothing
%>

voigtann1Medlem sedan juni 20019 519 inlägg

21 feb. 2008 20:02#2

<%If (arrRs2(4,rows2))) = "0" then %>P<% Else %>F<% End If %>

JeppewebMedlem sedan sep. 2006462 inlägg

21 feb. 2008 20:26#3

Får det inte att fungera.
Mismatch och Syntax error.

Den ska alltså in i koden ovan..

JeppewebMedlem sedan sep. 2006462 inlägg

21 feb. 2008 20:33#4

Alltså.

If arrRs2(4,rows2) = "0" Then
    Response.Write("p")
Else
    Response.Write("f")
End If

Hur fan får jag in den i titlen i länken ovan?

Peter SMedlem sedan dec. 20025 483 inlägg

21 feb. 2008 20:34#5

 For rows2 = 0 to intRows2
  kon = "F"
  if arrRs2(4,rows2) = "0" then kon = "P"
  Response.Write " <a href='inloggad.asp?visa=profil&userID=" & arrRs2(1,rows2) & "' title=' " & arrRs2(2,rows2) & kon & " från " & arrRs2(3,rows2) & "'><img src=" & arrRs2(0,rows2) & " width=65 height=81></a>"
 Next

JeppewebMedlem sedan sep. 2006462 inlägg

21 feb. 2008 20:39#6

Woho!!
Tackar jag så mycket för Peter.

JeppewebMedlem sedan sep. 2006462 inlägg

21 feb. 2008 21:20#7

Nytt problem, jag vill ha in

<%=GetAge(ObjRS("alder"))%>

på samma ställe, men det funkar inte!

voigtann1Medlem sedan juni 20019 519 inlägg

21 feb. 2008 22:00#8

Jeppeweb: Läs lite om GetRows()

GetRows retunera inte ett RecordSet utan en Array av data vilket det visar i For satsen.
alder har du inte i din Select:

Select bild, Id, anvnamn, icq, kon, alder FROM ....

det måste du lägga in.
bild: 0
id: 1
anvnamn: 2
icq: 3
kon: 4
alder: 5

dvs för att använda din kod sen:
(läs PeterS lösning) och lägg till:

dim age
age = GetAge(arrRs2(5,rows2))

(inne i din For sats och skriv ut variablen age sen.

JeppewebMedlem sedan sep. 2006462 inlägg

22 feb. 2008 06:51#9

Jo, jag hade alder i min select.
Glömde bort att lägga upp den nya koden.

Tack, det fungerar nu!