Victor

Você usar qual Banco de Dados?? ACCESS, MYSQL, SQL SERVER???? Responda ai que assim poderemos te ajudar melhor!!!! []'s Victor

É só você usar um loop, na pagina que você quer que apareça todos os registros, ele coloca um link(pagina.asp?id<%=RecSet("id")%>)... Ai ele vai para uma querystring ai é só você fazer um select case e colocar um RecSet("produto"), e no select você coloca where id = "&request.querystring("id")&", conn....Ai vai aparecer só o produto do ID que você vai clicar no link.... ....Mas você não manja nada de ASP, porque se pelo menos você soubesse, nós poderiamos te ajudar melhor!!! Caso não saiba, posta ae, que tentamos te ajudar melhor... Mas queremos que você aprenda, não só querer o codigo para colar e copiar!!!! []'s Victor

Olhem o que eu achei na net, um codigo que você pra saber se o CDONTS está ou não instalado no computador!! <% Option Explicit Function IsComponentInstalled(ProgId) Dim tmpObject On Error Resume Next Set tmpObject = Server.CreateObject(ProgId) If Err.Number = 0 Then IsComponentInstalled = True Else IsComponentInstalled = False End If Set tmpObject = Nothing End Function 'Utilizando a função If IsComponentInstalled("CDONTS.NewMail") Then Response.Write "Enviando o e-mail ..." '... Else Response.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)" '... End If %> tirei daqui: http://www.aspbrasil.com.br/tutoriais/deta...odConteudo=1167 []'s Victor

Vou postar um codigo aqui, mas não quero simplemente que você copie e cole no seu site, e sim quero que você aprenda, assimquando você precisar disso mais para frente, você já saberá fazer function_email.asp <% function email_cdonts(de_email, para_email, subject, mensagem) Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.mailformat=0 'para enviar html como mensagem objmail.bodyformat=0 'para enviar html como mensagem objmail.from = de_email objmail.to = para_email objmail.subject = subject objmail.body = mensagem objmail.send Set objmail = nothing end function %> pagina.asp <%If Request.Form("acao") <> "" Then call email_cdonts (request.form("email"), "email@provedor.com.br", "Assunto", request.form("mensagem")) Resonse.Write "E-mail enviado com sucesso!!!" else %> <form action="pagina.asp" method="post"> <table> <tr> <td>Nome: </td> <td><input name="nome" size="35"></td> </tr> <tr> <td>E-mail: </td> <td><input name="email" size="35"></td> </tr> <tr> <td>Mensagem: </td> <td><textarea cols="26" rows="5" name="mensagem"></textarea></td> </tr> <tr> <td><input type="Hidden" name="acao" value="enviar"><input type="submit" name="enviar" value="Enviar"></td> </tr> </table> </form> <%End If%> Ta ai.... Qualquer dúvida é só falar ai que te ajudaremos, e quero ver você aprender viu []'s Victor

tipo, você pode criar a tabela como quiser, colocar nome errado, nome que tem nada a ver, etc.... Mas uma coisa, sempre coloca um ID(autonumeração) no Banco de Dado, porquer assim você não vai precisar das outras colunas para usar no arquivo Mas a primeira ta boa, mas coloca o ID que fica melhor ainda!!!! []'s Victor

Deixa eu ver se entendi... Tipo: você tem um formulário, e que o cara preencher no formulário vai gravar no Banco de Dados, e vai aparecer na tela de resposta, "enviado com sucesso!!!".... Ai vai mandar o e-mail e vai cadastrar no Banco de Dados.... É isso?? []'s Victor

