Belmonte SC
-
Total de itens
27 -
Registro em
-
Última visita
Posts postados por Belmonte SC
-
-
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.
-
porque você não cria variáveis para as figuras e depois chama pelas variáveis??
-
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
-
você pode usar select case!! ao invés de if...
-
Acontece...faço isso toda a hora...de tanto código dá um nó...estou indo...até mais...quaquer coisa posta aí...
-
é verdade...presta atenção menina...eheheheh
-
você precisa colocar ../banco/xxx.mdb se o banco estiver em outro lugar.....
observe o ..
-
usa assim...
<%@ LANGUAGE="VBSCRIPT"%>
-
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?
-
Ok, faz parte, também já me ajudaram bastante...deu certo?
-
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;"
-
você vai precisar primeiro ler a serial e depois fazer a procura no bd. no VB tem um componente chamado MSCOMM. é só você desenvolver o código...diretamente em access n conheço...derrepente em VBA...
-
Ex:
<input type="radio" name="caixa" value="1" >
<input type="radio" name="caixa" value="2" >
Na página que vais postar fica:
var1= request.form("caixa")
ele vai selecionar o valor que o usuario clicou...
observe que o nome é igual, só muda os values.
-
sempre preste atenção nos "names", tanto dos radio, check button, etc...você vai usar eles para passar os valores...
-
uso assim"
set con=server.createobject("adodb.connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/banco.mdb") & ";"
você colocou contra barra!!!
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\eventos\cs\bdCS.mdb")
e outra coisa:
se o banco estiver em pasta diferente você precisa sair para entrar na pasta do banco usando o .. , então use ("../pasta/banco.mdb").
falow...
-
Cara, tenho algo parecido, só que tenho o sinal de + conforme abaixo, tirei o sinal e dá erro...tenta aí...
ComandoSQL = ComandoSQL + & "'" & Server.HTMLEncode(Request.FORM("Jog1_C")) & "',"
-
Olá Priscila, acho melhor você fazer o formulário e postar chamando outro arquivo para envio...
abaixo coloquei um exemplo do arquivo... n sei se era isso que você queria...abraço...
<%@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)
%>
-
Cara, você já conseguiu, n sei se é isso que você precisa, mas tenta aí...
Criei um formulário que posta para esse arquivo...
<%@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)
%>
acho que é isso, uso assim e funciona bem...falow...abraço
-
Meu amigo fercosmig, funcionou perfeitamente, ficou bem com eu queria e n estava conseguindo... valeu amigão...abraço.
-
Marcos 804, valeu pela dica, mas estou tentando fazer com que n precise criar essa página, gostaria de fazer apartir da página onde estao os radio buttons. Mas valeu, se eu n conseguir fazer como quero, vou fazer conforme sua sugestao... valeu...
-
Ok, se conseguir ajudar agradeço...fiquei parado nesse problema...valeu...
Gravar Fotos
em ASP
Postado
Olá cyberalexxx, valeu ... vou dar uma olhada, mas acho que era isso que precisava mesmo!!! valeu!