Notifikationer

Markér alle som læst Log ud

axl_rose Nybegynder

19. oktober 2003 - 18:55 Der er 19 kommentarer og
1 løsning

Banner System - viser siden kan ikke vises

Hej allsesammen
prøv at se her www.krellers.dk/www/adm_banner.asp prøv at tilføje et banner der kommer bare en "siden kan ikke vises" nogen ide.

Det er dette script jeg bruger http://www.krellers.dk/695_banner_funktion.zip

Synes godt om

eagleeye Praktikant

19. oktober 2003 - 19:32 #1

Du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

------- Her er hvad jeg får:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/www/asp_upload_banner.asp, line 20

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Det lyder som om du enten har skrevet et forkert NAVN i en Server.CreateObject("NAVN") eller er det fordi koden bruger en komponenet som serveren ikke understytter.

Synes godt om

axl_rose Nybegynder

19. oktober 2003 - 19:58 #2

Har du en ide hvilket komponent det er??

Synes godt om

eagleeye Praktikant

19. oktober 2003 - 22:01 #3

Kun hvis du viser hvad der står i linje 20
men det er nok en upload komponent-

Synes godt om

axl_rose Nybegynder

21. oktober 2003 - 09:59 #4

<%response.buffer=true%>

<html>
<head>
<title>Upload</title>
</head>
<body>
<center>
<table width="600" border="0">
<tr>
<td width="600"><big>BANNERFUNKTION Vedligeholdelse</big>
<big><big> </big></big></td>
</tr>

<tr><td width="100%">
<%
response.write ""
select case request.querystring("action")
case ""
Set Upload = Server.CreateObject("Persits.Upload.1")

' Upload files

