AJUDA COM UPLOAD

CONEXAOCOMVOCE 20/09/2009 17:55:56
#323286
boa tarde gostari de um ajuda com um upload

este aqui e o index.asp

<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<HTML>
<BODY BGCOLOR=[Ô]#FFFFFF[Ô]>
<form action=[Ô]B3.asp[Ô] enctype=[Ô]multipart/form-data[Ô] method=[Ô]post[Ô] OnSubmit=[Ô]return ShowProgress();[Ô]>
<table width=[Ô]73%[Ô] border=[Ô]1[Ô]>
  <tr>
    <td width=[Ô]14%[Ô]>Descrição</td>
    <td width=[Ô]51%[Ô]><input name=[Ô]descricao[Ô] type=[Ô]text[Ô] id=[Ô]descricao[Ô] value=[Ô][Ô] size=[Ô]55[Ô] maxlength=[Ô]255[Ô] /></td>
    <td width=[Ô]35%[Ô]><input type=[Ô]file[Ô] size=[Ô]20[Ô] name=[Ô]foto_descricao[Ô] /></td>
    <tr>
    <td>palavra_do_dia</td>
    <td><input name=[Ô]palavra_do_dia[Ô] type=[Ô]text[Ô] id=[Ô]palavra_do_dia[Ô] value=[Ô][Ô] size=[Ô]55[Ô] /></td>
    <td><input type=[Ô]file[Ô] size=[Ô]20[Ô] name=[Ô]foto[Ô] /></td>
    <tr>
    <td>Sobre_a_equipe</td>
    <td><input name=[Ô]Sobre_a_equipe[Ô] type=[Ô]text[Ô] id=[Ô]Sobre_a_equipe[Ô] value=[Ô][Ô] size=[Ô]55[Ô] /></td>
    <td><input type=[Ô]file[Ô] size=[Ô]20[Ô] name=[Ô]foto_equipe[Ô] /></td>
    <tr>
    <td colspan=[Ô]4[Ô]><div align=[Ô]center[Ô]>
      <input type=SUBMIT value=[Ô]Upload![Ô] />
    </div></td>
  </tr>
</table>
</FORM>
</BODY>
</HTML>
</body>
</html>


e este aqui e o B3.asp

<html>
<head>
<title>Untitled Document</title>
</head>

<body>
<%
Set Upload = Server.CreateObject([Ô]Persits.Upload.1[Ô])

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 [ô] Limit files to 1MB
Count = Upload.Save([Ô]d:\Domains\clinicagilead.com.br\wwwroot\1\fotos\[Ô])
%>
<% = Count %> FOTO ENVIADA

<%
Dim objConn, objRs, strQuery, strConnection, descricao, palavra_do_dia, Sobre_a_equipe ,foto_descricao ,foto ,foto_equipe

descricao = Upload.form([Ô]descricao[Ô])
palavra_do_dia = Upload.form([Ô]palavra_do_dia[Ô])
Sobre_a_equipe = Upload.form([Ô]Sobre_a_equipe[Ô])

Set File = Upload.Files(1)
If File.ImageType = [Ô]GIF[Ô] or File.ImageType = [Ô]JPG[Ô] or File.ImageType = [Ô]PNG[Ô] Then
foto_descricao = File.FileName 

End If

Set objConn =  Server.CreateObject([Ô]ADODB.Connection[Ô])

objConn.Open [Ô]DBQ=d:\Domains\clinicagilead.com.br\wwwroot\1\Db1.mdb[Ô] & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô]

strQuery = [Ô]INSERT INTO noticias (descricao, palavra_do_dia, Sobre_a_equipe ,foto_descricao ,foto ,foto_equipe) VALUES ([ô][Ô]&descricao&[Ô][ô],[ô][Ô]&palavra_do_dia&[Ô][ô],[ô][Ô]&Sobre_a_equipe&[Ô][ô] ,[ô][Ô]&foto_descricao&[Ô][ô] ,[ô][Ô]&foto&[Ô][ô],[ô][Ô]&foto_equipe&[Ô][ô])[Ô]

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

objConn.close

Set objRs = Nothing
Set objConn = Nothing

if err = 0 Then

response.redirect [Ô]index.asp[Ô]
end if
%>
</body>
</html>


e o seguinte ate esta funcionando bem mais ele so esta salvando as desdrição e apenas um campo de upload no banco de dados.
EXEMPLO

DESCRIÇOES UPLOAD
1 1.GIF
2 1.GIF
3 1.GIF

ATE AI BLZ SO QUE EU GOSTARIA DE ELE SALVA SE OS UPLOAD CORETOS POIS ELE SO MANDA UM DOS CAMPOS
CONEXAOCOMVOCE 22/09/2009 16:43:48
#323448
Set File = Upload.Files(1)
If File.ImageType = [Ô]GIF[Ô] or File.ImageType = [Ô]JPG[Ô] or File.ImageType = [Ô]PNG[Ô] Then
foto_descricao = File.FileName
End If
Set File = Upload.Files(2)
If File.ImageType = [Ô]GIF[Ô] or File.ImageType = [Ô]JPG[Ô] or File.ImageType = [Ô]PNG[Ô] Then
foto = File.FileName
End If
Set File = Upload.Files(3)
If File.ImageType = [Ô]GIF[Ô] or File.ImageType = [Ô]JPG[Ô] or File.ImageType = [Ô]PNG[Ô] Then
foto_equipe = File.FileName
End If
Tópico encerrado , respostas não são mais permitidas
Voltar