maktub
-
Total de itens
170 -
Registro em
-
Última visita
Tudo que maktub postou
-
Olá colegas, preciso da ajuda de vocês novamente, bom eu criei um fale conosco que funciona com componente cdonts, o cliente preenche a dúvida e o e-mail é encaminhado para meu endereço, querendo ser um pouco chato quero que assim que o formulário for preenchido seja enviado o e-mail pra mim com as dúvidas e um e-mail para quem solicitou dizendo que foi encaminhado com sucesso e em breve o suporte entra em contato, tem como fazer isso? segue meu código, aproveitando para quem quiser pegar a fonte, o e-mail funciona certinho ok. esse é o responsável por me enviar e-mail: <% 'Email para onde serão enviados os dados do formulário email_form = "meue-mail@teste.com.br" 'Título do email assunto_form = "Fale Conosco" 'Servidor de email servidor = "smtp.teste.com.br" componente = "CDONTS" 'Cabeçalho do texto do email recebido cabecalho_email = "Contato via Web" '******************************************************************* %> Componente CDONTS: Case "CDONTS" on error resume next Set eObjMail = Server.CreateObject("CDONTS.NewMail") eObjMail.to = ParaEmail eObjMail.from = NomeEmail & "<" & Email & ">" eObjMail.subject = Assunto eObjMail.Importance = 1 eObjMail.BodyFormat = 0 eObjMail.MailFormat = 0 eObjMail.body = Mensagem eObjMail.send Set eObjMail = nothing End Select End Function Esse é o código completo: <% 'Email para onde serão enviados os dados do formulário email_form = "meue-mail@teste.com.br" 'Título do email assunto_form = "Fale Conosco" 'Servidor de email servidor = "smtp.teste.com.br" componente = "CDONTS" 'Cabeçalho do texto do email recebido cabecalho_email = "Contato via Web" '******************************************************************* %> <HTML> <HEAD> <TITLE>Fale Conosco</TITLE> <meta name="robots" content="ALL"> <style type="text/css"> <!-- .campo_alerta { font-family: Tahoma, Verdana, Arial; font-size: 11px; background-color: #E0E0E0; border: 1px solid #000000 } .texto_pagina { font-family: Arial; font-size: 11px; color: #000000 } .tabela_formulario { width: 200; background-color: white; } .titulo_campos { font-family: arial; font-size: 11px; color: #000000; background-color: #FFFFFF } .campos_formulario { font-family: arial; font-size: 11px; color: #000000; background-color: #FFFFFF; border-style: solid; border-width: 1px } --> </style> <link href="../assets/teste.css" rel="stylesheet" type="text/css"> </HEAD> <BODY class=texto_pagina> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <% If Not IsEmpty(Request.Form) Then strMsg = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" strMsg = strMsg & "<HTML><HEAD>" strMsg = strMsg & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>" strMsg = strMsg & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>" strMsg = strMsg & "<BODY><FONT face=Tahoma size=2><B>" & cabecalho_email & "</B><BR><BR>" strMsg = strMsg & "<B>Nome:</B><BR><BR>" & Trim(Request.Form("Campo1")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>e-mail:</B><BR><BR>" & Trim(Request.Form("Campo3")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Telefone:</B><BR><BR>" & Trim(Request.Form("Campo2")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Celular:</B><BR><BR>" & Trim(Request.Form("Campo4")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Segmento Desejado:</B><BR><BR>" & Trim(Request.Form("Campo5")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Tipo da transação:</B><BR><BR>" & Trim(Request.Form("Campo6")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Tipo do evento:</B><BR><BR>" & Trim(Request.Form("Campo7")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Endereço da instituição:</B><BR><BR>" & Trim(Request.Form("Campo8")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Complemento:</B><BR><BR>" & Trim(Request.Form("Campo9")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Bairro:</B><BR><BR>" & Trim(Request.Form("Campo11")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>CEP:</B><BR><BR>" & Trim(Request.Form("Campo10")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Cidade:</B><BR><BR>" & Trim(Request.Form("Campo12")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Estado:</B><BR><BR>" & Trim(Request.Form("Campo13")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Mensagem:</B><BR><BR>" & Trim(Request.Form("Campo14")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "</FONT></BOBY>" strMsg = strMsg & "</HTML>" EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem) Select Case Componente Case "CDONTS" on error resume next Set eObjMail = Server.CreateObject("CDONTS.NewMail") eObjMail.to = ParaEmail eObjMail.from = NomeEmail & "<" & Email & ">" eObjMail.subject = Assunto eObjMail.Importance = 1 eObjMail.BodyFormat = 0 eObjMail.MailFormat = 0 eObjMail.body = Mensagem eObjMail.send Set eObjMail = nothing End Select End Function %> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"><font face="Arial"><img border="0" src="../assets/emailobrigado.gif"> <% Else %> </font></p> <form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return verifica_form(this);"> <p align="left"><font color="#FF0000" class=textBoldColor>* campos obrigatórios</font></p> <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario width="100%"> <TR class=titulo_campos><TD valign="top" width="100%"> <p align="left"><img border="0" src="../assets/ico_emblema.gif"> </p> </TD><TD valign="middle" width="100%"> <p align="left"> <b>Dados do usuário</b> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Nome:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=200" type="text" name="Campo1" maxlength="60" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">e-mail:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=150" type="text" name="Campo3" maxlength="70" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" df_validar="email" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Telefone:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=100" type="text" name="Campo2" maxlength="12" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Celular: </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=150" type="text" name="Campo4" maxlength="12" value="" onKeyPress="desabilita_cor(this)" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <img border="0" src="../assets/ico_emblema.gif"> </TD><TD valign="middle" width="100%"> <p align="left"> <b>Dados para contato</b> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Segmento desejado:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <SELECT style="width=150" name="Campo5" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario> <OPTION value=""></OPTION> <OPTION value="Evento Artístico">Evento Artístico</OPTION> <OPTION value="Evento Corporativo">Evento Corporativo</OPTION> <OPTION value="Formaturas">Formaturas</OPTION> <OPTION value="Evento Promocional">Evento Promocional</OPTION> </SELECT> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Tipo de transação:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="radio" name="Campo6" value="Orçamento" df_verificar="sim"> Orçamento <input type="radio" name="Campo6" value="Locação" df_verificar="sim">Locação </p> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Tipo do evento:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="radio" name="Campo7" value="Aberto" df_verificar="sim"> Aberto<input type="radio" name="Campo7" value="Fechado" df_verificar="sim">Fechado </p> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Endereço da instituição:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=200" type="text" name="Campo8" maxlength="150" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Complemento: </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=100" type="text" name="Campo9" maxlength="70" value="" onKeyPress="desabilita_cor(this)" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Bairro:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=150" type="text" name="Campo11" maxlength="70" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">CEP:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=100" type="text" name="Campo10" maxlength="9" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Cidade:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=150" type="text" name="Campo12" maxlength="70" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Estado:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <INPUT style="width=150" type="text" name="Campo13" maxlength="50" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario> </p> </TD></TR> <TR class=titulo_campos><TD valign="top" width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left">Mensagem:* </TD><TD width="100%"> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <TEXTAREA name="Campo14" df_verificar="sim" onKeyPress="desabilita_cor(this)" class=campos_formulario rows="6" cols="35"></TEXTAREA> </p> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> </p> </TD></TR> </TABLE> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <input type="submit" name="submit" value="Enviar" class=textBoldColor style="font-family: arial; font-size: 11"> </form> <% End If %> </BODY> </HTML> Valeu mais uma vez galera. Maktub
-
mas até ai se fizer um print screen terá mais trabalho para editar e não terá tanta qualidade mesmo assim é bom dificultar vi isso em algum site, mas não lembro como ele fez isso, quando eu salvei pelo menu arquivo baixou as figuras do site em branco, achei genial a idéia..
-
E ai galera tudo bem? Bom quero saber se tem como, na página que estou desenvolvendo quero criar segurança para bloquear qualquer tipo de cópia (quanto ao código, tudo bem já uso ASP), queria saber se tem algum código para que o usuário não possa copiar fotos ou figuras do site? já bloquei o mouse mas se ele for em Arquivos - Salvar Como, ele vai conseguir salvar meus arquivos GIF e JPG, tem como criar algo para quando ele fizer isso e as fotos ou figuras do site não salvarem na máquina? Tem algum exemplo? abraços
-
Beleza, fiz isso, realmente ela não ta compartilhada não
-
tem como resolver isso? Mas é aquela história, no PSW funciona, queria que funcionasse no IIS também para testes, então não tem como?
-
no psw ele roda normal, só no iis que fica essa frescura de "arquivo já esta em uso" ...
-
como assim? Me explica ai to aceitando sugestões, manda
-
Outro código que não abre, esse é o total ecommerce: <table width="100%" border="0" cellspacing="0" cellpadding="0" class="barra_busca" background="imagens/fundo_busca.gif"> <form name="form_busca" method="post" action="busca.asp"> <tr> <td width="1%"><img src='imagens/antes_busca.gif'></td> <td width="40%"><strong><font color="#B9C7C0"> </font></strong></td> <td width="60%" align="right" nowrap><strong><font color="#B9C7C0"> <img src="imagens/buscar_buscar.gif" align="absmiddle"> <input name="busca" type="text" class="form_barra_busca" id="busca" style="width:100px"> <img src="imagens/buscar_em.gif" align="absmiddle"> <% Set objCon_busca = Server.CreateObject("ADODB.Connection") objCon_busca.Open Application("te_conexao") Response.Write " <select name='secao' class='form_barra_busca' style='width:120px'>" Response.Write " <option value=''>Todas as seções</option>" Set objRS_secoes = Server.CreateObject("ADODB.Recordset") objRS_secoes.CursorLocation = 2 objRS_secoes.CursorType = 0 objRS_secoes.LockType = 2 strQ = "SELECT * FROM secoes ORDER BY ordem_exibicao ASC, titulo_texto ASC" objRS_secoes.Open strQ, objCon_busca, , , &H0001 While Not objRS_secoes.EOF Response.Write " <option value='" & objRS_secoes.Fields.Item("id").Value & "'" If Trim(Request("secao")) <> "" Then If Int(Request("secao")) = Int(objRS_secoes("id")) Then Response.Write " selected" End If Response.Write ">" & objRS_secoes.Fields.Item("titulo_texto").Value & "</option>" objRS_secoes.MoveNext Wend objRS_secoes.Close Set objRS_secoes = Nothing Set strQ = Nothing Response.Write " </select>" objCon_busca.Close Set objCon_busca = Nothing %> <input type="image" src="imagens/buscar_ok.gif" align="absmiddle" value="ok" name="submit"> </font></strong></td> <td width="1%"><img src='imagens/depois_busca.gif'></td> </tr> </form> </table> ele aponta essa linha como arquivo em uso: objCon_busca.Open Application("te_conexao") Não consigo abrir nada aqui por causa disso
-
Fercosmig, o código é esse: '' initiate global vars and constants dim action dim b_error, a_errors, error_list, a_msg, msg_list dim cn, cmd, rs, rsselect, sql, do_search, a_records '' instantiate error handling and messaging set error_list = CreateObject("Scripting.Dictionary") set msg_list = CreateObject("Scripting.Dictionary") '' initiate db objects and connections ''' app database set cn = Server.CreateObject("ADODB.Connection") cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & "" 'cn.Open "Driver={SQL Server};Server=serverip_or_address;Database=database_name;Uid=userid;Pwd=password" ''' user database (may be the same as app) set user_cn = Server.CreateObject("ADODB.Connection") user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & "" A linha 31 é essa: user_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data\8525.mdb") & "" Bareta: Eu acho que não fiz compartilhamento não, em todo caso como eu vejo isso?
-
E essa frase: "O arquivo já esta em uso" ???? não entendi nada pois abri somente um código
-
fala galera, me ajudem por favor, estou testando meus códigos no IIS e já tive problema com permissões, segui o exemplo abaixo para resolver o problema: - Vá em painel de controle, de um duplo clique em opções da pasta - Vá até modo de exibição, onde tem configurações avançadas, localize a frase usar compartilhamento simples de arquivos (recomendável) - Desmarque esta opção. Clique em aplicar e depois ok. - Agora clique com o botão direito do mouse sobre o seu banco de dados e vá em propriedades. - Clique no guia segurança e dê controle total ao usuário Todos, clique em ok. mas continua dando esse erro aqui: Não é possível exibir a página Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la. -------------------------------------------------------------------------------- Experimente o seguinte: Clique no botão Atualizar ou tente novamente mais tarde. Abra a localhost home page e procure os links para as informações desejadas. HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services -------------------------------------------------------------------------------- Informações técnicas (para a equipe de suporte) Tipo de erro: Microsoft JET Database Engine (0x80004005) Não foi possível usar ''. O arquivo já está em uso. /app2/i_utils.asp, line 31 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Página: GET /app2/Default.asp Hora: quarta-feira, 5 de outubro de 2005, 20:37:52 Mais informações: Suporte da Microsoft O que pode ser agora? o código esta certo pois testei no PWS mas no IIS não roda nem a pau Me ajudem ai pois esgotei minhas opções Abraços
-
Me explica essa questão da DLL não entendi se puder me enviar eu te agradeço anota meu e-mail: webmaster@centralfalai.zzn.com
-
Galera, não faço idéia como fazer, peço ajuda nesta questão. Estou criando um sisteminha de cadastro de curriculo e queria saber se da pra fazer o seguinte: O usuário entra no site preencheo formulário, e quando ele clicar em salvar, os dados são gravados no bando de dados do sistema e um e-mail é enviado para o usuário que cadastrou agradeçendo o cadastro e um para o administrador do site dizendo que há um novo curriculo no site. Tem como? Como eu faço isso, pode colocar um exemplo?
-
Olá pessoal, Tenho duas perguntas: Talvez vocês possam me ajudar, queria saber como criar um discador, como disponibilizar um discador de minha propriedade para que os usuários possam conectar-se na internet? Na internet muitas páginas possuem discadores como exemplo: yahoo, Itelefonica, ig, Ibest e etc, agora eu queria saber se a entidade que disponibiliza o discador "gratuito" ganha ou recebe dinheiro por conexão, como é que funciona isso? Não sei se é aqui, mas não achei nheum tópico sobre isso
-
Prezado moderador, problema solucionado, pode fechar o tópico obrigado Obrigado também aos amigos Bareta e pgmador pela ajuda Abraços
-
Olá pessoal, estou com um problema, estou usando o IIS para rodar minhas páginas, ultimamente alguns códigos não estão rodando pois acusa um erro, eu já revisei o código mas o erro continua, será que é falta de algum componente? Se for como eu sei qual componente instalar?, o erro segue abaixo e o código que esta apontando erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /imobiliaria/Default.asp, line 37 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Página: GET /imobiliaria/Default.asp este é o default.asp: <!--#include file="includes/config.asp"--> <!--#include file="includes/abrebanco.asp"--> <head> <title><%=titulo%></title> <% Function geraID () geraID_tmp = "" Randomize For i = 1 to 12 intNum = Int(10 * Rnd + 48) intUpper = Int(26 * Rnd + 65) intLower = Int(26 * Rnd + 97) intRand = Int(3 * Rnd + 1) Select Case intRand Case 1 strPartPass = Chr(intNum) Case 2 strPartPass = Chr(intNum) Case 3 strPartPass = Chr(intNum) End Select geraID_tmp = geraID_tmp & strPartPass Next geraID = geraID_tmp End Function set banco = Server.CreateObject("ADODB.Connection") banco.Open "DBQ="&Server.MapPath("database/database.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" set rectodos = Server.CreateObject("ADODB.Recordset") rectodos.open "SELECT * FROM imoveis", banco do while not rectodos.eof sql_newid = "UPDATE imoveis SET NewId='"&geraID()&"' WHERE id="&rectodos("id") set recnewid = banco.execute(sql_newid) rectodos.movenext loop rectodos.close set recrandom = Server.CreateObject("ADODB.Recordset") sql_rnd = "SELECT TOP 6 categoria, id, bairro, foto1, desc_destaque, newid FROM imoveis WHERE foto1 <> '' ORDER BY newid" recrandom.open sql_rnd, banco sql_casa = "SELECT * FROM imoveis WHERE categoria = 'casa' AND destaque = on ORDER BY id DESC" sql_apto = "SELECT * FROM imoveis WHERE categoria = 'apartamento' AND destaque = on ORDER BY id DESC" sql_comercial = "SELECT * FROM imoveis WHERE categoria = 'comercial' AND destaque = on ORDER BY id DESC" sql_terreno = "SELECT * FROM imoveis WHERE categoria = 'terreno' AND destaque = on ORDER BY id DESC" sql_categ = "SELECT DISTINCT categoria FROM imoveis" sql_tipo = "SELECT DISTINCT tipo FROM imoveis" sql_local = "SELECT DISTINCT bairro FROM imoveis" sql_contador = "INSERT INTO contador (ip) VALUES ('"& Request.ServerVariables("REMOTE_ADDR") &"')" Set exe_casa = banco.execute(sql_casa) Set exe_apto = banco.execute(sql_apto) Set exe_comercial = banco.execute(sql_comercial) Set exe_terreno = banco.execute(sql_terreno) Set exe_categ = banco.execute(sql_categ) Set exe_tipo = banco.execute(sql_tipo) Set exe_local = banco.execute(sql_local) Set exe_contador = banco.execute(sql_contador) %> <link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css"> <style> font { font-family: Arial; font-size: 11 } </style> </head> <body bgcolor="<%=fundo%>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="77"><!--#include file="includes/barra.asp"--></td> </tr> <tr> <td><table width="778" border="0" align="center" cellpadding="0" cellspacing="0" height="528"> <tr> <td width="1" height="528" valign="top" rowspan="2"></td> <td width="626" valign="top" rowspan="2" height="528"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="24"><div align="right"> <p align="left"> <img border="0" src="imagens/imperdiveis.gif" align="absbottom"></div></td> </tr> <tr> <td height="391" align="center"><table width="510" border="0" cellspacing="0" cellpadding="0"> <tr align="center"> <td width="100" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="2" style="font-variant: small-caps"><b><%=recrandom("categoria")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><img src="<%=recrandom("foto1")%>" width="120" style="border: 3 solid #C0C0C0; padding-top: 0"></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><b><%=recrandom("bairro")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><%=recrandom("desc_destaque")%></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font color="#000000" size="1" face="arial"><strong><a href="<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&id=<%=recrandom("id")%>">mais</a></strong></font></td> </tr> </table> <%recrandom.movenext%> </td> <td align="center" valign="middle" width="100"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="100" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="2" style="font-variant: small-caps"><b><%=recrandom("categoria")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><img src="<%=recrandom("foto1")%>" width="120" style="border: 3 solid #C0C0C0"></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><b><%=recrandom("bairro")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><%=recrandom("desc_destaque")%></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font color="#000000" size="1" face="arial"><strong><a href="<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&id=<%=recrandom("id")%>">mais</a></strong></font></td> </tr> </table> <%recrandom.movenext%></td> <td align="center" valign="middle" width="110"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="100" valign="top"> <table width="125" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" bgcolor="#FFFFFF" width="129"><font face="arial" size="2" style="font-variant: small-caps"><b><%=recrandom("categoria")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="129"><img src="<%=recrandom("foto1")%>" width="120" style="border: 3 solid #C0C0C0"></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="129"><font face="arial" size="1"><b><%=recrandom("bairro")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="129"><font face="arial" size="1"><%=recrandom("desc_destaque")%></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="129"><font color="#000000" size="1" face="arial"><strong><a href="<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&id=<%=recrandom("id")%>">mais</a></strong></font></td> </tr> </table> <%recrandom.movenext%></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20" align="center"><img src="imagens/linha_horiz.gif" width="535" height="1"></td> </tr> </table> <table width="512" border="0" cellspacing="0" cellpadding="0"> <tr align="center"> <td width="107" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="2" style="font-variant: small-caps"><b><%=recrandom("categoria")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><img src="<%=recrandom("foto1")%>" width="120" style="border: 3 solid #C0C0C0"></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><b><%=recrandom("bairro")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><%=recrandom("desc_destaque")%></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font color="#000000" size="1" face="arial"><strong><a href="<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&id=<%=recrandom("id")%>">mais</a></strong></font></td> </tr> </table> <%recrandom.movenext%> </td> <td valign="middle" width="95"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="121" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="2" style="font-variant: small-caps"><b><%=recrandom("categoria")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><img src="<%=recrandom("foto1")%>" width="120" style="border: 3 solid #C0C0C0"></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><b><%=recrandom("bairro")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font face="arial" size="1"><%=recrandom("desc_destaque")%></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF"><font color="#000000" size="1" face="arial"><strong><a href="<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&id=<%=recrandom("id")%>">mais</a></strong></font></td> </tr> </table> <%recrandom.movenext%></td> <td valign="middle" width="92"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="130" valign="top"> <table width="93" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" bgcolor="#FFFFFF" width="126"><font face="arial" size="2" style="font-variant: small-caps"><b><%=recrandom("categoria")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="126"><img src="<%=recrandom("foto1")%>" width="120" style="border: 3 solid #C0C0C0; padding-top: 0"></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="126"><font face="arial" size="1"><b><%=recrandom("bairro")%></b></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="126"><font face="arial" size="1"><%=recrandom("desc_destaque")%></td> </tr> <tr> <td align="center" bgcolor="#FFFFFF" width="126"><font color="#000000" size="1" face="arial"><strong><a href="<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&id=<%=recrandom("id")%>">mais</a></strong></font></td> </tr> </table> </td> </tr> </table></td> </tr> <tr> <td bgcolor="#EBEBEB"> <img border="0" src="imagens/Destaques.gif"></td> </tr> <tr> <td height="186" align="center"><table width="610" border="0" cellspacing="0" cellpadding="0"> <tr align="center" valign="middle"> <td width="146"><strong><font face="Arial" size="1">Casas</font></strong></td> <td width="9"><font face="Arial" size="1"> </font></td> <td width="146"><strong><font face="Arial" size="1">Apartamentos</font></strong></td> <td width="8"><font face="Arial" size="1"> </font></td> <td width="145"><strong><font face="Arial" size="1">Comerciais</font></strong></td> <td width="8"><font face="Arial" size="1"> </font></td> <td width="134"><strong><font face="Arial" size="1">Terrenos</font></strong></td> </tr> <tr align="center" valign="middle"> <td width="146"><font color="#000000" face="arial" size=1> <strong><%=Ucase(exe_casa("bairro"))%></strong></font></td> <td width="9" rowspan="2"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="146"><font color="#000000" face="arial" size=1> <strong><%=Ucase(exe_apto("edificio"))%></strong></font></td> <td width="8" rowspan="2"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="145"><font color="#000000" face="arial" size=1><strong><%=Ucase(exe_comercial("bairro"))%></strong> </font></td> <td width="8" rowspan="2"><img src="imagens/linha_vert.gif" width="1" height="127"></td> <td width="134"><font color="#000000" face="arial" size=1> <strong><%=Ucase(exe_terreno("bairro"))%></strong></font></td> </tr> <tr align="center" valign="middle"> <td width="146" height="113"><font color="#000000" size="1" face="arial"><img src="<%=exe_casa("foto1")%>" width="100" style="border: 3 solid #C0C0C0"></font></td> <td width="146"><font color="#000000" size="1" face="arial"><img src="<%=exe_apto("foto1")%>" width="100" style="border: 3 solid #C0C0C0"></font></td> <td width="145"><img src="<%=exe_comercial("foto1")%>" width="100" style="border: 3 solid #C0C0C0"></td> <td width="134"><img src="<%=exe_terreno("foto1")%>" width="100" style="border: 3 solid #C0C0C0"></td> </tr> <tr align="center" valign="middle"> <td width="146" height="18"><font color="#000000" size="1" face="arial"><strong> </strong><%=mid(exe_casa("desc_destaque"),1,25)%>... <strong><a href="<%=local%>mais.asp?categoria=casa&id=<%=exe_casa("id")%>">mais</a></strong> </font></td> <td width="9"> </td> <td width="146"><font color="#000000" size="1" face="arial"><%=mid(exe_apto("desc_destaque"),1,25)%>... <strong><a href="<%=local%>mais.asp?categoria=apartamento&id=<%=exe_apto("id")%>">mais</a></strong> </font></td> <td width="8"> </td> <td width="145"><font color="#000000" size="1" face="arial"> <%=mid(exe_comercial("desc_destaque"),1,25)%>... <strong> <a href="<%=local%>mais.asp?categoria=comercial&id=<%=exe_comercial("id")%>">mais</a></strong></font></td> <td width="8"> </td> <td width="134"><font color="#000000" size="1" face="arial"> <%=mid(exe_terreno("desc_destaque"),1,25)%>... <strong><a href="<%=local%>mais.asp?categoria=terreno&id=<%=exe_terreno("id")%>">mais</a></strong> </font></td> </tr> </table></td> </tr> </table></td> <td width="154" valign="top" height="173" bgcolor="#6699CC"><!--#include file="includes/menuesq.asp"--></td> </tr> <tr> <td width="154" valign="top" height="355" bgcolor="#6699CC"><!--#include file="includes/menudir.asp"--></td> </tr> </table></td> </tr> <tr> <td height="50" valign="top"><!--#include file="includes/rodape.asp"--></td> </tr> </table> </body> <!--#include file="includes/fechabanco.asp"-->
-
Então velhinho lá só fala da tecnologia que o terra implementou, eu gostaria de disponibilizar essa tecnologia no meu site, mas relacionando as informações que são geradas em meu site do meu proprio sistema de noticias...
-
Valeu, mas eu preciso de um tuto que explique como colocar um desses na minha página
-
Boa tarde amigos, alguém tem idéia de como funciona o RSS?, queria disponibilizar essa nova tecnologia em meu site mas não faço ideia de como eu faço? e outra alguém sabe se tem como fazer um programa que lê esse arquivo? grato Maktub
-
Ae galera, beleza? To com um pentium II em casa e gostaria de fazer dele um servidor para WEB, gostaria de saber o que preciso para transforma-lo em um.. tipo ter minha própria DNS, sacaram alguém tem algum tuto explicando isso? Possuo banda larga ... Não queria pagar um provedor tipo locaweb para armazemar minha página
-
No código é a linha 61 que da erro, no código abaixo é a ultima linha: strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "INSERT INTO perguntas(nome, email, sexo, estadocivil, cpf, dia, mes, ano, empregado, dddtelefone, numerotelefone, dddcelular, numerocelular, paginapessoal, endereco, complemento, bairro, cepnumero, cepdigito, cidade, objetivo, areaprofissional, cargo, pretencaosalarial, resumodasqualificacoes, informacoesrelevantes, graudeformacao, curso, anoatual, instituicao, graudeformacao1, curso1, anoatual1, instituicao1, mesinicio, anoinicio, messaida, anosaida, empregoatual, nomedaempresa, ultimocargo, atribuicoesdocargo, mesinicio1, anoinicio1, messaida1, anosaida1, empregoatual1, nomedaempresa1, ultimocargo1, atribuicoesdocargo1) VALUES('" & nome & "', '" & email & "', '" & sexo & "', '" & estadocivil & "', '" & cpf & "', '" & dia & "', '" & mes & "', '" & ano & "', '" & empregado & "', '" & dddtelefone & "', '" & numerotelefone & "', '" & dddcelular & "', '" & numerocelular & "', '" & paginapessoal & "', '" & endereco & "', '" & complemento & "', '" & bairro & "', '" & cepnumero & "', '" & cepdigito & "', '" & cidade & "', '" & objetivo & "', '" & areaprofissional & "', '" & cargo & "', '" & pretencaosalarial & "', '" & resumodasqualificacoes & "', '" & informacoesrelevantes & "', '" & graudeformacao & "', '" & curso & "', '" & anoatual & "', '" & instituicao & "', '" & graudeformacao1 & "', '" & curso1 & "', '" & anoatual1 & "', '" & instituicao1 & "', '" & mesinicio & "', '" & anoinicio & "', '" & messaida & "', '" & anosaida & "', '" & empregoatual & "', '" & nomedaempresa & "', '" & ultimocargo & "', '" & atribuicoesdocargo & "', '" & mesinicio1 & "', '" & anoinicio1 & "', '" & messaida1 & "', '" & anosaida1 & "', '" & empregoatual1 & "', '" & nomedaempresa1 & "', '" & ultimocargo1 & "', '" & atribuicoesdocargo1 & "')" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn
-
Cara me ajuda entender esse código, como é que eu faço para adapta-lo ao meu? ou não precisa fazer modificação?
-
Esse é o código para gravar os dados: <!--#include file="config.inc" --> <p align="center"><img border="0" src="logo_admin.gif" WIDTH="406" HEIGHT="110"></p> <% nome = request("nome") email = request("email") sexo = request("sexo") estadocivil = request("estadocivil") cpf = request("cpf") dia = request("dia") mes = request("mes") ano = request("ano") empregado = request("empregado") dddtelefone = request("dddtelefone") numerotelefone = request("numerotelefone") dddcelular = request("dddcelular") numerocelular = request("numerocelular") paginapessoal = request("paginapessoal") endereco = request("endereco") complemento = request("complemento") bairro = request("bairro") cepnumero = request("cepnumero") cepdigito = request("cepdigito") cidade = request("cidade") objetivo = request("objetivo") areaprofissional = request("areaprofissional") cargo = request("cargo") pretencaosalarial = request("pretencaosalarial") resumodasqualificacoes = request("resumodasqualificacoes") informacoesrelevantes = request("informacoesrelevantes") graudeformacao = request("graudeformacao") curso = request("curso") anoatual = request("anoatual") instituicao = request("instituicao") graudeformacao1 = request("graudeformacao1") curso1 = request("curso1") anoatual1 = request("anoatual1") instituicao1 = request("instituicao1") mesinicio = request("mesinicio") anoinicio = request("anoinicio") messaida = request("messaida") anosaida = request("anosaida") empregoatual = request("empregoatual") nomedaempresa = request("nomedaempresa") ultimocargo = request("ultimocargo") atribuicoesdocargo = request("atribuicoesdocargo") mesinicio1 = request("mesinicio1") anoinicio1 = request("anoinicio1") messaida1 = request("messaida1") anosaida1 = request("anosaida1") empregoatual1 = request("empregoatual1") nomedaempresa1 = request("nomedaempresa1") ultimocargo1 = request("ultimocargo1") atribuicoesdocargo1 = request("atribuicoesdocargo1") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "INSERT INTO perguntas(nome, email, sexo, estadocivil, cpf, dia, mes, ano, empregado, dddtelefone, numerotelefone, dddcelular, numerocelular, paginapessoal, endereco, complemento, bairro, cepnumero, cepdigito, cidade, objetivo, areaprofissional, cargo, pretencaosalarial, resumodasqualificacoes, informacoesrelevantes, graudeformacao, curso, anoatual, instituicao, graudeformacao1, curso1, anoatual1, instituicao1, mesinicio, anoinicio, messaida, anosaida, empregoatual, nomedaempresa, ultimocargo, atribuicoesdocargo, mesinicio1, anoinicio1, messaida1, anosaida1, empregoatual1, nomedaempresa1, ultimocargo1, atribuicoesdocargo1) VALUES('" & nome & "', '" & email & "', '" & sexo & "', '" & estadocivil & "', '" & cpf & "', '" & dia & "', '" & mes & "', '" & ano & "', '" & empregado & "', '" & dddtelefone & "', '" & numerotelefone & "', '" & dddcelular & "', '" & numerocelular & "', '" & paginapessoal & "', '" & endereco & "', '" & complemento & "', '" & bairro & "', '" & cepnumero & "', '" & cepdigito & "', '" & cidade & "', '" & objetivo & "', '" & areaprofissional & "', '" & cargo & "', '" & pretencaosalarial & "', '" & resumodasqualificacoes & "', '" & informacoesrelevantes & "', '" & graudeformacao & "', '" & curso & "', '" & anoatual & "', '" & instituicao & "', '" & graudeformacao1 & "', '" & curso1 & "', '" & anoatual1 & "', '" & instituicao1 & "', '" & mesinicio & "', '" & anoinicio & "', '" & messaida & "', '" & anosaida & "', '" & empregoatual & "', '" & nomedaempresa & "', '" & ultimocargo & "', '" & atribuicoesdocargo & "', '" & mesinicio1 & "', '" & anoinicio1 & "', '" & messaida1 & "', '" & anosaida1 & "', '" & empregoatual1 & "', '" & nomedaempresa1 & "', '" & ultimocargo1 & "', '" & atribuicoesdocargo1 & "')" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn if err.Number > "0" then Response.Write("<center><pre>Ocorreram erros ao enviar o seu cadastro!</pre></center>") else Response.Write("<center><pre>Pergunta cadastrada com sucesso! <br><a href=""javascript:history.go(-2)""><img border=0 src=voltar.gif></a></pre></center>") end if %>
-
-
Galera sobre o código abaixo, alguém saberia me dizer como abrir no mesmo navegador?, quando envio o formulário ele abre outra página na web e eu queria que ele abrisse na mesma página o redirecionamento. <form method="post" action="http://www18.locaweb.com.br/scripts/FormMail.pl"> <input type=HIDDEN name="recipient" value="teste@teste.com.br"> <input type=HIDDEN name="redirect" value="http://www.teste.com.br/obrigado.asp"> <input type=HIDDEN name="subject" value="Orçamento"> Gracias