Como saber quantas vezes um link de seu site foi clicado: 1º - Crie o banco de dados (contador_clicks.mdb) no banco de dados crie a tabela (clicks) com os seguintes campos (url - tipo = texto) e (hits - tipo = numerico). 2º - Criando o arquivo que contará os links ... nesse tutorial chamaremos de "conta_link.asp" <% url = request.querystring("url") if url = "" then url = "http://www.meusite.com.br" 'Coloque aqui a url do seu site... end if 'Conectando com o banco de dados... set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("contador_clicks.mdb") set rs = conn.execute("select * from clicks where url = '" & url & "'") if rs.eof then 'Se não existe a url cadastrada no banco de dados, salva ela e adiciona 1 no hits v = 1 conn.execute("INSERT INTO clicks (url, hits) VALUES ('" & url & "'," & v & ")") response.redirect url else 'Neste caso a url já está cadastrada, apenas somamos +1 nela conn.execute("UPDATE clicks SET hits = hits +1 WHERE url = '" & url & "'") response.redirect url end if 'Fecha as conexões rs.close conn.close set rs = nothing set conn = nothing %> Como usar o arquivo acima em seu site. http://www.seusite.com.br/conta_link.asp?u....br/arquivo.asp ai varia, você pode por a url de qualquer arquivo depois do url= 3º - Mostrando as estatísticas das páginas - estatisticas.asp <html> <head> <title>Estatística - Contador de links</title> </head> <body> <h1>Estatísticas</h1> <table border="1" width="60%"> <tr> <td width="95%" align="center"><b>Página</b></td> <td width="5%" align="center"><b>Clicks</b></td> </tr> <% set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("contador_clicks.mdb") set rs = conn.execute("SELECT * FROM clicks ORDER By hits DESC") do while not rs.eof %> <tr> <td width="95%"><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td> <td width="5%" align="right"><%=rs("hits")%></td> </tr> <% rs.movenext loop rs.close conn.close set rs = nothing set conn = nothing %> </table> </body> </html> []'s Victor

Vou falar um pouco sobre o Objeto Server O objeto Server permite o acesso e a configuração de algumas funções e métodos diretamente ligados ao servidor. Funções do Objeto Server: server.ScriptTimeOut - configuração do Timeout de carregamento da página server.HTMLEncode - codifica strings. Usado para codificar strings que contenham caracteres especiais. server.URLEncode - transforma strings para o formato QueryString. server.MapPath - mapeia arquivos de acordo com o path físico, a partir do path virtual. server.CreatObject - permite abertura de instâncias de objetos vinculados a componentes ActiveX. exemplos: server.ScriptTimeOut - Configura o tempo máximo para execução e carregamento da página. O tempo padrão é de 90 segundos. sintaxe: server.ScriptTimeOut = tempo <% response.write(server.scriptTimeOut & " ") Server.ScriptTimeOut = 120 response.write(server.ScriptTimeOut & " ") %> server.HTMLEncode - usa-se para codificar textos que contenham caracteres especiais, tais como > ou <. Codificado, o Browser saberá que o caractere faz parte do texto, e então, este caractere não será interpretado com código. É usado também para para codificar caracteres de outros idiomas, de forma que o Browser identifique o idioma, e então exponha os símbolos corretos na tela. sintaxe: server.HTMLEncode("string") <% response.write(server.HTMLEncode("<<>>")) response.write(server.HTMLEncode("WELCOME TO MÜNCHEN")) 'os caracteres <, >, e Ü são caracteres especiais. O comando HTMLEncode assegura que esses códigos serão interpretados de forma correta pelo Browser. %> server.URLEncode - URLs (Uniform Resource Locators) são usados para requisitar arquivos e informações em servidores WEB. Muitas vezes, os URLs não contém apenas o nome do arquivo, mas também carregam com eles valores de variáveis no formato QueryString. O comando server.URLEncode transforma strings de texto em strings no formato QueryString. sintaxe: request.URLEncode("string") <% response.write(server.URLEncode("test.asp?name= Victor Gabriel&idade=13 anos")) response.write("test.asp?" & server.URLEncode("name= Victor Gabriel&idade=13 anos")) %> server.MapPath - retorna o path físico do arquivo a partir do path virtual.No caso de arquivos que não tenham homônimos no mesmo domínio, a função server.MapPath é capaz de localizar o arquivo no domínio e retornar o path físico. sintaxe: server.MapPath("path virtual") <% response.write(server.mappath("/test.asp")) 'a linha acima retorna o path físico do arquivo test.asp no servidor. No caso, c:\scriptbrasil\test.asp response.write(server.MapPath("test.asp")) 'a linha acima retorna o mesmo path físico, apesar de não conter o path virtual, e sim, apenas o nome do arquivo. Tal retorno só é possível se não existirem dois arquivos com o mesmo nome dentro do mesmo domínio. %> server.CreateObject - É usado para gerar instâncias de componentes para uso nos Scripts. Por padrão, cada objeto criado a partir do componente é automaticamente destruído ao acabar o processamento da página. sintaxe: Set nomedadoaoobjeto = Server.CreateObject("iddoobjeto") <% Set objtexto = Server.CreateObject("Scripting.FileSystemObject") 'a linha acima criou uma instância de objeto do componente scripting.filesystemobject, usado para acessar arquivos texto. Set arquivotexto = objtexto.OpenTextFile(Server.MapPath("test.txt")) 'abre o arquivo texto dentro da instância do objeto Scripting.FileSystemObject response.write arquivotexto.readline 'a linha acima mostra a primeira linha de texto do arquivo aberto. arquivotexto.close 'a linha abaixo destruíu imediatamente %> []'s Victor

