Envio de Arquivo

[Rammstein 0]

Pessoal tenho esse endereço, vejam:

http://www.crpdesign.com.br/blog/upload_image.asp

 

Tipo, eu tento fazer o upload de arquivo jpg ou mesmo gif, mas ele fala q ñ eh um jpg, ou q ñ eh um gif.

Alçguém sabe me dizer o pq?

Podem viajar nos códigos lá, ñ eh dficil, eu arrumei muita coisa lah, mas esse dos arquivos ñ consigo mesmo.

 

 

Obrigado desde jah.

 

 

 

O código está embaixo:

<%

 

Dim adoCon

Dim strCon

Dim strSQL

Dim rsconfiguration

Dim blnEmail ' verifica notifica email

Dim intRecordsPerPage ' numero di record per pagina

Dim emailamministratore ' indirizzo email amministratore

Dim blnCookieSet ' verifica funzione anti-spam

Dim Ublogtype ' tipologia di blog: "open" oppure "closed"

Dim Ublogname ' titolo delle pagine che ospitano Ublog

Dim StrPath ' 'percorso fisico della cartella di upload immagini

Dim StrPathShort ' percorso virtuale della cartella di upload immagini

Dim kinkoffile ' tipo di file ammessi per l'upload

Dim maxsizefile ' dimensione massima ammessa per le immagini uploadate

Dim PagesPerBlock ' numero di pagine da visualizzare i blocco

 

'#######################################

' INIZIO MODIFICA

'#######################################

 

'apertura connessione al db

Set adoCon = Server.CreateObject("ADODB.Connection")

'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb-database/blog.mdb")

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\crpdesign\web\blog\mdb-database\blog.mdb;"

adoCon.Open strCon

 

' definizione parametri upload immagini

kinkoffile = "jpg,gif,bmp,png"

maxsizefile = 50000 ' 50 kb

'Per conoscere percorso fisico della cartella di upload basta

' eseguire una pagina asp con il seguente codice:

'Response.Write "Path: " & Server.MapPath("/public/images_upload")

StrPath = "web\blog\public\images_upload"

StrPathShort = "web\blog\public\images_upload"

PagesPerBlock = 10

 

'#######################################

' FINE MODIFICA

'#######################################

 

Set rsconfiguration = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT configurazione.* FROM configurazione;"

 

rsconfiguration.CursorType = 3

rsconfiguration.Open strSQL, adoCon

 

If NOT rsconfiguration.EOF Then

 

Ublogname = rsconfiguration("nomeblog")

emailamministratore = rsconfiguration("email_address")

blnEmail = CBool(rsconfiguration("email_notify"))

intRecordsPerPage = CInt(rsconfiguration("n_record"))

blnCookieSet = CBool(rsconfiguration("cookie"))

Ublogtype = rsconfiguration("tipologia")

 

End if

rsconfiguration.Close

Set rsconfiguration = Nothing

 

Function Anteprima(sText, nParole)

 

Dim nTemp, nVolte

 

'Eliminiamo gli eventuiali caratteri di CR ed LF

sText = Replace(sText, vbCrLf, "")

 

'Cerca la fine della prima parola

nTemp = InStr(sText, " ")

 

If nTemp <> 0 Then

 

nVolte = 1

'Finche` non abbiamo finito le parole o abbiamo

'raggiunto quelle massime

While nTemp <> 0 And nVolte < nParole

 

'Incrementiamo il numero delle parole trovate

nVolte = nVolte + 1

 

'Cerchiamo la fine della parola successiva

nTemp = InStr(nTemp + 1, sText, " ")

Wend

End If

 

'Se abbiamo trovato qualche parola

If nVolte > 0 Then

 

 

'Se La variabile nTemp > 0 allora significa che

'abbiamo trovato le n parole che ci serivivano

If nTemp > 0 Then

 

'Le stampiamo insieme ai puntini

Anteprima = Mid(sText, 1, nTemp - 1) & " ..."

Else

 

'Altrimenti abbiamo trovato meno delle n

'parole. Stampiamo la frase intera

Anteprima = sText

End If

 

Else

 

' una sola parola

If Len(sText) > 0 Then

Anteprima = sText

Else

'La frase passata ha lunghezza 0

Anteprima = ""

End If

End If

 

End Function

 

Dim Ubloglanguage

Ubloglanguage = Session("language")

Select Case Ubloglanguage

Case "italian"

%>

<!--#include file="../language/language_italian.asp" -->

<%

Case Else' default language

%>

<!--#include file="../language/language_english.asp" -->

<%

End Select

%>

[Loma 0]

Fala doido, sinistro os comentários em espanhol sei lá! hehhehPo cara vou te falar que pretendo te ajudar de outra forma.tudo que eu tinha de upload eu troquei pelo sistema de upload sem componente que tem no laboratório de script, eu te aconselho a usar e você ainda pode testar seu sistema na sua máquina sem ter que instalar componente ai no iis.espero ter ajudado CHICO! hehehebjks

[Rammstein 0]

kra, to aqui pra aprende asp..entendeu?aprende ñ, aperfeiçoar, ta cheio de coment em castelhano mesmo...pq peguei o código assim, única coisa é que eu to arrumando e detalhando outros códigos e esse eu quero fazer na raça único problema é que não to conseguindo entender o porque do código falar que ñ eh uma imagem sendo que está dentro dos parâmentros...Flw

[Loma 0]

Po bicho não queima sua mufa assim não cara.conselho:faz assim ó esquece todo o sistema e abre uma página em branco e começa dali só fazer um formulário com o input e outra página para enviar o arquivo e fazer as verificações.assim tem como a gente ir passo a passo com um código limpo.vai postando ai que vou tentando dar a força daqui!bjsssss