---
title: "Kontrollera innehållet i Querystring"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/140731-kontrollera-innehållet-i-querystring"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "karlj87"
published: "2006-01-12T12:38:40.000Z"
updated: "2006-01-13T22:03:50.000Z"
replies: 8
views: 345
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/140731-kontrollera-innehållet-i-querystring"
---

# Kontrollera innehållet i Querystring

## #1 — karlj87, 2006-01-12T12:38Z

Hej!

Sitter här och försöker lära mig lite. Kan man på nåt sätt skriva såhär? 

```
<%
If "id" finns med i querystringen then
response.write("text")
end if
%>
```

Helt enkelt, hur kollar man om "id" finns med i querystringen?

tack på förhand!

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

## #2 — @nders, 2006-01-12T12:39Z

```
if instr(request.querystring, "id") > 0 then
```

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

## #3 — karlj87, 2006-01-12T13:48Z

När jag använde koden du skrev fick jag följande fel:

```
Kompileringsfel i Microsoft VBScript error '800a0411'

Namnet har omdefinierats.

adovbs.inc, line 14
```

Testade då att köra det som du skrev ensamt på en testsida och då funkade det.   x(   :l  Vad betyder felet ovan?

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

## #4 — Peter S, 2006-01-12T13:50Z

<http://www.aspfaq.com/show.asp?id=2098>

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

## #5 — @nders, 2006-01-12T13:50Z

Det kan inte ha att göra med koden jag skrev.

Felet får du för att du skrivit *dim variabelnamn* på mer än ett ställe. Har du definierat konstanter i din fil, och inkluderat adovbs.inc också?

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

## #6 — karlj87, 2006-01-12T13:58Z

Tack för snabba svar.   :bire  Får titta på det ikväll.

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

## #7 — @nders, 2006-01-12T14:00Z

Det är alltså nyckelorden dim eller const som använts mer än en gång på samma variabel/konstant. Du hittar säkert felet när du kikar i dina filer. 

Lycka till! :bire

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

## #8 — karlj87, 2006-01-13T17:36Z

Det verkar som det är den här koden:

```

<!-- 
ARTIKLAR v.1                                               www.JoakimWeb.se 
Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte 
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
-->
<!-- #include file = "adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("artiklar.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM artiklar WHERE id = " & Request.Querystring("id")
	SQL = SQL & " ORDER BY rubrik"
	RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
%>
  <tr> 
    <td class="rubrik"><% =RecSet("rubrik") %></td>
  </tr>
  <tr> 
    <td class="ingress"><% =RecSet("ingress") %></td>
  </tr>
    <tr> 
    <td class="brodtext"><%text = server.htmlencode(RecSet("innehall"))%><%= Replace(text,vbCrLf,"<br>")%></td>
  </tr>
  <tr> 
    <td class="ingress">Skriven av:&nbsp; <a href="mailto:<%=RecSet("epost")%>"><%=RecSet("av")%></a> </td>
  </tr>
  <tr>
    <td class="ingress">Datum:&nbsp; <%=RecSet("datum")%> </td>
  </tr>
  
  <%
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
%>
```

Som skär sig med den här:

```
<!--
ARTIKLAR v.1                                               www.JoakimWeb.se 
Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte 
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.	 
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
-->
<!-- #include file = "adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("artiklar.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM artiklar ORDER BY datum DESC"
	RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
%>
<%
raknare = 0
Do Until RecSet.EOF OR raknare = 5
'Filtrera det som ska visas efter efterfrågad kategori
If RecSet("typ") = category OR category = "" then
%>
<tr>
    <td class="rubrik"><a href="las.asp?id=<%=RecSet("id")%>"><%=RecSet("rubrik")%></a></td>
<tr>
    <td class="ingress"><a href="las.asp?id=<%=RecSet("id")%>"><%=RecSet("ingress")%></a></td>
</tr>
<tr>
    <td class="bordtext"><a href="las.asp?id=<%=RecSet("id")%>"><%=RecSet("typ")%> - <%=RecSet("datum")%></a></td>
</tr>
  
    <%
	End if

raknare = raknare + 1
RecSet.MoveNext
Loop
%>
<%
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
%>
```

Men var i ligger felet?

Tack.

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

## #9 — Peter S, 2006-01-13T22:03Z

Felet ligger i att adovbs.inc inkluderas på två ställen.

 :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/140731-kontrollera-innehållet-i-querystring