Tenta isso ae: <!--#include file="conecta.asp"--> <%set RecSet = server.createobject("adodb.recordset") if request.form("acao") <> "" then conn.execute "insert into produto (ref, categoria, nome, descr, medidas, preço, foto) values ('"&request.form("sRef")&"', '"&request.form("sCategoria")&"', '"&request.form("sNome&")"', '"&request.form("sDescr&")"', '"&request.form("sMedida")&"', "&request.form("sPreco")&", '"&request.form("sFoto")&"')" response.write "cadastrado" else %> <script language="JavaScript"> <!-- function verificar() { var fcad = document.forms[0]; if(fcad.ref.value==0) { window.alert("Favor especificar uma REF."); fcad.ref.focus(); return false; } } //--> </script> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#ffffff" text="#000000" link="#000000" vlink="#000000" alink="#000000"> <form method="post" action="incluir_script.asp" enctype="MULTIPART/FORM-DATA" onSubmit="return verificar();"> <input type=hidden name="hdn_submit" value="1"> <table width="440" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="94" height="30"> <div align="center"> <p align="center"><img src="logo_pq.jpg" width="84" height="105"><font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font></p> </div></td> <td width="350" height="30"><div align="center"><font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="2">Formul&aacute;rio de Inclus&atilde;o de Produtos</font></b></font><br> <font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="1">(Administrativo)</font></b></font></div></td> </tr> <tr> <td height="17" colspan="2"> <div align="right"><a href="javascript:history.back()"><font color="#000000"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">VOLTAR</font></b></font></a></div></td> </tr> <tr> <td height="20" colspan="2"><font color="#000000">_______________________________________________________</font> <p></td> </tr> <tr> <td height="25" colspan="2"> <table width="440" border="0" cellspacing="0" cellpadding="0" height="25"> <tr> <td width="188" height="25" align="right"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">ref.:&nbsp; </font></b></td> <td width="252" height="25" align="left"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <input type="text" name="ref" size="10" maxlength="15"> </font></b></td> </tr> <tr> <td width="188" height="25" align="right"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">&nbsp;Nome do Produto:</font></b></font><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font></td> <td width="252" height="25" align="left"><font color="#000000"><b></b></font><font color="#000000"><b><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> </font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <input type="text" name="nome" size="20" maxlength="30"> </font><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font></td> </tr> </table></td> </tr> <tr> <td height="25" colspan="2"> <table width="440" border="0" cellspacing="0" cellpadding="0" height="25"> <tr> <td width="188" height="25" align="right"><font color="#000000">&nbsp;<b><font size="2" face="Arial, Helvetica, sans-serif">Linha:</font></b> </font></td> <td width="252" height="25"><font color="#000000"> <select name="categoria"> <option value="aparadores">Aparadores</option> <option value="balc&otilde;es">Balc&otilde;es</option> <option value="banqueta cl&aacute;ssica">Banqueta Cl&aacute;ssica</option> <option value="banqueta contempor&acirc;nea">Banqueta Contempor&acirc;nea</option> <option value="cl&aacute;ssica">Cadeira Cl&aacute;ssica</option> <option value="cadeira escrit&oacute;rio">Cadeira Escrit&oacute;rio</option> <option value="cadeira madeira">Cadeira Madeira</option> <option value="cadeira metal">Cadeira Metal</option> <option value="equipe">Equipe</option> <option value="estofados">Estofados</option> <option value="home theater">Home Theater e Racks</option> <option value="jardim">Jardim</option> <option value="lazer">Lazer</option> <option value="acess&oacute;rios lumin&aacute;ria">Lumin&aacute;rias</option> <option value="mesa apoio">Mesa Apoio/Auxiliar</option> <option value="mesa centro">Mesa Centro</option> <option value="mesa jantar">Mesa Jantar</option> <option value="acess&oacute;rios objetos">Objetos</option> <option value="piscinas">Piscinas</option> <option value="poltrona cl&aacute;ssica">Poltrona Cl&aacute;ssica</option> <option value="poltrona contempor&acirc;nea">Poltrona Contempor&acirc;nea</option> <option value="sala de estar">Sala de Estar</option> <option value="sala de jantar">Sala de Jantar</option> <option value="acess&oacute;rios tapete">Tapetes</option> </select> </font></td> </tr> <tr> <td width="188" height="25" align="right"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">Medidas:</font></b></font></td> <td width="252" height="25"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> <input type="text" name="medida" size="20" maxlength="30"> </font></b></font><font color="#FFFFFF"><b></b></font> <font color="#000000">&nbsp; </font></td> </tr> </table></td> </tr> <tr> <td height="25" colspan="2"> <div align="center"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">Selecione a Imagem para Upload:</font></b></font></div></td> </tr> <tr> <td align="center" height="25" colspan="2"> <font color="#000000"> <% If sFoto <> "" Then %> <a href="mostrar_foto.asp?foto=<%=sFoto%>" target=_blank><%= sFoto %></a>.<br> <input type="radio" name="manter_enviar" value="M" checked> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Manter ou <input type="radio" name="manter_enviar" value="E"> Enviar outra</font>.<br> <input type="hidden" name="path_foto_server" value="<%= sFoto %>"> <%End If %> <input type="file" name="foto" maxlength="50" size="25" value=""> </font> </td> </tr> <tr> <td height="25" colspan="2"> <div align="center"><font color="#000000">&nbsp;<b><font face="Arial, Helvetica, sans-serif" size="2">Descri&ccedil;&atilde;o</font></b></font></div></td> </tr> <tr> <td height="60" colspan="2"> <div align="center"><font face="Verdana" size="1" color="#000000"> <textarea rows="5" name="descr" cols="40"></textarea> </font></div></td> </tr> <tr> <td height="25" colspan="2"> </td> </tr> <tr> <td height="25" colspan="2"> <div align="center"> <font color="#000000"> <input type="hidden" name="acao" value="submit"><input type="submit" name="Submit" value="Incluir"> </font></div></td> </tr> <tr> <td height="25" colspan="2"><font color="#000000">_______________________________________________________</font></td> </tr> <tr> <td height="25" colspan="2"> <div align="right"><font color="#000000"><a href="javascript:history.back()"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">VOLTAR</font></b></a></font></div></td> </tr> </table> </form> <%end if set RecSet = nothing%> []'s Victor

Ixi agora complica, você tem que fazer uma mistura com JS, junto com replace, juntando com o IF, vou tentar bolar um aqui, caso eu tenha sorte de conseguir eu posto ai!!! []'s Victor

Usando Objetos Application e Session Ai você remove o session assim: []'s Victor

http://www.portalfiremasters.com.br vou tentar achar mais []'s Victor

ai clica no smyley, e com o codigo exemplo: tem o smyley piscando, você pode fazer isso com um IF também, o IF e muito usado, caso não saiba como usar ele fae ai, que vamos tentar te ajudar melhor []'s Victor

Da uma olhada nisso que poderá te ajudar: http://www.aspbrasil.com.br/TUTORIAIS/deta...odConteudo=1128 []'s Victor

vou ter que bloquear o pessoal que incluir sites pornograficos e afins vc´s entendem.Isso é um dos motivos.Entenderam? Falow Tipo para fazer isso, vo^cê faz um sistema para você poder incluir palavras tipo "filha da....", entre outras ai grava, pronto, até ai tudo bem, ai você um if ficando assim: <%If Request.Form("fomulario_que o_cara_vai_colocar_palavrao") = RecSet("palavroes") then response.write "esse tipo de palavra não será permitido enviar" else envia end if%> Saco a lógica?? []'s Victor

Você usa um session, com ele você guarda todos os dados que você pegou, para que você possa usa-los depois!!!! http://www.aspbrasil.com.br/TUTORIAIS/deta...odConteudo=1128 Dê uma estudada nesse link ai, e volte se tiver mai alguma dúvida!!! []'s Victor

Poste seu codigo ae, que assim poderemos te ajudar melhor!!!! []'s Victor

Tenta isso: Response.write("alerta=")+Server.URLEncode("Enviado c/ Sucesso!") Caso tenha mais alguma dúvida é só posta ae!!!! []'s Victor

Deixa eu ver se entendi, você quer um sistema que você pode colocar os horários das pessoas que trabalham, e no ADMIN, pode mudar como quiser!!! É ISSO?? []'s Victor

Não vou dar o codigo feitinho conforme seu arquivo, se não você não aprende Mas vou te dar o codigo que vai dar para você mudar para que fique certo com seu arquivo: function_email.asp <% function email_cdonts(de_email, para_email, subject, mensagem) Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.mailformat=0 'para enviar html como mensagem objmail.bodyformat=0 'para enviar html como mensagem objmail.from = de_email objmail.to = para_email objmail.subject = subject objmail.body = mensagem objmail.send Set objmail = nothing end function %> arquivo.asp <%If Request.Form("acao") <> "" then call email_cdonts (request.form("email"), "email@provedor.com.br", "Assunto", request.form("mensagem")) else%> <form action="arquivo.asp" method="post"> <table> <tr> <td>Nome: </td> <td><input name="nome" size="35"></td> </tr> <tr> <td>Email: </td> <td><input name="email" size="35"></td> </tr> <tr> <td>Mensagem: </td> <td><input name="mensagem" size="35"></td> </tr> <tr> <td><input type"Hidden" name="acao" value="enviar"><input type="submit" name="enviar" value="Enviar"></td> </tr> </table> </form> <%end if%> Ai você vai fazendo conforme seu formulário... Caso renha mais dúvidas é só postar que nós te ajudaremos!!! []'s Victor

Tipo, o codigo ASP roda no lado servidor, e o HTML roda no lado cliente, so as linguagens que rodam no lado cliente que tem permissão a acessar ao codigo de fonte, e toda as linguagens que rodam no lado servidor ele aparece em HTML no lado cliente!!!! Caso tenha mais dúvidas, é só chamar que nós te ajudaremos!!! []'s Victor

Todas as linguagens podem usar banco de dados, menos aquelas como JS, HTML, e dentre outras, olhe isso que te poderá te ajudar melhor: http://www.aspbrasil.com.br/DICAS/detalhes...codConteudo=629 Ai tem a conexão, caso tenha mais dúvidas é só postar que nós te ajudaremos!!!! []'s Victor

Tipo não vou adivinhar o codigo, posta ele ai que assim nós podemos te ajudar, e também pela logica você pode usar o IF também....Posta ae, e nós te ajudaremos!!!! []'s Victor

Tipo, com isso você tem que fazer um upload, mas deixa eu ver se entendi...Você que tipo você possa adcionar um smyley de um computador para o site!!!!Certo?? []'s Victor

Gostei...Nota 9