Hallo!
Ich habe folgendes Problem:
Ich musste eine Seite zu einem anderen Provider transferieren, da es dort probleme gab.
Es handelt sich um eine .asp seite mit DB Access 2.0 (keine Diskussion über aktualität,...).
Anscheinend war beim alten provider eine codezeile:
die vom alten provider eingefügt wurde und irgendwo auf seinen server verweist.
lösche ich die zeile kommt dann folgendes:
"Microsoft VBScript runtime error '800a000d'
Type mismatch: 'New_GroupingController' "
weiß vielleicht jemand, was das genau sein kann und was der inhalt sein könnte.
Hier der Code der Seite:
mit der bitte um dringende hilfe,
lg.
napsi
Ich habe folgendes Problem:
Ich musste eine Seite zu einem anderen Provider transferieren, da es dort probleme gab.
Es handelt sich um eine .asp seite mit DB Access 2.0 (keine Diskussion über aktualität,...).
Anscheinend war beim alten provider eine codezeile:
Code:
<!--#include virtual="compo/compo.inc"-->
lösche ich die zeile kommt dann folgendes:
"Microsoft VBScript runtime error '800a000d'
Type mismatch: 'New_GroupingController' "
weiß vielleicht jemand, was das genau sein kann und was der inhalt sein könnte.
Hier der Code der Seite:
HTML:
<%session("TopNav")="Produkte"%>
<!--#include virtual="script/header.inc"-->
<!--#include virtual="script/RSopen.inc"-->
<!--#include virtual="compo/compo.inc"-->
<div id="contflinks">
<a href="index.htm"><img src="img/hpelemente/logo.gif" alt="" border="0" style="position:relative; top:-7px; left:70px"></a>
<p></p> <div id="subnav">
<div class="scrolling1">
<ul class="vertikal">
<%
E1=Request("E1"):If(Len(E1)>0 And Len(E1)<=5 And IsNumeric(E1)) Then E1=cInt(E1) Else E1=-1
E2=Request("E2"):If(Len(E2)>0 And Len(E2)<=5 And IsNumeric(E2)) Then E2=cInt(E2) Else E2=-1
E3=Request("E3"):If(Len(E3)>0 And Len(E3)<=5 And IsNumeric(E3)) Then E3=cInt(E3) Else E3=-1
sql="Select pk1.*,pk2.*,pk3.* from (ProduktKat as pk1"+_
" left join produktkat as pk2 on pk2.previd=pk1.id and (pk2.previd)="& E1 &" and (pk2.show)<>0"+_
") left join produktkat as pk3 on pk3.previd=pk2.id and (pk3.previd)="& E2 &" and (pk3.show)<>0"+_
" Where pk1.Ebene=1 and (pk1.show)<>0 Order by pk1.Rank,pk2.Rank,pk3.rank;"
On Error Goto 0 'on error resume next
'response.write "##"+sql+"##"
RS.open SQL, Conn
dim group:set group=New_GroupingController(3)
group.FromField rs(0),1
group.FromField rs("pk2.ID"),2
group.FromField rs("pk3.ID"),3
group.NewValues
Do While Not RS.EOF
vCurLvl=0
If(Not IsNull(rs("pk3.ID"))) Then vCurLvl=3:_
Else If(Not IsNull(rs("pk2.ID"))) Then vCurLvl=2:_
Else If(Not IsNull(rs("pk1.ID"))) Then vCurLvl=1
If(group.Showing(1)) Then
sActive="":If E1=cInt(RS(0)) Then sActive=" class='active'"
Response.Write Chr(10)+"<li><a href='produkte.asp?E1="& RS(0) &"&item="& RS("pk1.ItemID") &"'"& sActive &_
">"& RS("pk1.Kategorie") &"</a></li>"
End If
If(group.Entering(2)) Then
Response.Write "<ul class=sl>"
End If
If(group.Showing(2) And Not IsNull(RS("pk2.ID"))) Then
sActive="":If E2=cInt(RS("pk2.ID")) Then sActive=" class='active'"
Response.Write "<li><a href='produkte.asp?E1="& RS(0) &"&E2="& RS("pk2.ID") &"&item="& RS("pk2.ItemID") &"'"& sActive &_
">"& RS("pk2.Kategorie") &"</a></li>"
End If
If(group.Entering(3)) Then
Response.Write "<ul class=sll>"
End If
If(group.Showing(3) And Not IsNull(RS("pk3.ID"))) Then
sActive="":If E3=cInt(RS("pk3.ID")) Then sActive=" class='active'"
Response.Write "<li><a href='produkte.asp?E1="& RS(0) &"&E2="& RS("pk2.ID") &"&E3="& RS("pk3.ID") &"&item="& RS("pk3.ItemID") &"'"& sActive &_
">"& RS("pk3.Kategorie") &"</a></li>"
End If
RS.MoveNext:group.NewValues
If(group.Leaving(3)) Then
Response.Write "</ul sll>"
End If
If(group.Leaving(2)) Then
Response.Write "</ul sl>"
End If
If(group.Leaving(1)) Then
Response.Write "</ul vert>"
End If
Loop
rs.Close
%>
</div>
</div>
<%If Request.QueryString("item")<>"" Then
sql="Select * from Produkt p left join ProduktDocs pd on pd.PID=p.ID Where p.ID=" & cStr(cInt(Request.QueryString("item")))
'sql="Select * from Produkt Where ID=" & Request.QueryString("item")
'on error resume next
RS.open SQL, Conn
if not RS.EOF then
%>
<%If RS("Bild1")<>"" Then%>
<div id="picturethumbnail1">
<img src="<%=RS("Bild1")%>" class="picture" alt="">
</div>
<%End If%>
<%
''RS.movenext
end if
%>
<%End If%>
</div>
<div id="contfrechts">
<div class="scrolling">
<%itemfound=0
If Request.QueryString("item")<>"" Then
'recordset still open & usable...
'On Error Goto 0 'On Error Resume Next
'RS.open SQL, Conn
if not RS.EOF then
%>
<p align="right" class="headline"><%=RS("Name")%></p>
<div id="contnews_product">
<ul>
<li><p class="rubrik_name">Beschreibung</p>
<p class="content"><%=RS("Beschreibung")%></p></li><br>
<li><p class="rubrik_name">Zahlen und Fakten</p>
<p class="content"><%=RS("Zahlen")%></p></li><br>
<li><p class="rubrik_name">Dokumente</p>
<%
Do Until RS.EOF
Response.Write("<p><a target='_blank' href='Dokumente/"& RS("link") &"'>"& RS("Bezeichnung") &"</a></p>")
RS.movenext
Loop
%>
</li>
</ul>
</div>
<!--<p class="verweis" align="right"><< <a href="produkte.asp?<%=link%>&item=<%=Request.QueryString("item")%>&page=2">mehr Informationen</a> >></p>-->
</div>
<%
''link=""
itemfound=1
end if
rs.Close
end if
%>
<%if 0=itemfound then%>
<p align="right" class="headline">Produkte</p>
<p class="content">Hier finden Sie unsere Produktpalette. Wir sind bemüht, diese immer am neuesten Stand zu halten.</p>
<%End If%>
</div>
</div>
<!--#include virtual="script/footer.inc"-->
mit der bitte um dringende hilfe,
lg.
napsi
Zuletzt bearbeitet: