Providerwechsel => Codeprobleme


napsi

Erfahrenes Mitglied
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:
Code:
<!--#include virtual="compo/compo.inc"-->
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:

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:

napsi

Erfahrenes Mitglied
Hat denn keiner eine antwort oder will keiner noch details wissen, die ich vielleicht vergessen habe?