ASP script loopt vast in Firefox browser

[ZwarteKa]

Wie kan mij ('ASP no-no') helpen?
Voor een klant is destijds een website gemaakt waarin zich een ASP script bevindt. Dit script werkt prima in MS Internet Explorer, maar in Firefox krijg ik de volgende foutmelding:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'cint'
/inc_show.asp, line 14

Het script is niet door mij gemaakt, maar door een programmeur die inmiddels niet meer voor ons werkzaam is. Hoe kan ik dit oplossen? Ik heb helaas helemaal geen verstand van ASP...

De URL waar de fout zich voordoet is als volgt: [URL="http://www.decaprint.nl/decaprime-bedrijf.asp?hs=decaprime&ap=bedrijf&Folder=slideshow/decaprime/bedrijf&Index=2&Folder=slideshow/decaprime/bedrijf&Time=&Index=3&Folder=slideshow/decaprime/bedrijf&Time=[/URL]

Bij voorbaat hartelijk dank!

[city guy]

Wie kan mij ('ASP no-no') helpen?
Voor een klant is destijds een website gemaakt waarin zich een ASP script bevindt. Dit script werkt prima in MS Internet Explorer, maar in Firefox krijg ik de volgende foutmelding:



Het script is niet door mij gemaakt, maar door een programmeur die inmiddels niet meer voor ons werkzaam is. Hoe kan ik dit oplossen? Ik heb helaas helemaal geen verstand van ASP...

De URL waar de fout zich voordoet is als volgt: [URL="http://www.decaprint.nl/decaprime-bedrijf.asp?hs=decaprime&ap=bedrijf&Folder=slideshow/decaprime/bedrijf&Index=2&Folder=slideshow/decaprime/bedrijf&Time=&Index=3&Folder=slideshow/decaprime/bedrijf&Time=[/URL]

Bij voorbaat hartelijk dank!

Hi,
jouw pagina loopt in IE and Firefox vast. ASP heeft betrekking op de serverkant en is niet afhankelijk van de browser.
Dit kan alleen opgelost worden als je de asp-file publiceert, maar ik denk dat de URL waarin time= (zonder waarde) ingesloten is een probleem ZOU(!) zijn

AANPASSING
WANTED SCRIPTS: inc_show.asp EN decaprime-bedrijf.asp (vraag jouw manager om toestemming om dit te doen)

[ZwarteKa]

@ cityguy:
Nou, alvast dank voor je hulp maar ik heb eerlijk gezegd geen idee wat je bedoelt. Voor het gemak zal ik de code van inc_show.asp hieronder kopieren; wellicht kun je hier wat mee of zie je een fout?

<%
Thispage = Request.ServerVariables("script_name") & "?" & replace(Request.Querystring,"&Index="&request.querystring("Index")&"&Folder="&request.querystring("Folder")&"&Time=", "")
%>

<%
NumSeconds = "" 'CInt(Request("Time"))
thisFolder = "slideshow/"&request.querystring("hs")&"/"&request.querystring("ap")&""
myFolder = server.MapPath("/")
myTextFile = "ContLink.txt"
%>
<% if request.querystring("index") = "" then
	index = 1
	else
	index = cint(request.querystring("index"))
	end if
	%>
	<%

dim nfs,nfo
set nfs=Server.CreateObject("Scripting.FileSystemObject")
set nfo=nfs.GetFolder(myFolder & "\slideshow\"&request.querystring("hs")&"/"&request.querystring("ap"))

myTextPath = myFolder & "\" & thisFolder & "\" & myTextFile
Set objNextLink = Server.CreateObject("MSWC.NextLink")
TotalItems = (nfo.files.count)
%>
<%
If NumSeconds <> "None" Then
	If Index = TotalItems Then
		Response.Write("<META HTTP-EQUIV=""Refresh"" CONTENT=""" & NumSeconds & ";URL="&Thispage&"&Folder=" & thisFolder & """>")
	Else
		Response.Write("<META HTTP-EQUIV=""Refresh"" CONTENT=""" & NumSeconds _
			& ";URL="&Thispage&"&Index=" & Index + 1 & "&Folder=" _
			& thisFolder & "&Time=" & NumSeconds & """>")
	End If
End If
%>
<table border="0" cellpadding="0" cellspacing="0" class="afbeeldingframe">
          
          <tr>
            <td height="20">&nbsp;</td>
            <td><%
			if cint(TotalItems) > 1 then
Response.Write("<p>" & Index & "/" & TotalItems & "</p>")
end if
%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td class="frame_pijl_td"><%
If Index > 1 Then
	Response.Write("<a href="""&Thispage&"&Index=" & Index - 1 & "&Folder=" _
		& thisFolder & "&Time=" & NumSeconds & """>" & "<img src=""_images/pijl-links-"&request.querystring("hs")&".gif"" width=""17"" height=""21"" border=""0""></a>")
Else
	Response.Write("")
End If
%></td>
            <td class="kader-wit-1"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="20" height="20">&nbsp;</td>
                <td>&nbsp;</td>
                <td width="20" height="20">&nbsp;</td>
              </tr>
              <tr>
                <td>&nbsp;</td>
                <td width="281" height="181"><%
If InStr(picWholeDescription, mySeparator) Then
	picPositionSeparator = InStr(1, picWholeDescription, mySeparator)
	picTitle = Left(picWholeDescription, picPositionSeparator - 1)
	picDescription = Mid(picWholeDescription, picPositionSeparator + 5)
Else
	picTitle = picWholeDescription
	picDescription = ""
End If
%>
<%
Set fsq=Server.CreateObject("Scripting.FileSystemObject")

If (fsq.FileExists(""&myFolder & "\" & thisFolder & "\"&  Index &".jpg"))=false Then
      Response.Write("<img src=" & thisFolder & "\"&  Index &".gif width=""281"" height=""181"" >")
Set objNextLink = Nothing
Else
      Response.Write("<img src=" & thisFolder & "\"&  Index &".jpg width=""281"" height=""181"" >")
Set objNextLink = Nothing
End If

set fsq=nothing


%>
</td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td width="20" height="20">&nbsp;</td>
                <td>&nbsp;</td>
                <td width="20" height="20">&nbsp;</td>
              </tr>
            </table></td>
            <td class="frame_pijl_td"><%
If (TotalItems) > 1 or TotalItems = Index Then
	If Index < TotalItems Then
		Response.Write("<a href="""&Thispage&"&Index=" & Index + 1 & "&Folder=" _
			& thisFolder & "&Time=" & NumSeconds & """>" & "<img src=""_images/pijl-rechts-"&request.querystring("hs")&".gif"" width=""17"" height=""21"" border=""0""></a>")
	Else
		Response.Write("")
	End If
Else
	Response.Write("<a href="""&Thispage&"&Index=" & Index + 1 & "&Folder=" _
			& thisFolder & "&Time=" & NumSeconds & """>" & "<img src=""_images/pijl-rechts-"&request.querystring("hs")&".gif"" width=""17"" height=""21"" border=""0""></a>")
End If
%></td>
          </tr>
        </table>

[city guy]

Hi,
ik drukte te vroeg op Opslaan vandaar een aanpassing.

uit het materiaal kan ik voorlopig 3 mogelijkheden aangeven:
- de replace vlak voor regel 14 gaat niet goed en levert een slechte index op
- er missen afbeeldingen uit de images folder op de server
- Firefox geeft op een aantal formulieren iets anders door dan IE. Dat kan de reden zijn waarom IE wel goed werkt en Firefox niet

Ik adviseer jou om toch met een ASP-kenner dit te bekijken of voorlopig alleen de IE te gebruiken

@ cityguy:
Nou, alvast dank voor je hulp maar ik heb eerlijk gezegd geen idee wat je bedoelt. Voor het gemak zal ik de code van inc_show.asp hieronder kopieren; wellicht kun je hier wat mee of zie je een fout?

<%
Thispage = Request.ServerVariables("script_name") & "?" & replace(Request.Querystring,"&Index="&request.querystring("Index")&"&Folder="&request.querystring("Folder")&"&Time=", "")
%>

<%
NumSeconds = "" 'CInt(Request("Time"))
thisFolder = "slideshow/"&request.querystring("hs")&"/"&request.querystring("ap")&""
myFolder = server.MapPath("/")
myTextFile = "ContLink.txt"
%>
<% if request.querystring("index") = "" then
	index = 1
	else
	index = cint(request.querystring("index"))
	end if
	%>
	<%

dim nfs,nfo
set nfs=Server.CreateObject("Scripting.FileSystemObject")
set nfo=nfs.GetFolder(myFolder & "\slideshow\"&request.querystring("hs")&"/"&request.querystring("ap"))

myTextPath = myFolder & "\" & thisFolder & "\" & myTextFile
Set objNextLink = Server.CreateObject("MSWC.NextLink")
TotalItems = (nfo.files.count)
%>
<%
If NumSeconds <> "None" Then
	If Index = TotalItems Then
		Response.Write("<META HTTP-EQUIV=""Refresh"" CONTENT=""" & NumSeconds & ";URL="&Thispage&"&Folder=" & thisFolder & """>")
	Else
		Response.Write("<META HTTP-EQUIV=""Refresh"" CONTENT=""" & NumSeconds _
			& ";URL="&Thispage&"&Index=" & Index + 1 & "&Folder=" _
			& thisFolder & "&Time=" & NumSeconds & """>")
	End If
End If
%>
<table border="0" cellpadding="0" cellspacing="0" class="afbeeldingframe">
          
          <tr>
            <td height="20">&nbsp;</td>
            <td><%
			if cint(TotalItems) > 1 then
Response.Write("<p>" & Index & "/" & TotalItems & "</p>")
end if
%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td class="frame_pijl_td"><%
If Index > 1 Then
	Response.Write("<a href="""&Thispage&"&Index=" & Index - 1 & "&Folder=" _
		& thisFolder & "&Time=" & NumSeconds & """>" & "<img src=""_images/pijl-links-"&request.querystring("hs")&".gif"" width=""17"" height=""21"" border=""0""></a>")
Else
	Response.Write("")
End If
%></td>
            <td class="kader-wit-1"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="20" height="20">&nbsp;</td>
                <td>&nbsp;</td>
                <td width="20" height="20">&nbsp;</td>
              </tr>
              <tr>
                <td>&nbsp;</td>
                <td width="281" height="181"><%
If InStr(picWholeDescription, mySeparator) Then
	picPositionSeparator = InStr(1, picWholeDescription, mySeparator)
	picTitle = Left(picWholeDescription, picPositionSeparator - 1)
	picDescription = Mid(picWholeDescription, picPositionSeparator + 5)
Else
	picTitle = picWholeDescription
	picDescription = ""
End If
%>
<%
Set fsq=Server.CreateObject("Scripting.FileSystemObject")

If (fsq.FileExists(""&myFolder & "\" & thisFolder & "\"&  Index &".jpg"))=false Then
      Response.Write("<img src=" & thisFolder & "\"&  Index &".gif width=""281"" height=""181"" >")
Set objNextLink = Nothing
Else
      Response.Write("<img src=" & thisFolder & "\"&  Index &".jpg width=""281"" height=""181"" >")
Set objNextLink = Nothing
End If

set fsq=nothing


%>
</td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td width="20" height="20">&nbsp;</td>
                <td>&nbsp;</td>
                <td width="20" height="20">&nbsp;</td>
              </tr>
            </table></td>
            <td class="frame_pijl_td"><%
If (TotalItems) > 1 or TotalItems = Index Then
	If Index < TotalItems Then
		Response.Write("<a href="""&Thispage&"&Index=" & Index + 1 & "&Folder=" _
			& thisFolder & "&Time=" & NumSeconds & """>" & "<img src=""_images/pijl-rechts-"&request.querystring("hs")&".gif"" width=""17"" height=""21"" border=""0""></a>")
	Else
		Response.Write("")
	End If
Else
	Response.Write("<a href="""&Thispage&"&Index=" & Index + 1 & "&Folder=" _
			& thisFolder & "&Time=" & NumSeconds & """>" & "<img src=""_images/pijl-rechts-"&request.querystring("hs")&".gif"" width=""17"" height=""21"" border=""0""></a>")
End If
%></td>
          </tr>
        </table>