Upload.OverwriteFiles = False ' Generate unique names
Upload.SaveVirtual("images\")

for each file in Upload.Files
done="ja"
session("firmanavn")=upload.form("firmanavn")
session("info")=upload.form("info")
session("link")=upload.form("link")
session("koebvisninger")=upload.form("koebvisninger")

if upload.form("firmanavn")="" or upload.form("info")="" or upload.form("koebvisninger")="" then

response.redirect("adm_banner.asp?action=add&fejl="&server.URLencode("Du skal udfylde felterne Firmanavn, Information og Max. visninger"))

else

if file.size>40000 or file.imageheight>60 or file.imagewidth>468 then
file.delete

else

billednavn=File.ExtractFileName
billedhoejde=File.ImageHeight
billedbredde=File.ImageWidth

'tilføj billede i database
dim tsaddbanner, rsaddbanner
set tsaddbanner = server.createobject("ADODB.Connection")
tsaddbanner.open strBanner

strsql="INSERT into t_banner (firmanavn,info,link,banner,bredde,hoejde,antal_click,antal_visninger,max_visninger) values ('"&upload.form("firmanavn")&"','"&upload.form("info")&"','"&upload.form("link")&"','"&billednavn&"','"&billedbredde&"','"&billedhoejde&"','0','0','"&upload.form("koebvisninger")&"')"
tsaddbanner.execute(strsql)

tsaddbanner.close
set tsaddbanner=nothing

'Besked til bruger
response.write "Du er ved at gemme denne fil: " & file.originalpath & " "
response.write "Billedet blev gemt! Bannerannoncen blev oprettet. <a href='adm_banner.asp'>Vedligehold banner</a>."

end if
end if

' besked, hvis filstørrelsen er over 40 kbyte
if file.size>40000 then
response.write "Filen blev ikke gemt, da størrelsen overstiger 25 kbyte! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis højden er over 60
if file.imageheight>60 then
response.write "Filen blev ikke gemt, da højden overstiger 60 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis bredden er over 468
if file.imagewidth>468 then
response.write "Filen blev ikke gemt, da bredden overstiger 468 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

session.abandon

next

if done<>"ja" then
session("firmanavn")=upload.form("firmanavn")
session("info")=upload.form("info")
session("link")=upload.form("link")
session("koebvisninger")=upload.form("koebvisninger")
response.redirect("adm_banner.asp?action=add&fejl="&server.URLencode("Du skal vælge en fil som banner"))
end if

case "ret"

Set Upload = Server.CreateObject("Persits.Upload.1")

' Så indsætter vi det nye billede

Upload.OverwriteFiles = False ' Generate unique names
Upload.SaveVirtual("images\")

for each file in Upload.Files
if file.size>40000 or file.imageheight>60 or file.imagewidth>468 then
file.delete
else

' Først henter vi det gamle billede
dim tssletbillede, rssletbillede
set tssletbillede = server.createobject("ADODB.Connection")
tssletbillede.open strBanner
set rssletbillede=server.createobject("ADODB.recordset")
rssletbillede.open "select * from T_banner where id=" & request.querystring("id"),tssletbillede,2,3

'Så sletter vi billedet på disken, hvis der er et
if rssletbillede("banner")<>"" then
filnavn= ""
filnavn= filnavn & Server.MapPath("images") & "\" & rssletbillede("banner")
set delfile=createobject("scripting.filesystemobject")
delfile.deletefile(filnavn)
end if

billednavn=File.ExtractFileName
billedhoejde=File.ImageHeight
billedbredde=File.ImageWidth
response.write "Du er ved at gemme denne fil: " & file.originalpath & " "
response.write "Billedet i bannerannoncen blev rettet! <a href='adm_banner.asp'>Vedligehold banner - forside</a>"

'tilføj billede i database
dim tsretbanner, rsretbanner
set tsretbanner = server.createobject("ADODB.Connection")
tsretbanner.open strBanner

tsretbanner.execute("UPDATE T_banner SET banner='"&billednavn&"',bredde='"&billedbredde&"',hoejde='"&billedhoejde&"' where id="&request.querystring("id")&"")

tsretbanner.close
set tsretbanner=nothing

end if

' besked, hvis filstørrelsen er over 40 kbyte
if file.size>40000 then
response.write "Filen blev ikke gemt, da størrelsen overstiger 25 kbyte! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis højden er over 600
if file.imageheight>60 then
response.write "Filen blev ikke gemt, da højden overstiger 60 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis bredden er over 600
if file.imagewidth>468 then
response.write "Filen blev ikke gemt, da bredden overstiger 468 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

next

end select

response.write ""
%>
 
 
</td></tr></table>
</body>
</html>

Udrag linje 20.
Set Upload = Server.CreateObject("Persits.Upload.1")

Synes godt om

axl_rose Nybegynder

21. oktober 2003 - 15:41 #5

?? anyone

Synes godt om

eagleeye Praktikant

21. oktober 2003 - 17:27 #6

Fejlen kommer i denne linje så:
Set Upload = Server.CreateObject("Persits.Upload.1")

Og den fejl som kommer betyder din server ikke har installeret ASPupload komponenten.

Synes godt om

axl_rose Nybegynder

23. oktober 2003 - 16:00 #7

Hvad kan jeg så bruge!.
Dem jeg kører hos har følgende ASP komponenter installeret: JMail.Speedmailer, JMail.SMTPMail, W3Socket, AspImage, AspHTTP, AspPing, AspSmartUpload, WaitFor, GUIDMaker

Det er webdomain

Synes godt om

eagleeye Praktikant

23. oktober 2003 - 22:37 #8

De har ASPsmartUpload som upload komponent som du kan finde dokumentation her:
http://www.aspsmart.com/aspSmartUpload/

Synes godt om

axl_rose Nybegynder

24. oktober 2003 - 11:35 #9

Ja ved jeg godt, men hvordan integreres det i istedet for aspupload?

Synes godt om

axl_rose Nybegynder

24. oktober 2003 - 18:12 #10

? - ?

Synes godt om

eagleeye Praktikant

25. oktober 2003 - 00:51 #11

Noget af det kan "let" laves om men eksvis denne imageheight er det ikke en tilsvarene i ASPSmartUpload:
if file.imageheight>60 then

Du skal havde lavet dette kode:

case "ret"

Set Upload = Server.CreateObject("Persits.Upload.1")

' Så indsætter vi det nye billede

Upload.OverwriteFiles = False ' Generate unique names
Upload.SaveVirtual("images\")

for each file in Upload.Files
if file.size>40000 or file.imageheight>60 or file.imagewidth>468 then
file.delete
else

' Først henter vi det gamle billede
dim tssletbillede, rssletbillede
set tssletbillede = server.createobject("ADODB.Connection")
tssletbillede.open strBanner
set rssletbillede=server.createobject("ADODB.recordset")
rssletbillede.open "select * from T_banner where id=" & request.querystring("id"),tssletbillede,2,3

'Så sletter vi billedet på disken, hvis der er et
if rssletbillede("banner")<>"" then
filnavn= ""
filnavn= filnavn & Server.MapPath("images") & "\" & rssletbillede("banner")
set delfile=createobject("scripting.filesystemobject")
delfile.deletefile(filnavn)
end if

billednavn=File.ExtractFileName
billedhoejde=File.ImageHeight
billedbredde=File.ImageWidth
response.write "Du er ved at gemme denne fil: " & file.originalpath & " "
response.write "Billedet i bannerannoncen blev rettet! <a href='adm_banner.asp'>Vedligehold banner - forside</a>"

'tilføj billede i database
dim tsretbanner, rsretbanner
set tsretbanner = server.createobject("ADODB.Connection")
tsretbanner.open strBanner

tsretbanner.execute("UPDATE T_banner SET banner='"&billednavn&"',bredde='"&billedbredde&"',hoejde='"&billedhoejde&"' where id="&request.querystring("id")&"")

tsretbanner.close
set tsretbanner=nothing

end if

' besked, hvis filstørrelsen er over 40 kbyte
if file.size>40000 then
response.write "Filen blev ikke gemt, da størrelsen overstiger 25 kbyte! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis højden er over 600
if file.imageheight>60 then
response.write "Filen blev ikke gemt, da højden overstiger 60 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis bredden er over 600
if file.imagewidth>468 then
response.write "Filen blev ikke gemt, da bredden overstiger 468 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

next

end select

OM til noget i stil med dette:

case "ret"

Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Så indsætter vi det nye billede

'Ikke umiddelbart mulig
'Upload.OverwriteFiles = False ' Generate unique names

Upload.Save("images\")

for each file in Upload.Files
'if file.size>40000 or file.imageheight>60 or file.imagewidth>468 then
if file.size>40000 then
file.delete
else

' Først henter vi det gamle billede
dim tssletbillede, rssletbillede
set tssletbillede = server.createobject("ADODB.Connection")
tssletbillede.open strBanner
set rssletbillede=server.createobject("ADODB.recordset")
rssletbillede.open "select * from T_banner where id=" & request.querystring("id"),tssletbillede,2,3

'Så sletter vi billedet på disken, hvis der er et
if rssletbillede("banner")<>"" then
filnavn= ""
filnavn= filnavn & Server.MapPath("images") & "\" & rssletbillede("banner")
set delfile=createobject("scripting.filesystemobject")
delfile.deletefile(filnavn)
end if

billednavn=File.FileName
'billedhoejde=File.ImageHeight
'billedbredde=File.ImageWidth
response.write "Du er ved at gemme denne fil: " & file.FilePathName & " "
response.write "Billedet i bannerannoncen blev rettet! <a href='adm_banner.asp'>Vedligehold banner - forside</a>"

'tilføj billede i database
dim tsretbanner, rsretbanner
set tsretbanner = server.createobject("ADODB.Connection")
tsretbanner.open strBanner

tsretbanner.execute("UPDATE T_banner SET banner='"&billednavn&"',bredde='"&billedbredde&"',hoejde='"&billedhoejde&"' where id="&request.querystring("id")&"")

tsretbanner.close
set tsretbanner=nothing

end if

' besked, hvis filstørrelsen er over 40 kbyte
if file.size>40000 then
response.write "Filen blev ikke gemt, da størrelsen overstiger 25 kbyte! <a href='java script: history.go(-1)'>Prøv igen</a> "
end if

' besked, hvis højden er over 600
'IKKE umiddelbar mulig
'if file.imageheight>60 then
'response.write "Filen blev ikke gemt, da højden overstiger 60 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
'end if

' besked, hvis bredden er over 600
'IKKE umiddelbar mulig
'if file.imagewidth>468 then
'response.write "Filen blev ikke gemt, da bredden overstiger 468 pixels! <a href='java script: history.go(-1)'>Prøv igen</a> "
'end if

next

end select

Synes godt om

axl_rose Nybegynder

28. oktober 2003 - 11:02 #12

Den her
fejl kommer nu

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/www/asp_upload_banner.asp, line 20

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Synes godt om

axl_rose Nybegynder

28. oktober 2003 - 11:04 #13

Denne besked kommer nu!

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'OverwriteFiles'

/www/asp_upload_banner.asp, line 25

Synes godt om

axl_rose Nybegynder

28. oktober 2003 - 11:07 #14

den ligger på www.soundavenue.dk/www/adm_banner.asp , men er samme udbyder!!

Synes godt om

eagleeye Praktikant

28. oktober 2003 - 21:31 #15

Prøv at udkommentere den linje med OverwriteFiles

Synes godt om

axl_rose Nybegynder

30. oktober 2003 - 16:15 #16

????

Synes godt om

eagleeye Praktikant

30. oktober 2003 - 19:40 #17

Hvis du får fejlen
Object doesn't support this property or method: 'OverwriteFiles'

Det er fordi ASPSmartUpload ikke har den perperty, og dermed skal den udkommenteres.

Synes godt om

axl_rose Nybegynder

05. november 2003 - 12:09 #18

og hvad skal jeg så????

Synes godt om

tommy_carstensen Nybegynder

04. september 2004 - 22:50 #19

axl_rose, hvis du ikke har fået den fornødne hjælp, skal du selv lægge et svar og acceptere det, så spørgsmålet bliver lukket og ikke popper op, når man søger på ubesvarede spørgsmål. På forhånd tak!
En anden gang tror jeg, at du skal prøve dig lidt frem selv...

Synes godt om

tommy_carstensen Nybegynder

23. december 2004 - 18:07 #20

Jeg vil så helst ikke have point for ikke at have hjulpet..!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS