---
title: "replace"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45352-replace/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-06-06T12:31:38.000Z"
updated: "2002-06-07T11:25:07.000Z"
replies: 44
views: 635
page: 2
pages: 3
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/45352-replace"
---

# replace

_Sida 2 av 3._

## #21 — antar, 2002-06-06T17:23Z

& objRS("status") &

0x80020009)
Undantag inträffade. 
/main.asp, line 196

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

## #22 — @nders, 2002-06-06T17:27Z

Hur ser hela loopen ut nu?
Vad är fältet status för datatyp?

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

## #23 — antar, 2002-06-06T17:31Z

vilken loop 

datatypen är text

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

## #24 — @nders, 2002-06-06T17:32Z

Ehm, du hade väl en for-loop som du la den där koden i?

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

## #25 — antar, 2002-06-06T17:32Z

så här ser hela ut nu

```
Function replace2(stjarna) 
replace2 = left(stjarna, len(stjarna)-1) 
End Function

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Medlemmar.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select top 10 *  From Medlemmar where id="&session("id")
RecSet.Open Addera, Connect, 3, 3

strSQL = "SELECT status FROM Medlemmar WHERE Anvandarnamn='"&Anvandarnamn &"'"
set objRS = Connect.execute(strSQL)

if not recset("Senastebesokare") = "" then
visitors=replace2(RecSet("Senastebesokare"))
online=recset("Status") = "online"
visit_array=Split(visitors,"*")
For i = 0 to Ubound(visit_array, 1)
response.write("<img border=""0"" src=""bilder/" & objRS("status") & ".gif""  width=""10"" height=""9""><a href=""#"" onclick=""krypin('krypin.asp?visa=krypin&id=','id_"& visit_array(i) &"',502,303); return false;""><b>" & visit_array(i) & "</b></a><br>")	
if i > 9 then exit for
next
recset.close
connect.close
set recset = nothing
set connect = nothing
```

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

## #26 — @nders, 2002-06-06T17:35Z

Koden jag skrev hör hemma *inne i loopen.*

```
Function replace2(stjarna) 
replace2 = left(stjarna, len(stjarna)-1) 
End Function

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Medlemmar.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select top 10 *  From Medlemmar where id="&session("id")
RecSet.Open Addera, Connect, 3, 3

if not recset("Senastebesokare") = "" then
visitors=replace2(RecSet("Senastebesokare"))
online=recset("Status") = "online"
visit_array=Split(visitors,"*")
For i = 0 to Ubound(visit_array, 1)
strSQL = "SELECT status FROM Medlemmar WHERE Anvandarnamn='" & visit_array(i) &"'"
set objRS = Connect.execute(strSQL)
response.write("<img border=""0"" src=""bilder/" & objRS("status") & ".gif""  width=""10"" height=""9""><a href=""#"" onclick=""krypin('krypin.asp?visa=krypin&id=','id_"& visit_array(i) &"',502,303); return false;""><b>" & visit_array(i) & "</b></a><br>")	
if i > 9 then exit for
next
recset.close
connect.close
set recset = nothing
set connect = nothing
```

Dessutom hade inte Anvandarnamn något värde, så jag la in visit_array(i) där i stället.

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

## #27 — antar, 2002-06-06T17:36Z

får fortfarande samma fel??

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

## #28 — @nders, 2002-06-06T17:39Z

Skriv ut strSQL istället för att exekvera den, hur ser det ut då?

```
strSQL = "SELECT status FROM Medlemmar WHERE Anvandarnamn='" & visit_array(i) &"'"
Response.write strSQL & "<br>"
'set objRS = Connect.execute(strSQL)
```

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

## #29 — antar, 2002-06-06T17:40Z

SELECT \* FROM Medlemmar WHERE Anvandarnamn='antar'

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

## #30 — @nders, 2002-06-06T17:46Z

Måste du hämta alla fält? Behöver du något mer fält än status?
Det borde ju iofs inte göra så det inte fungerar...

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

## #31 — antar, 2002-06-06T17:48Z

jepp behöver id, kon, fodd

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

## #32 — solbulle, 2002-06-06T17:54Z

Var det verkligen strSQL du skrev ut där?

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

## #33 — @nders, 2002-06-06T17:57Z

Ett tips: Specificera fälten du ska använda i SQL-frågan. Det finns ingen anledning att hämta sånt du inte ska använda.

Mvh,

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

## #34 — antar, 2002-06-06T17:59Z

om jag skriver in on error resume next så funkar allt

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

## #35 — antar, 2002-06-06T18:13Z

går det och göra så att bara 10 första besökarna blir kvar och resten raderas i databasen!!

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

## #36 — @nders, 2002-06-06T18:25Z

Ja, det kan man.

DELETE-fråga, ungefär så här:

```
strSQL = "DELETE FROM tabellen WHERE Fältet NOT IN (SELECT TOP 10 Fältet FROM tabellen ORDER BY Fältet)"
```

Resten lämnas som övning till läsaren. ;)

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

## #37 — antar, 2002-06-06T19:16Z

varför funkar det inte

**Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/main.asp, line 209, column 149**

```
response..write ("onmouseover=""window.status='"&if objRS("status") = Online then objRS("gor") end if &"';return true;"" onmouseout=""window.status='';return true;""")
```

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

## #38 — hypatia, 2002-06-06T19:20Z

Mina ögon fastnade på de två punkterna mellan response och write. Kan de ha med saken att göra? 

Det känns som att du skulle vinna ganska mycket på att försöka dig på lite felsökning själv innan du ställer nästa fråga här. :)

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

## #39 — @nders, 2002-06-06T19:20Z

Dels för att du har två punkter mellan response och write, och dels för att du har en massa if-satser och grejs inne i ditt response.write statement.

```
response.write ("onmouseover=""window.status='")

if objRS("status") = Online then response.write objRS("gor") 
response.write ("';return true;"" onmouseout=""window.status='';return true;""")
```

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

## #40 — antar, 2002-06-06T19:33Z

går det inte och köra if sats i response.write?

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

---

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