Ny i ASP og får en fejl der aldrig har været der før
Jeg er ny i ASP meget ny.Men har lovet at hjælpe Hepatitis Foreningen gratis med deres hjemmeside det som undre mig og Wannafind som hoster det er ikke til meget hjælp er at det problem der er kommet nu aldrig har været der før.
D. 29-06-2011 laver landsformanden en artikel og alt virker.
D. 21-07-2011 logger jeg på FTP serveren for første gang og kopiere alt til min HDD så jeg kan sætte mig ind i ASP og hvordan deres hjemmeside er bygget op.
D. 28-07-2011 Vil landsformanden lave en ny artikel men når hun prøver at finde et foto og sætte ind får hun en fejl 500 efter snak med Wannafind lykkes det mig at få en uddybet fejl som siger:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/billeder/fotogalleri.asp, line 66
800401f3
Fejlen har aldrig været der før og filen der henvises til har ikke været redigeret eller ændret på noget tidspunkt.
Her er indhold af filen:
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Galleri</title>
<style>
<!--
body { font-family: Arial }
td.left { border-left: 1px solid #8E1310 }
td.right { border-right: 1px solid #8E1310 }
-->
</style>
</head>
<body bgcolor="#00709E">
<div align="center">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="800" bordercolor="#000000">
<tr>
<td bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<p align="center">
<font size="5" color="#FF0000"> </font></p>
<table border="0" width="100%">
<tr>
<p align="center">
<%
If Session("testlogind") <> "ok" Then
Response.Redirect ("../index.asp")
End If
dim x, strFuldeSti
Link = Request.Querystring("link")
intId = Request.Querystring("Idxx")
If Link <> "" Then
Session("link") = Link
End If
' response.Write Link
strFuldeSti = "d:/web/hepatitisforeningen.dk/billeder/images/"
FotoDir = "./images/"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(FotoDir))
Set objFiles = objFolder.Files
Set strImage = Server.CreateObject("AspImage.Image") <--- linje 66
x = 0
For Each Foto In objFiles
strOriginal = strFuldeSti & Foto.Name
strImage.LoadImage strOriginal
If Right(Foto.Name,3) = "jpg" Then
If x = 5 Then
Response.Write "</tr><tr><td align=""center""><img border=""0"" src=""vis2.asp?File=" & Foto.Name & """ ><br>" & Foto.Name & "<br>" & strImage.MaxY & " * " & strImage.MaxX & "<br><a href=""" & session("link") & "?idxx=" & intId & "&file=" & Foto.Name & """>Indsæt</a></td>"
x = 1
Else
x = x + 1
Response.Write "<td align=""center""><img border=""0"" src=""vis2.asp?File=" & Foto.Name & """ ><br>" & Foto.Name & "<br>" & strImage.MaxY & " * " & strImage.MaxX & "<br><a href=""" & session("link") & "?idxx=" & intId & "&file=" & Foto.Name & """>Indsæt</a></td>"
End If
End If
Next
Set MyImage = Nothing
Set strImage = Nothing
Set objFS = Nothing
Set objFolder = Nothing
Set objFiles = Nothing
%>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<p> </p>
<p></p>
</body>
</html>
Er der nogen som har en ide til hvorfor den pludselig ikke vil snakke med os mere?
