---
title: "Instr??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69893-instr"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-03-03T13:00:40.000Z"
updated: "2003-03-04T13:43:41.000Z"
replies: 21
views: 522
page: 1
pages: 2
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/69893-instr"
---
# Instr??
_Sida 1 av 2._
## #1 — Asa, 2003-03-03T13:00Z
Kan man på något sätt kolla såhär:
I databasen finns det massor av domäner blockade. Ex:
```
gruvsjo.com
sidan.com
kalle.com
```
Strängen Url ska jag kolla om den finns med i databasen.
```
Url = "gruvsjo.com/hugo/index.asp"
```
Kolla igenom databasen för blockade domäner och om någon av de blockade finns med i strängen Url ska det ej Godkännas. Annars Godkänns Url.
Hoppas någon fattar vad jag menar.
Har denna kod som jag testat med. Men den funkar inge bra.
```
<%Set Conn = createObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("galleri.mdb")
Url = "gruvsjo.com/hugo/index.asp"
Set Doman = Conn.Execute("Select * From domanblock")
If Not Doman.EOF Then
Do Until Doman.EOF
If InStr(Url,Doman("galleryUrl")) then
Response.Write "Nej" & "
"
Else
Response.Write "Ja" & "
"
End If
Doman.MoveNext
Loop
Else
Response.Write "Tomt i databasen" & "
"
End If%>
```
Permalänk: https://www.webforum.nu/p/69893
## #2 — crisse6, 2003-03-03T14:05Z
Vad far du for felmess?
Permalänk: https://www.webforum.nu/p/966910
## #3 — Asa, 2003-03-03T14:09Z
Den hoppar ju till ja fast den finns i databasen eftersom när den loopar så hittar den ju ex post 1 att det inte stämmer och då blire ju Ja.
Vet inte hur jag ska lösa det att efter den loopat igenom kolla om nån av posterna inehåll url och sen skicka vidare.
Jag kanske tänker på fel sätt?
Permalänk: https://www.webforum.nu/p/966916
## #4 — Engine^, 2003-03-03T14:14Z
```
If Not InStr(Url, Doman("galleryUrl")) = 0 Then
```
Permalänk: https://www.webforum.nu/p/966921
## #5 — Asa, 2003-03-03T14:18Z
Funkar ej iallafall! :/ I detta fall ligger gruvsjo.com sist i databasen när den kollar efter Url.
Man måste på nå sätt göra att när man väl loopat igenom databasen, DÅ ska den skicka en vidare. Som det är nu så kollar den först post 1 och den är i detta fall Ja och skickar vidare till Ja.
Hur gör jag?
Permalänk: https://www.webforum.nu/p/966925
## #6 — Engine^, 2003-03-03T14:31Z
```
bOk = True
Do Until Doman.EOF
If InStr(Url,Doman("galleryUrl")) then
bOk = False
End If
Doman.MoveNext
Loop
If bOk Then
'Skicka vidare
Else
'Blockad adress
End If
```
Permalänk: https://www.webforum.nu/p/966938
## #7 — Asa, 2003-03-03T16:20Z
Tackar. FUnkar bra nu!
Permalänk: https://www.webforum.nu/p/967058
## #8 — Palle, 2003-03-03T16:31Z
Vore det inte enklare med *LIKE*?
```
[RED]Set RecSet = Conn.Execute("SELECT galleryUrl FROM domanblock WHERE galleryUrl LIKE '%"& Url &"'")
If RecSet.EOF Then
' Fanns inte med..
Else
' Fanns med..
End If[/RED]
```
Permalänk: https://www.webforum.nu/p/967063
## #9 — m_soderlund, 2003-03-04T12:58Z
Jag är helt inne på Palles spår.. Mer om SQL-funktioner finns på webeye.nu;
Permalänk: https://www.webforum.nu/p/967653
## #10 — Asa, 2003-03-04T13:02Z
Okej så om jag då han en länk som ser ut så här:
Så kommer den blockas eftersom gruvsjo.com finns i databasen?
Permalänk: https://www.webforum.nu/p/967655
## #11 — m_soderlund, 2003-03-04T13:08Z
Jo, om du definierar det så med Like. Kod kommer..
Permalänk: https://www.webforum.nu/p/967658
## #12 — Asa, 2003-03-04T13:12Z
Jag tänker nog helt fel bara. Är nog smidigt som du säger.
Permalänk: https://www.webforum.nu/p/967660
## #13 — Engine^, 2003-03-04T13:13Z
Nepp, men om du ändrar LIKE-satsen till **'%" & Url & "%'**, gör den det, annars kommer den bara att blocka om url-en slutar på ...gruvsjo.com
Det är väl mer eller mindre en smaksak hur man löser detta, men det finns ju klara fördelar med att använda en tabell, eftersom då är det en smal sak att lägga till och ta bort url:er.
En tredje variant är att använda ett regular expression, men det är till att utnyttja fel metod ;)
```
Set rs = Conn.Execute("SELECT galleryUrl FROM domanblock WHERE galleryUrl LIKE '%"& Url &"%'")
If rs.EOF Then
' Fanns inte med..
Else
' Fanns med..
End If
```
**/r:** Tog bort lngDummy, eftersom jag inte kommer ihåg om den sattes till antalet påverkade rader när man körde Select...
Permalänk: https://www.webforum.nu/p/967661
## #14 — m_soderlund, 2003-03-04T13:16Z
Kod kommer INTE från mig - Engine^ förklarade ju.. :)
Permalänk: https://www.webforum.nu/p/967664
## #15 — Asa, 2003-03-04T13:22Z
Tackar för alla förslag! :)
Permalänk: https://www.webforum.nu/p/967669
## #16 — m_soderlund, 2003-03-04T13:26Z
Weeee!
\[offtopic\]Åsa - hade du kodat alla inkluderingar på Gruvsjo.com-sajten med \