Kode der ikke virker mere
HejJeg har to stumper kode der har kørt i årevis på en anden server. Nu er siden blevet flyttet til en anden host (windows 2003 Web edition) og nu vil det ikke køre mere
Første returnerer:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/copenhagen/nyheder/nyhederindhold.asp, line 70
Den anden i princippet det samme:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/copenhagen/gaestebog/gaestebogindhold.asp, line 82
Har søgt på nettet - men svarene handler altid om at der er fejl i "array" ... jeg har ikke forstand til at vurdere dette - men synes jo det er mærkeligt at den samme kode har virket før på en anden host - og nu vil den ikke mere .... Nogen der kan se på koderne og vurdere hvad der er galt ... eller er det en indstilling på IIS'en der skal rettes (jeg har selv adgang til serveren)
<%@ Language=VBScript %>
<%
%>
<!-- #INCLUDE FILE="../kodeincludes/constants_inc.asp" -->
<!-- #INCLUDE FILE="_nyheder_inc.asp" -->
<!-- #INCLUDE FILE="../kodeincludes/identify_inc.asp" -->
<!-- #INCLUDE FILE="_db_nyheds_functions_inc.asp" -->
<%
'***VARIABLER
dim nyhedsarray()
redim nyhedsarray(max_num_of_nyheder)
dim nyhedscnt
call setisAdmin() 'er det admin ?
showAsAdmin = false
if Request.QueryString("modus") = "a" and isAdmin = SHOP_LOGIN_KODE then
showasadmin = true
end if
if not isArray(NYHEDSKATEGORI_ARR) then
kategori = -1
else
if Request.QueryString("kat") = "" then
kategori = 0 'default til 1. kategori
else
kategori = cInt(Request.QueryString("kat"))
end if
end if
'showAsAdmin = true 'OBS OBS
'***HOVEDPROGRAM
call db_get_list
'***SUBS OG FUNCTIONS
sub db_get_list
dim fso
dim abs_path
dim ff, filecontent
dim contentarray
dim filesToDelete
filesToDelete = ""
abs_path = server.MapPath(SHOP_PATH_TO_LOG & "/kodenyhedsdb") 'PATH_TO_DB)
nyhedscnt = 0
set Fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(abs_path) then
Response.write "Fejl: Databasefolderen kunne ikke findes på '" & abs_path & "'. Kan ikke fortsætte"
Response.End
end if
Set f = fso.GetFolder(abs_path)
Set fc = f.Files
for each afile in fc
set ff = Fso.OpenTextFile(abs_path & "/" & afile.name, 1)
filecontent = ff.readall
ff.close
contentarray = split(filecontent, DEL)
doinclude = true
'skal det slettes ?
if contentArray(NYH_FLD_VISESTIL) <> "" then
if cDate(contentArray(NYH_FLD_VISESTIL)) < Date() then
doInclude = false
filesToDelete = filesToDelete & afile.name & "¤"
end if
end if
if not showAsAdmin then
if contentArray(NYH_FLD_VISESFRA) <> "" then
if cDate(contentArray(NYH_FLD_VISESFRA)) > Date() then
doInclude = false
end if
end if
end if
'er der kategorier ?
if isarray(NYHEDSKATEGORI_ARR) then
'skal denne kategori vises ?
if kategori <> cInt(contentArray(NYH_FLD_KATEGORI)) then
doInclude = false
end if
end if
'tilføj filnavnet
redim preserve contentarray(ubound(contentarray) + 1)
contentarray(ubound(contentarray)) = afile.name
if doinclude then
nyhedsarray(nyhedscnt) = contentArray
nyhedscnt = nyhedscnt + 1
end if
if nyhedscnt > max_num_of_nyheder then
exit for
end if
next
nyhedscnt = nyhedscnt - 1
if filesToDelete <> "" then
filesToDelete = left(filesToDelete, len(filesToDelete) -1)
filesToDelete = split(filesToDelete, "¤")
for ii = 0 to ubound(filesToDelete)
call db_slet_record (filesToDelete(ii))
next
end if
end sub
%>
<html>
<head><meta name="Author" content="Media Integration">
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
<title>Nyheder</title>
<link rel="stylesheet" href="../../txt.css">
<script language="JavaScript">
var popUpwindow, orderwindow
function showtxt(filename)
{
var anurl ='nyheds_vistext.asp?ID=' + filename + '&rnd=' + Math.random()
popUpwindow=window.open(anurl,'Beskrivelse','toolbar=no,width=400,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
}
function showimage(filename)
{
var anurl ='nyheds_visbillede.asp?ID=' + filename + '&rnd=' + Math.random()
popUpwindow=window.open(anurl,'Billede','toolbar=no,width=500,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
}
function dosubmit()
{
document.form1.submit();
}
</script>
</head>
<body bgcolor="#fff7eb" onLoad="top.mastertop.document.location.href='../mastertop/nyhedtop.html'" leftmargin="5" marginwidth="5" topmargin="5" marginheight="5">
<%
tmpKatlnkstr = ""
if isArray(NYHEDSKATEGORI_ARR) then
tmpKatlnkstr = "kat=" & kategori
end if%>
<%if showAsAdmin then%>
<p><a href="ret_nyhed.asp?<%=tmpKatlnkstr%>"><b>OPRET NYHED...</b></a>
<a href="nyhederindhold.asp?<%=tmpKatlnkstr%>"><b>Vis listen som brugeren ser den...</b></a>
</p>
<%else%>
<%if isAdmin = SHOP_LOGIN_KODE then%>
<p><a href="nyhederindhold.asp?modus=a&<%=tmpKatlnkstr%>"><b>Vis listen med administrationsfunktioner...</b></a>
</p>
<%end if%>
<%end if%>
<table border="0" cellpadding="3" cellspacing="0" width="535">
<%if isarray(NYHEDSKATEGORI_ARR) then%>
<tr>
<td colspan="3" valign="bottom" align="right">
<hr>
</td>
</tr>
<tr>
<td colspan="3" valign="bottom" align="left">
<p class="poptoptext"><font color="#000000"> <%=NYHEDSKATEGORI_ARR(kategori)%></font></p>
</td>
</tr>
<tr>
<td colspan="3" valign="bottom" align="right">
<hr>
</td>
</tr>
<%end if%>
<%
nowshowing = ""
for ii = nyhedscnt to 0 step -1
if nyhedsarray(ii)(NYH_FLD_BILLEDE) <> "" then
numofcols = 2
else
numofcols = 1
end if
%>
<tr>
<td width="80"><%=nyhedsarray(ii)(NYH_FLD_VISESFRA)%></td>
<%if nyhedsarray(ii)(NYH_FLD_BILLEDE) = "" then%>
<td colspan="2" width="455"><b><%=nyhedsarray(ii)(NYH_FLD_NAVN)%></b></td>
<%else%>
<td width="355"><b><%=nyhedsarray(ii)(NYH_FLD_NAVN)%></b></td>
<td rowspan="2" valign="top" align="right" >
<a href="java script:showimage('<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>')" ><img src="<%= PATH_TO_NYHEDS_THUMBS & "/" & nyhedsarray(ii)(NYH_FLD_THUMB)%>" border="0"></a>
</td>
<%end if%>
</tr>
<tr>
<td></td>
<%if nyhedsarray(ii)(NYH_FLD_BILLEDE) = "" then%>
<td colspan="2" width="455">
<%else%>
<td width="355">
<%end if%>
<%= replace(left(nyhedsarray(ii)(NYH_FLD_BESKRIVELSE), 200), chr(13), "<br>")%>
<%if len(nyhedsarray(ii)(NYH_FLD_BESKRIVELSE)) > 200 then%>
...<a href="java script:showtxt('<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>')"> Læs mere</a>
<%end if%>
</td>
</tr>
<%if showAsAdmin then%>
<tr height="18">
<td valign="bottom" height="18" colspan="3">
<%if nyhedsarray(ii)(NYH_FLD_VISESTIL) <> "" then%>
<i>Slettes d. <%=nyhedsarray(ii)(NYH_FLD_VISESTIL)%></i>
<%end if%>
</td>
</tr>
<tr height="18">
<td bgcolor="#faebd7" valign="bottom" height="18" colspan="3">
<a href="ret_nyhed.asp?ID=<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>RET NYHED</b></a> / <a href="slet_nyhed.asp?ID=<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>SLET NYHED</b></a>
</td>
</tr>
<%end if%>
<tr>
<td colspan="3" valign="top" align="right">
<hr>
</td>
</tr>
<%next%>
</table>
</body>
</html>
Her kommer den anden
<%@ Language=VBScript %>
<%
%>
<!-- #INCLUDE FILE="../kodeincludes/constants_inc.asp" -->
<!-- #INCLUDE FILE="_gaestebog_inc.asp" -->
<!-- #INCLUDE FILE="../kodeincludes/identify_inc.asp" -->
<!-- #INCLUDE FILE="_db_gaestebog_functions_inc.asp" -->
<%
'***VARIABLER
dim nyhedsarray()
redim nyhedsarray(max_num_of_indlaeg)
dim nyhedscnt
call setisAdmin() 'er det admin ?
showAsAdmin = false
if Request.QueryString("modus") = "a" and isAdmin = SHOP_LOGIN_KODE then
showasadmin = true
end if
if not isArray(GAESTEBOGKATEGORI_ARR) then
kategori = -1
else
if Request.QueryString("kat") = "" then
kategori = 0 'default til 1. kategori
else
kategori = cInt(Request.QueryString("kat"))
end if
end if
if kategori = -1 then
indlaegSkalGodkendes = GAESTEBOGGODK_ARR(0)
else
indlaegSkalGodkendes = GAESTEBOGGODK_ARR(kategori)
end if
if indlaegSkalGodkendes = "J" then
indlaegSkalGodkendes = true
else
indlaegSkalGodkendes = false
end if
'showAsAdmin = true 'OBS OBS
'***HOVEDPROGRAM
call db_get_list
'***SUBS OG FUNCTIONS
sub db_get_list
dim fso
dim abs_path
dim ff, filecontent
dim contentarray
dim filesToDelete
filesToDelete = ""
abs_path = server.MapPath(SHOP_PATH_TO_LOG & "/kodegaestebogDB") 'PATH_TO_DB)
nyhedscnt = 0
set Fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(abs_path) then
Response.write "Fejl: Databasefolderen kunne ikke findes pŒ '" & abs_path & "'. Kan ikke forts¾tte"
Response.End
end if
Set f = fso.GetFolder(abs_path)
Set fc = f.Files
for each afile in fc
set ff = Fso.OpenTextFile(abs_path & "/" & afile.name, 1)
filecontent = ff.readall
ff.close
contentarray = split(filecontent, DEL)
doinclude = true
'skal det slettes ?
if contentArray(GB_FLD_VISESTIL) <> "" then
if cDate(contentArray(GB_FLD_VISESTIL)) < Date() then
doInclude = false
filesToDelete = filesToDelete & afile.name & "¤"
end if
end if
if not showAsAdmin then
if contentArray(GB_FLD_VISESFRA) <> "" then
if cDate(contentArray(GB_FLD_VISESFRA)) > Date() then
doInclude = false
end if
end if
end if
if not showAsAdmin and indlaegSkalGodkendes then
if contentArray(GB_FLD_PUBLISERET) <> "J" then
doInclude = false
end if
end if
'er der kategorier ?
if isarray(GAESTEBOGKATEGORI_ARR) then
'skal denne kategori vises ?
if kategori <> cInt(contentArray(GB_FLD_KATEGORI)) then
doInclude = false
end if
end if
'tilf¿j filnavnet
redim preserve contentarray(ubound(contentarray) + 1)
contentarray(ubound(contentarray)) = afile.name
if doinclude then
nyhedsarray(nyhedscnt) = contentArray
nyhedscnt = nyhedscnt + 1
end if
if nyhedscnt > max_num_of_indlaeg then
exit for
end if
next
nyhedscnt = nyhedscnt - 1
if filesToDelete <> "" then
filesToDelete = left(filesToDelete, len(filesToDelete) -1)
filesToDelete = split(filesToDelete, "¤")
for ii = 0 to ubound(filesToDelete)
call db_slet_record (filesToDelete(ii))
next
end if
end sub
%>
<html>
<head><meta name="Author" content="Media Integration">
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
<title>Gæstebog</title>
<link rel="stylesheet" href="../../txt.css">
<script language="JavaScript">
var popUpwindow, orderwindow
function showtxt(filename)
{
var anurl ='gaestebog_vistext.asp?ID=' + filename + '&rnd=' + Math.random()
popUpwindow=window.open(anurl,'Beskrivelse','toolbar=no,width=400,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
}
function showimage(filename)
{
var anurl ='gaestebog_visbillede.asp?ID=' + filename + '&rnd=' + Math.random()
popUpwindow=window.open(anurl,'Billede','toolbar=no,width=500,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
}
function dosubmit()
{
document.form1.submit();
}
</script>
</head>
<body bgcolor="#fff7eb" onLoad="top.mastertop.document.location.href='../mastertop/gastetop.html'" leftmargin="5" marginwidth="5" topmargin="5" marginheight="5">
<%
tmpKatlnkstr = ""
if isArray(GAESTEBOGKATEGORI_ARR) then
tmpKatlnkstr = "kat=" & kategori
end if%>
<p><a href="ret_gaestebog.asp?<%=tmpKatlnkstr%>"><b>Skriv i gæstebogen...</b></a></p>
<%if showAsAdmin then%>
<p>
<a href="gaestebogindhold.asp?<%=tmpKatlnkstr%>"><b>Vis listen som brugeren ser den...</b></a>
</p>
<%else%>
<%if isAdmin = SHOP_LOGIN_KODE then%>
<p>
<a href="gaestebogindhold.asp?modus=a&<%=tmpKatlnkstr%>"><b>Vis listen med administrationsfunktioner...</b></a>
</p>
<%end if%>
<%end if%>
<table border="0" cellpadding="3" cellspacing="0" width="535">
<%if isarray(GAESTEBOGKATEGORI_ARR) then%>
<tr>
<td colspan="3" valign="bottom" align="right">
<hr>
</td>
</tr>
<tr>
<td colspan="3" valign="bottom" align="left">
<p class="poptoptext"><font color="#000000"> <%=GAESTEBOGKATEGORI_ARR(kategori)%></font></p>
</td>
</tr>
<tr>
<td colspan="3" valign="bottom" align="right">
<hr>
</td>
</tr>
<%end if%>
<%
nowshowing = ""
for ii = nyhedscnt to 0 step -1
if nyhedsarray(ii)(GB_FLD_BILLEDE) <> "" then
numofcols = 2
else
numofcols = 1
end if
bgcol = ""
if indlaegSkalGodkendes and nyhedsarray(ii)(GB_FLD_PUBLISERET) <> "J" then
bgcol = " bgcolor=#ffffe0 "
end if
%>
<tr <%=bgcol%>>
<td width="80"><%=nyhedsarray(ii)(GB_FLD_VISESFRA)%></td>
<%if nyhedsarray(ii)(GB_FLD_BILLEDE) = "" then%>
<td colspan="2" width="455"><b><%=nyhedsarray(ii)(GB_FLD_NAVN)%></b></td>
<%else%>
<td width="355"><b><%=nyhedsarray(ii)(GB_FLD_NAVN)%></b></td>
<td rowspan="2" valign="top" align="right" >
<a href="java script:showimage('<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>')" ><img src='<%= PATH_TO_GAESTEBOG_THUMBS & "/" & nyhedsarray(ii)(GB_FLD_THUMB)%>' border="0"></a>
</td>
<%end if%>
</tr>
<tr <%=bgcol%>>
<td></td>
<%if nyhedsarray(ii)(GB_FLD_BILLEDE) = "" then%>
<td colspan="2" width="455">
<%else%>
<td width="355">
<%end if%>
<%= left(nyhedsarray(ii)(GB_FLD_BESKRIVELSE), 65)%>
<%if len(nyhedsarray(ii)(GB_FLD_BESKRIVELSE)) > 65 then%>
...<a href="java script:showtxt('<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>')"> Læs mere</a>
<%end if%>
</td>
</tr>
<%if showAsAdmin then%>
<tr height="18" <%=bgcol%>>
<td valign="bottom" height="18" colspan="3">
<%if nyhedsarray(ii)(GB_FLD_VISESTIL) <> "" then%>
<i>Slettes d. <%=nyhedsarray(ii)(GB_FLD_VISESTIL)%></i>
<%end if%>
</td>
</tr>
<tr height="18" <%=bgcol%>>
<td bgcolor="#faebd7" valign="bottom" height="18" colspan="3">
<a href="ret_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>RET INDLÆG</b></a> / <a href="slet_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>SLET INDLÆG</b></a>
<%if indlaegSkalGodkendes then
if nyhedsarray(ii)(GB_FLD_PUBLISERET) = "J" then%>
/ <a href="publiser_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&STAT=N&kat=<%=kategori%>"><b>FJERN GODKENDELSE AF INDLÆG</b></a>
<%else%>
/ <a href="publiser_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&STAT=J&kat=<%=kategori%>"><b>GODKEND INDLÆG</b></a>
<%end if
end if%>
</td>
</tr>
<%end if%>
<tr>
<td colspan="3" valign="top" align="right">
<hr>
</td>
</tr>
<%next%>
</table>
</body>
</html>
