Jump to content
Fórum Script Brasil

Belmonte SC

Membros
  • Posts

    27
  • Joined

  • Last visited

About Belmonte SC

Belmonte SC's Achievements

0

Reputation

  1. Belmonte SC

    Gravar Fotos

    Olá cyberalexxx, valeu ... vou dar uma olhada, mas acho que era isso que precisava mesmo!!! valeu!
  2. Belmonte SC

    Gravar Fotos

    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.
  3. Belmonte SC

    Gravar Fotos

    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.
  4. porque você não cria variáveis para as figuras e depois chama pelas variáveis??
  5. 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 = "[email protected]" 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) %>
  6. 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
  7. você pode usar select case!! ao invés de if...
  8. Acontece...faço isso toda a hora...de tanto código dá um nó...estou indo...até mais...quaquer coisa posta aí...
  9. é verdade...presta atenção menina...eheheheh
  10. você precisa colocar ../banco/xxx.mdb se o banco estiver em outro lugar..... observe o ..
  11. usa assim... <%@ LANGUAGE="VBSCRIPT"%>
  12. 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...
  13. 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?
  14. Ok, faz parte, também já me ajudaram bastante...deu certo?
  15. Priscila, bco.open("driver={Microsoft Access Driver (*.mdb)}; DBQ=formularios.mdb") você precisa indicar o drive apos o DBQ, ex: "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;"
×
×
  • Create New...