Serverobject error 'ASP 0177 : 800401f3' - Softwareontwikkeling

woensdag 2 juli 2008 02:22

Acties:

Verwijderd

Topicstarter

Help!

Ik draai een ASP siteje met daaraan een database...
Alle ASP files werken perfect. Echter geeft er een telkens een foutmelding...

Serverobject error 'ASP 0177 : 800401f3'

Server.CreateObject mislukt

/admin/fotogallerie/save.asp, line 105

800401f3

Is dit op te lossen? Op internet gaat het allemaal over rechten ik heb aan de groep administrators al everyone, iisusers etc. toegekend. Tevens deze rechten op de system32 map gezet...
(inmiddels allemaal weer terug gezet)

Rechten op de mappen zelf aangepast naar everyone/iedereen en de iis users erbij geplaatst...
Helaas geen resultaat...

Hieronder de code van de file:



<%
IF len(session("Login")) =0 Then
Response.Redirect "../index.asp"
End IF
%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link REL="stylesheet" HREF="../css/cmt.css" TYPE="text/css">
<title>Generate Thumbnails</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#FF0000" class="texthead">

<%

'*
'* Check of de fotogallerie al niet bestaat
'*
Dim username,password, sql

categorie = Request.Form("categorie")

'*
'* SQL Connectie opbouwen naar de Database
'*

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Dsn

sql = "SELECT * FROM tblFotogallerie WHERE categorie = '" & Replace(categorie ,"'","''") & "'"

Set objRecGet = conn.execute(sql)
if NOT objRecGet.EOF Then
%>
<script>
alert("Fotogallerie bestaat al !");
history.back(-1);
</script>
<%
Response.End
End IF

objRecGet.Close
conn.Close

dim strSQL
Dim i

'*
'* Maak van de string een array
'*

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Dsn

'*
'* Haal de waardes op uit de database
'*

If Request.Form("vDay") <= 12 Then
Datum = CDate(Replace(Request.Form("vMonth"),"'","''") & "/" & Replace(Request.Form("vDay"),"'","''") & "/" & Replace(Request.Form("vYear"),"'","''"))
Else
Datum = CDate(Replace(Request.Form("vDay"),"'","''") & "/" & Replace(Request.Form("vMonth"),"'","''") & "/" & Replace(Request.Form("vYear"),"'","''"))
End If

'aDay = Day(Datum)
'aMonth = Monthname(Month(Datum),True)
'aYear = Year(Datum)

'Datum = aDay & "-" & aMonth & "-" & aYear

Naam = Replace(Request.Form("Naam") ,"'","''")
strSQL = "INSERT into tblFotogallerie(Naam,categorie,Datum) VALUES('" & naam & "','" & categorie & "',#" & Datum & "#)"
conn.execute(strSQL)

'*
'* Resize de images
'*

Set objFso = CreateObject("Scripting.FileSystemObject")

If NOT objFso.FolderExists(Server.MapPath("/photogallery/" & categorie) & "\thumbnails\") Then
objFso.CreateFolder(Server.MapPath("/photogallery/" & categorie) & "\thumbnails\")
End If

Set objFiles = objFso.GetFolder(Server.MapPath("/photogallery/" & categorie & "/") )
Set fileList = objFiles.Files
For Each item in fileList

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.Open Server.MapPath("/photogallery/" & categorie) & "\" & item.name
Jpeg.Width = 100
Jpeg.Height = Jpeg.OriginalHeight * 100 / Jpeg.OriginalWidth

Jpeg.Save Server.MapPath("/photogallery/" & categorie & "/thumbnails/") & "\" & item.name

Response.write "Thumbnail for : " & item.name & " Created<BR>"
Response.Flush
next

Set objFiles2 = objFso.GetFolder(Server.MapPath("/photogallery/" & categorie & "/") )
Set fileList2 = objFiles.Files
For Each item in fileList2

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.Open Server.MapPath("/photogallery/" & categorie) & "\" & item.name
Jpeg.Width = 640
Jpeg.Height = Jpeg.OriginalHeight * 640 / Jpeg.OriginalWidth

Jpeg.Save Server.MapPath("/photogallery/" & categorie & "/") & "\" & item.name

Response.write "Resized " & item.name & "<BR>"
Response.Flush
next

%>
<script>
location.href = 'edit.asp';
</script>
</body>
</html>

Heeft iemand dit eerder gehad?

woensdag 2 juli 2008 02:39

Acties:

Aapje

Opel-beun

Heb je de map 'photogallery' + onderliggende mappen al goed gezet qua rechten? de IIS User account moet je erop schrijf rechten geven. Anders kan deze niet je foto's opslaan.

woensdag 2 juli 2008 07:48

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Is de library uberhaupt geregistreerd? Zie http://forums.asp.net/p/1127066/1775668.aspx En waar heb je op gezocht;de zoekwoorden bij mij leverden vooral hints naar registratie op en niet naar een rechtenset.

[ Voor 53% gewijzigd door gorgi_19 op 02-07-2008 07:49 ]

Digitaal onderwijsmateriaal, leermateriaal voor hbo

woensdag 2 juli 2008 08:27

Acties:

Niemand_Anders

Dat was ik niet..

Omdat ik eigenlijk geen zin heb om te tellen, zou je even regel 105 apart willen vermelden? Ik doe daarbij de aanname dat de lap code save.asp is?

If it isn't broken, fix it until it is..

woensdag 2 juli 2008 08:53

Acties:

sig69

En tussen code tags zetten?

Roomba E5 te koop

woensdag 2 juli 2008 08:57

Acties:

SierdW

Regel 105 is volgens mij Set Jpeg = Server.CreateObject("Persits.Jpeg") en ASP 0177 : 800401f3' slaat voor zover ik weet en zoals gorgi_19 al zegt op een niet geregistreerde library, klik...

woensdag 2 juli 2008 15:24

Acties:

Verwijderd

Topicstarter

Het zit hem niet in de rechten. Deze staan goed. Uiteraard had ik even gekeken of hij de images wel kon weg schrijven. Maar wat is een niet geregistreerde library?

Wil dat zeggen dat ik de aspjpeg.dll moet registreren?
Maar deze staat niet op de server... ik heb wel een site gevonden www.aspjpeg.com maar daar kost het geld om deze te downloaden.

woensdag 2 juli 2008 15:28

Acties:

Sebazzz

3dp

Verwijderd schreef op woensdag 02 juli 2008 @ 15:24:
Maar wat is een niet geregistreerde library?

Als ik me niet vergis moet je in terminal regsvr32 <bestand> uitvoeren.

[Te koop: 3D printers] [Website] Agile tools: [Return: retrospectives] [Pokertime: planning poker]

woensdag 2 juli 2008 15:31

Acties:

Creepy

Tactical Espionage Splatterer

http://www.aspjpeg.com/manual_01.html legt je precies uit hoe en wat. En ja, als je Server.CreateObject("Persits.Jpeg") gebruikt is de kans zeer groot dat je die lib moet kopen. De maker van dit script had je dat prima kunnen vertellen.

Anyway, het probleem is nu wel duidelijk. Het lijkt me handiger dat je de persoon die het script gemaakt heeft om suppurt gaat vragen.

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney