i have found a big problem in the #include/script

plz help my ....[:0]
I tried out your software for a week and then i have add thes
<% Server.Execute("/metatraffic/track.asp") %>
and i have tried thes to

in order to track the following page and the scripts in the top of this
message are damageing the link to the code "r=" in the page and i can't fix it.

the original link should look like this:
http://root/index1.asp?r=77
and when in adding 1 of the track scripts
the link send my to this adrress:
http://root/77

and i get the error 404 ... :(

but is writers to the program ... and i can see if the clicnt cleck the link...

thenks for all...:oops:

the script is:

<%
r = request.querystring("r")
if len(r)<1 then r=-1
s = request.querystring("s")
if len(s)<1 then s = 0
s=s*10

dim rubriken(100,4)

sql = "select rubrik, id, parent, rank from rubriken order by rank"
set rs = db.Execute(sql)
while not rs.eof
if i<100 then
rubriken(i,0) = rs("rubrik")
rubriken(i,1) = rs("parent")
rubriken(i,2) = rs("id")
rubriken(i,3) = rs("rank")
end if
i=i+1
rs.movenext
wend
arrayLaenge=i-1

Function show_search(parent1, ebene)
if parent1 <> vbNullString then
for t = 0 to arrayLaenge
if rubriken(t,1) = parent1 then

platzhalter=""
for x= 0 to ebene
platzhalter = platzhalter & "   "
next

if ebene = 0 then
zusatz = ""
zusatz1 = ""
end if
response.write( platzhalter & "" & zusatz & rubriken(t,0) & zusatz1 & "" & chr(13))
parent2 = rubriken(t,2)
ebene1 = ebene +1
show_search parent2, ebene1
end if
next
end if
end function

sqlZusatz=""
Function show_c(parent3)
for t = 0 to arrayLaenge
if cint(rubriken(t,1)) = cint(parent3) then
parent4 = rubriken(t,2)
sqlZusatz = sqlZusatz & " or rubrik = " & parent4
show_c parent4
end if
next
end function

show_c r
%>

<%=Title%>

">

" align="center" colspan="2">
/<%=Logo%>" alt="<%=title%>">

" align="center" valign="top">

" align="center">
<%=n_produkte%>

" align="left" valign="top">
<%show_search 0,0%>

" align="center">
<%=n_basket%>

" align="left">
<%if (session("items"))>-1 then %><%=n_basket1%>
(<%=session("items")+1%>) <%else%> <%=n_basket2%> <%end if%>

" align="center">
<%=n_info%>

" align="left">
<%=n_home%>

" align="left">
<%=n_info1%>

" align="left">
<%=n_shipping%>

" align="left">
<%=n_contact%>

" align="left">
<%=n_size%>

" align="left">
<%=n_security%>

" align="center" valign="top">
<%
rsql = "select * from rubriken where id = " & r
set Rrs = db.Execute(rsql)
If not Rrs.EOF Then
Cname = Rrs("rubrik")
Cdesc = Rrs("desc")
End If
Rrs.Close
Set Rrs = Nothing
%>

<%=Cname%>

<%=Cdesc%>

<%
if (cint(r)>-1) then
sql = "select * from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
while not rs.eof
count = count +1
if count>s and count<=(s+10) then
id = rs("id")
%>

<%if len(rs("bild"))>2 then%>" border="0"> <%else%> <%end if%>
<% If rs("bpic") <> "" Then %>

function popimage(imagesrc,winwidth,winheight)
{
var look='width='+winwidth+',height='+winheight+','
popwin=window.open("","",look)
popwin.document.open()
popwin.document.write('Full Picture')
popwin.document.close()
}

',450,450);return false">/zoom.gif" border="0" alt="Full Picture">Full Picture
<% End If %>

<%=rs("bezeichnung")%> (<%=rs("artikelnr")%>)

<%=FormatMessage(rs("beschreibung"))%>

<%=FormatNumber(rs("preis"),2,,-2)%> <%=l_list7%>

" action="add.asp?a_id=<%=id%>" target="addFrame" method="post">
.submit();">
<% If stype > 0 Then %>

<% End If %>
<% stype = rs("stype") %>
<% If stype = "1" or stype = "3" Then %>
" style="font-size:11px">
Men Size (order: Europe - USA)
40 - 6.5
41 - 7.5
42 - 8
43 - 9
44 - 9.5
45 - 10

<% End If %>
<% If stype = "3" Then %>

<% End If %>
<% If stype = "2" or stype = "3" Then %>
" style="font-size:11px">
Women Size (order: Europe - USA)
36 - 4
37 - 4.5
38 - 5
39 - 5.5
40 - 6.5
41 - 7.5

<% End If %>
<% If stype > 0 Then %>

<% End If %>
<% If rs("color") <> "" Then %>
" style="font-size:11px">
Choose Color
<%
color = split(rs("color"),",")
For c=0 To UBound(color)
%>
"><%=color(c)%>
<% Next %>

<% End If %>

" size="3" value="1">
" value="<%=rs("preis")%>">
" value="<%=rs("artikelnr")%>">
" value="<%=rs("bezeichnung")%>">

<%
end if
rs.movenext
wend

if count > 0 then
sql = "select count(id) as alleEintraege from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
alleEintraege = int(rs("alleEintraege"))
%>

" colspan="2" class="text">

pages
<% for t = 0 to fix((alleEintraege-1)/10) %>
&r=<%=r%>" class="text"><%if t=(s/10) then%><%end if%><%=t+1%><%if t=(s/10) then%><%end if%> 
<% next %>

pages
<% for t = 0 to fix((alleEintraege-1)/10) %>
&r=<%=r%>" class="text"><%if t=(s/10) then%><%end if%><%=t+1%><%if t=(s/10) then%><%end if%> 
<% next %>
<%
'next
else
%>

<%=s_no_product%>

<%end if%><%else%>

<% Server.Execute("/tra/track.asp") %>
<%=start_body%>

<%end if%>

<%=copy%>
<%
rs.close
db.close
set rs = nothing
set db = nothing
Erase rubriken
%>