---
title: "Hur lägga in denna kod?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/169254-hur-lägga-in-denna-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2008-02-21T19:08:08.000Z"
updated: "2008-02-22T06:51:45.000Z"
replies: 8
views: 579
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/169254-hur-lägga-in-denna-kod"
---

# Hur lägga in denna kod?

## #1 — Jeppeweb, 2008-02-21T19:08Z

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
%>
```

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

## #2 — voigtann1, 2008-02-21T20:02Z

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

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

## #3 — Jeppeweb, 2008-02-21T20:26Z

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

Den ska alltså in i koden ovan..

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

## #4 — Jeppeweb, 2008-02-21T20:33Z

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?

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

## #5 — Peter S, 2008-02-21T20:34Z

```
 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
```

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

## #6 — Jeppeweb, 2008-02-21T20:39Z

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

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

## #7 — Jeppeweb, 2008-02-21T21:20Z

Nytt problem, jag vill ha in

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

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

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

## #8 — voigtann1, 2008-02-21T22:00Z

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.

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

## #9 — Jeppeweb, 2008-02-22T06:51Z

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

Tack, det fungerar nu!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/169254-hur-lägga-in-denna-kod