Vilken sökväg som helst

8 svar · 192 visningar · startad av Rinaldo 2 okt. 2001

RinaldoMedlem sedan mars 20014 214 inlägg

Frågan2 okt. 2001 07:53#1

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

SimpaMedlem sedan aug. 20002 992 inlägg

2 okt. 2001 15:35#2

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

men vad kan det bero på?

*ropar på @nders*

LarsGMedlem sedan dec. 200012 464 inlägg

2 okt. 2001 15:40#3

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

------------------
essentitia preter non sans multiplicandum

SimpaMedlem sedan aug. 20002 992 inlägg

2 okt. 2001 16:05#4

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

LarsGMedlem sedan dec. 200012 464 inlägg

2 okt. 2001 16:16#5

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

------------------
essentitia preter non sans multiplicandum

RinaldoMedlem sedan mars 20014 214 inlägg

2 okt. 2001 16:20#6

<!-- #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]

SimpaMedlem sedan aug. 20002 992 inlägg

2 okt. 2001 16:23#7

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

@ndersMedlem sedan juni 200032 967 inlägg

2 okt. 2001 16:26#8

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

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

Mvh,

------------------
All your base are belong to me.

RinaldoMedlem sedan mars 20014 214 inlägg

2 okt. 2001 16:31#9

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