Olá Henderson, não tenho ideia de como fazer, mas valeu... preciso da ajuda de como fazer isso. Mas acho que terei que copiar primeiro as fotos para o ftp para depois escolher atraves do sistema em Asp. valeu.
Boa tarde pessoal? Preciso gravar fotos, tipo sites de imobiliárias, onde cada imóvel possui 5 fotos. Gostaria de gravar as fotos apartir do PC (local) e que as fotos fiquem disponíveis na web para todos visualizarem... Obrigado.
tenta aí... <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'recupera os valores empresa = Request.Form("empresa") atividade = Request.Form("atividade") contato = Request.Form("contato") mail = Request.Form("mail") endereco = Request.Form("endereco") cidade = Request.Form("cidade") uf = Request.Form("uf") cep = Request.Form("cep") mensagem = Request.Form("mensagem") 'Monta Mensagem HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Contatos </title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">" HTML = HTML & "<font size=""1"" face=""verdana"">" HTML = HTML & "<B>CONTATOS XXXXXX</B><BR><HR><BR>" HTML = HTML & "<B>EMPRESA : </B>" & empresa & "<BR>" HTML = HTML & "<B>ATIVIDADE : </B>" & atividade & "<BR>" HTML = HTML & "<B>CONTATO : </B>" & contato & "<BR>" HTML = HTML & "<B>E-MAIL : </B>" & mail & "<BR>" HTML = HTML & "<B>ENDEREÇO : </B>" & endereco & "<BR>" HTML = HTML & "<B>CIDADE : </B>" & cidade & "<BR>" HTML = HTML & "<B>UF : </B>" & uf & "<BR>" HTML = HTML & "<B>CEP : </B>" & cep & "<BR>" HTML = HTML & "<B>MENSAGEM : </B>" & mensagem & "<BR>" HTML = HTML & "</body>" HTML = HTML & "</html>" Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = "xxxx@xxx.com.br" EnviarMail.From = empresa 'variavel EnviarMail.Subject = "CONTATOS xxxxx" EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Body = HTML EnviarMail.Send Set EnviarMail = Nothing URL = "sucesso.html" 'direciona para uma página de ok response.redirect(URL) %>
Olá Priscila, acho que você está chamando 2 vezes para abrir a conexao, com call (que n aparece no código acima) e com include... coloque o código onde está o call
Use como o MArcos sugeriu... "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("formularios.mdb") Se o banco estiver em uma pasta separada então ("../banco/formulários.mdb") Sugiro que você coloque em uma pasta separada...
Então você pode usar assim: Com OLEDB: set con=server.createobject("adodb.connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/xxx.mdb") & ";" Ou assim: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;" você está usando com ODBC? OleDB?