---
title: "Vilken sökväg som helst"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11915-vilken-sökväg-som-helst"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rinaldo"
published: "2001-10-02T07:53:00.000Z"
updated: "2001-10-02T16:31:00.000Z"
replies: 8
views: 207
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/11915-vilken-sökväg-som-helst"
---

# Vilken sökväg som helst

## #1 — Rinaldo, 2001-10-02T07:53Z

```
<%
strSida = Request.ServerVariables("SCRIPT_NAME")
If strSida = "/applications/forum/inlagg.asp" then%>
&#0124; <A HREF="nyttsvar.asp?rubrikID=<%=request.querystring("rubrikID")%>" CLASS="link">Svara</A> &#0124;
<%else%>
&#0124; Svara &#0124;
<%end if%>
```

Denna kod kollar sidans sökväg och jämför den. Den hämtar värdet /applications/forum/inlagg.asp

finns det nåt sätt så att denna sak bara kollar om sidan heter /inlägg.asp eller liknande?

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

## #2 — Simpa, 2001-10-02T15:35Z

Har precis samma problem eftersom jag, använder Rinaldos forum :) 

men vad kan det bero på?

\*ropar på @nders\*

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

## #3 — LarsG, 2001-10-02T15:40Z

```
n = split(strSida,"/")
if n(ubound(n)) = "inlagg.asp" then
```

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

## #4 — Simpa, 2001-10-02T16:05Z

Tack, funkade rätt så bra! :)

förrutom att nu kan man inte läsa svaren, får detta fel:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 
\[Microsoft\]\[ODBC Microsoft Access Driver\] Data type mismatch in criteria expression. 

/forum/inlagg.asp, line

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

## #5 — LarsG, 2001-10-02T16:16Z

Aha, du får nog visa mer kod. T.ex. det sql-statement som orsakar felet.

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

## #6 — Rinaldo, 2001-10-02T16:20Z

```
<!-- #INCLUDE FILE="adovbs.inc" -->
<!-- #INCLUDE FILE="connect.asp" -->
<HTML>
<HEAD>
<!-- #INCLUDE FILE="head.asp" -->
</HEAD>
<BODY >
<!-- #INCLUDE FILE="meny.asp" -->

<%SQL = "Select * From rubriker WHERE rubrikID = " & Request.QueryString("rubrikID") & " ORDER BY datum desc"
rs.open SQL, databas
meddelande = rs("meddelande")
%>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="0" WIDTH="500" BGCOLOR="#999999"><TR><TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" WIDTH="500">
<TR>
<TD WIDTH="40" valign="top" bgcolor="#999999">
<IMG SRC="bilder/<%=rs("ikon")%>.gif">
</TD>
<TD WIDTH="600" bgcolor="#999999">
<b><%=Server.HTMLEncode(rs("rubrik"))%></b>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" WIDTH="500">
<TR>
<TD WIDTH="170" valign="top" BGCOLOR="#CCCCCC"><BR>
<B>
<%response.write "<A HREF='visamedlem.asp?visamedlem=ja&medlem="&rs("namn")&"' CLASS=link>" & Server.HTMLEncode(left(rs("namn"),20)) & "</A><BR>"%>
<%=rs("datum")%><BR><BR>
Antal svar: <%=rs("antalsvar")%></B>
</TD>
<TD WIDTH="470" BGCOLOR="#CCCCCC">
<%=Replace(Server.HTMLEncode(meddelande), vbcrlf, "<br>" & vbcrlf)%>
</TD>
</TR>
</TABLE>
</TD></TR></TABLE><BR><BR>

<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="0" WIDTH="500" BGCOLOR="#999999"><TR><TD>Svar till inlägget </TD></TR><TR><TD>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5" WIDTH="500">
<%
rs.close
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 10

SQL = "Select * From svar WHERE svartill = " & Request.QueryString("rubrikID") & " ORDER BY datum desc"

rs.cursorlocation = 3
rs.cachesize = 5

[b]rs.open SQL,Databas[/b]
If rs.EOF then
   Response.write " </TD></TR></TABLE></TD></TR></TABLE><TABLE><TR><TD><i>Inga svar för tillfället</i></TD></TR></TABLE> " & sok
Else
   rs.movefirst
   rs.pagesize = mypagesize
   maxcount = Cint(rs.pagecount)
   rs.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rs.fields.count -1
   Do While Not rs.EOF AND howmanyrecs < rs.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#CCCCCC"
   Else
      color = "#EEEEEE"
   End If
   svar = rs("svar")
   Response.write "<TR BGCOLOR='" & color & "'><TD WIDTH=170 valign=top><img src=bilder/"&rs("ikon")&".gif ALIGN=left><B><A HREF='visamedlem.asp?visamedlem=ja&medlem="&rs("namn")&"' CLASS=link>" & Server.HTMLEncode(left(rs("namn"),20)) & "</A><BR>" & rs("datum") & "</B></TD><TD WIDTH=470>" & Replace(Server.HTMLEncode(svar), vbcrlf, "<br>" & vbcrlf) & "</TD></TR>"

   rs.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rs.close
   Set rs = nothing

   response.write "</TABLE></TD></TR></TABLE><TABLE BORDER=0 CELLSPACING=1 CELLPADDING=0 WIDTH=500><TR><TD ALIGN=RIGHT>"
   If maxcount <> 0 then
   response.write "<B>sida " & mypage & " av " & maxcount & " </B>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 40 then
      pad = ""
   End If
   ref = "&#0124; <a href='" & scriptname & "?rubrikID="& request.querystring("rubrikID")&"&whichpage=" & counter & "&pagesize=" & mypagesize & "' class=link>sida " & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 40 = 0 then
      response.write ""
   End If
   Next
   End If
End If
%>

</TD></TR></TABLE>
</TD></TR></TABLE>

<!-- #INCLUDE FILE="meny.asp" -->
</BODY>
</HTML>
<%databas.close
set databas = nothing
%>
```

\[Redigerat av Rinaldo den 02 okt 2001\]

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

## #7 — Simpa, 2001-10-02T16:23Z

plus att du kan kolla på sidan här: <http://www.simpa.se.st/forum>

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

## #8 — @nders, 2001-10-02T16:26Z

```
SQL = "Select * From svar WHERE svartill = '" & Request.QueryString("rubrikID") & "' ORDER BY datum desc"
```

Kanske? Om svartill är av typen text vill säga.

Mvh,

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

## #9 — Rinaldo, 2001-10-02T16:31Z

svartill är av typen tal... eller simpa?
du har väl gjort så :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11915-vilken-sökväg-som-helst
