Conteúdo de Super_Zica_Man - Página 7

Pessoal O Que é Api Jmail?

pergunta respondeu ao ju_rezende de Super_Zica_Man em ASP

Desculpe pelo post anterior....Aqgora na internet vi Jmail e lembrei do seu tópico... O JMail é um componente para envio de e-mails.

Topico Exclusivo - Componentes De E-mail - 1 !

pergunta respondeu ao dark0 de Super_Zica_Man em ASP

cara querendo acrescentar os tipos de form mail em CDONTS que achei numa pesquisa.... (Pls adiciona isso no seu tópico pode ser muito util.....) CDONTS CDONTS são scripts com as instruções para enviar e-mails com o CDONTS no ASP. E-mail anexo: <% set objMail = server.createobject("CDONTS.NewMail") objMail.From = "remetente@servidor.com.br" objMail.To = "destino@servidor.com.br" objMail.Subject = "E-mail com anexo" objMail.Body = "Segue o arquivo teste.gif" objMail.MailFormat = 0 objMail.Attachfile "c:\caminho\seusite\teste.gif", "teste.gif" objMail.Send Response.Write "Mensagem Enviada" set objMail = Nothing %> E-mail Básico: <% set objMail = server.createobject("CDONTS.NewMail") objMail.From = "remetente@servidor.com.br" objMail.To = "destino1@servidor.com.br" objMail.Cc = "destino2@servidor.com.br" objMail.Bcc = "destino3@servidor.com.br" objMail.Subject = "Assunto" objMail.Body = "Corpo da Mensagem" objMail.Importance = 1 objMail.Send Response.Write "Mensagem Enviada" set objMail = Nothing %> E-mail Embutido: <% set objMail = server.createobject("CDONTS.NewMail") objMail.From = "remetente@servidor.com.br" objMail.To = "destino@servidor.com.br" objMail.Subject = "E-mail com anexo" objMail.Body = "<html><body><img src=""teste.gif""></body></html>" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.AttachURL "c:\caminho\seusite\teste.gif", "teste.gif" objMail.Send Response.Write "Mensagem Enviada" set objMail = Nothing %> E-mail HTML: <% set objMail = server.createobject("CDONTS.NewMail") objMail.From = "remetente@servidor.com.br" objMail.To = "destino@servidor.com.br" objMail.Subject = "E-mail HTML" objMail.Body = "<html><body>Revista <span style=""color:#ff0000;text-weight:bold"">www.com.br</span>" & _ "<br><a href=""http://www.seusite.com.br/"">Seu site</a></body></html>" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send Response.Write "Mensagem Enviada" set objMail = Nothing %> Fonte: Revista WWW.com.br Encontrado no site:http://www.htmlstaff.org/asp/asp46.php

Pessoal O Que é Api Jmail?

pergunta respondeu ao ju_rezende de Super_Zica_Man em ASP

Sua pesquisa - apijmail - não encontrou nenhum documento correspondente tem certeza q é assim que escreve acho q onde tu leu o cara queria dizer aspmail porque apijmail ne no google achou nenhuma pagina.....

Paginação Ta Dando Erro....

uma questão postou Super_Zica_Man ASP

Ai o meu codigo...Ta dando erro no codigo já quebrei a cabeça mas não consigo resolver o erro q da é esse: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' /listaprod.asp, line 27 Dai se eu retiro o end select da certo o codigo mas da outro erro no fim... Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03F6) 'End' esperado /listaprod.asp, line 67 Não sei o q fazer segue a baxo o codigo.... listaprod.asp <% Dim lojaDB set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\Dados\Produtos.mdb" lojaDB.open %> <% Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada lista=Request.querystring("lista") cat_id=Request.querystring("cat_id") cat_nome=Request.querystring("cat_nome") nome=Request.querystring("nome") %><table border=0 width=100%><tr width=100%><td width=100% valign=top><h2><font face="Verdana" size="5"><%=cat_nome%></font></h2></td></tr> <% Select Case lista Case "categoria" set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE idcat="& idcat &" AND disp='S' ORDER BY nome") msgnada = "<font face='verdana' size='1'>No momento não dispomos de nenhum produto neste departamento.</font>" Case "busca" set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome") msgnada = "<font face='verdana' size='1'>Infelizmente não localizamos nenhum produto com esse nome.</font>" Case Else %> <script>window.location="default.asp"</script> <% End Select If lista_produtos.EOF Then Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>" Else %> <tr width=100%><td width=100%> <table border=1 width=100% cellspacing="0" style="border-collapse: collapse" cellpadding="0"> <tr><th bgcolor="#E2E2E2"><font size="1" face="Verdana">Nome</font></th> <th bgcolor="#E2E2E2"><font size="1" face="Verdana">Preço</font></th> <th bgcolor="#E2E2E2"><font size="1" face="Verdana">foto</font></th> <th bgcolor="#E2E2E2"><font size="1" face="Verdana">Comprar</font></th></tr> <% Dim prod_cat_id,prod_id,prod_nome,prod_preco,imagem,malha1 malha1 = "sim" while not lista_produtos.EOF prod_cat_id = lista_produtos("cat_id") prod_id = lista_produtos("id") prod_nome = lista_produtos("nome") prod_preco = lista_produtos("preço") prod_imagem = lista_produtos("imagem") %> <tr width=100% valign=top class=<%=malha1%>><td><font size="1" face="Verdana"><%=prod_nome%> </font></td><td> <font size="1" face="Verdana"><%=FormatCurrency(prod_preco)%></font></td> <td valign=top align=center> <a href="detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"> <font face="Verdana" size="1"><img src="produtog/<%=prod_imagem%>" width=100 border=0></font></a><font face="Verdana" size="1"> </font> </td><td align=center> <form action="carrocompras.asp" method=get> <font face="Verdana" size="1"> <input type=hidden name=acao value=incluir> <input type=hidden name=prod_id value=<%=prod_id%>> <input type=hidden name=url_comp value="<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><input type=text name=prod_quant maxlength=2 size=2 value=1 style="font-family: Verdana; font-size: 8 pt"> <input type=image src="cesta.jpg" border=0> </font> </form></td> </tr> <% lista_produtos.movenext If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If wend End If lista_produtos.Close set lista_produtos = Nothing %>:/

Ofertas No Default

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

é q assim ali no default tu reparo q tem aqueles produtos entaum eu tinha visto também num site de um cara o cara me falou q usou script automatico q no bd ele cria um campo com sim/não os q ele marca sim aparece no default com destaque.. Queria ver se alguém tem um script parecido para mim não ter q fazer essas ofertas no default manualmente....

Ofertas No Default

uma questão postou Super_Zica_Man ASP

tenho um bd com uma parte q tem o nome destaque dai o cara tem caixa de seleção sim/não eu queria um codigo q buscasse no bd e quando o cara marcasse isso o produto aparecesse no default..... tipo tem nesse site... www.dsystem.com.br

No Fórum "prog. E So" Ninguem Responde..

uma questão respondeu Super_Zica_Man em ASP

já tento reinstalar????? Ve se o diretorio base nas ferramentas administrativas esta no local certo...

Sistema De Busca Dando Erro....

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

o CAMPO do bd que vai conter as informações pra busca????? porque antes de atualiza esse codigo não tinha isso e funcionava so q do nada deu isso....

Sistema De Busca Dando Erro....

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

depois de por isso da esse erro.... Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /resultado.asp, line 22 </form> As linhas proximas saum essas: <% dim c1,r1 set c1=server.createObject("adodb.connection") set r1=server.createObject("adodb.recordset") c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "\Dados\Produtos.mdb;" c1.open set r1=c1.execute("select * from produtos where '" & request.form("escolha") & "' like '" & request.form("produto") & "%' ") </form>

Sistema De Busca Dando Erro....

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

coloquei isso mas deu o mesmo erro: Tipo de erro: Microsoft JET Database Engine (0x80040E10) Nenhum valor foi fornecido para um ou mais parâmetros necessários. /resultado.asp, line 21

Sistema De Busca Dando Erro....

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

Tipo de erro: Microsoft JET Database Engine (0x80040E10) Nenhum valor foi fornecido para um ou mais parâmetros necessários. /resultado.asp, line 21

Sistema De Busca Dando Erro....

uma questão postou Super_Zica_Man ASP

cara to quebrando a cabeça mas não consigo resolver esse problema vo postar aki os codigos pra ver se alguém consegue resolver... busca.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <form method="post" action="resultado.asp" target="_blank"> <p align="center"> <font color="#FF0000"><b><i><font color="#003399">Procurar: <select size="1" name="escolha" > <option value="zero" selected="selected"> </option> <option value="Produto">Produto</option> <option value="Marca">Marca</option> </select> </font></i></b><i><b><font color="#003399"> Em:</font></b></i></font> <input type="text" name="produto" > <input type="Submit" name="OK" value="Ir" style="color: #003399; font-family: Arial"> </form> </body> </html> resultado.asp <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Nova pagina 1</title> <style type="text/css">  </style> </head> <body> <% dim c1,r1 set c1=server.createObject("adodb.connection") set r1=server.createObject("adodb.recordset") c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "\Dados\Produtos.mdb;" c1.open set r1=c1.execute("select * from produtos where " & request.form("escolha") & " like '" & request.form("produto") & "%' ") %> </form> <td colspan="5" rowspan="17" bordercolor="#FFFF99" bgcolor="#ffffff"><table width="544" border="1" align="left" cellspacing="1" bordercolor="#808000" background="backup//Imagens/fundo.gif"> <tr> <th width="278" style="background-color: #cccccc" bordercolor="#CCCCCC" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Produto</i></font></strong></th> <th width="83" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Marca</i></font></strong></th> <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Preço</i></font></strong></th> <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Comprar</i></font></strong></th> </tr> <tr> <% Do While Not r1.eof %> <th width="278" style="background-color: "#FFFFFF" bordercolor="#000066" bordercolorlight="#808000" bordercolordark="#cccccc"> <%= r1.Fields("nome")%></a></th> <th width="83" style="background-color: "#cccccc" bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><%= r1.Fields("fabricante")%></th> <th width="93" style="background-color: "#FFFFFF" bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><%= r1.Fields("preço").Value %></th> <th width="93" style="background-color: "#FFFFFF" bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><a href="detalhes.asp?id=<%=r1("id") %>"><input type="image" src="backup/Imagens/carrinho.jpg" ONclick= "window.open('detalhes.asp?id=<%=r1("id")%>','principal')" ></th> </tr> <% r1.MoveNext count=count+1 Loop%> <% r1.close c1.close set r1=nothing set c1=nothing %> </table> </body> </html>

Envio De Confirmação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

<% Dim sMsgErr '***** Executa as ações desta página ***** Sub ProcessaPagina() '***** Declaração das Variáveis ***** Dim Nome,Email,Telefone,Assunto,Mensagem '***** Monta corpo da mensagem a enviar por e-mail sBodyText = sBodyText & " bla bla bla bla bla bla " & vbCrLf & vbCrLf'corpo sBodyText = sBodyText & " " & vbCrLf 'corpo sBodyText = sBodyText & "Nome: " & objrs("Nome") &vbCrLf 'corpo sBodyText = sBodyText & " bla bla bla bla bla bla " & vbCrLf sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo '***** Envia E-Mail para o destinatário ***** On Error Resume Next sMsgErr = "" Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = "administrador_do_site@site.com.br" ' Remetente da mensagem vemail = rs("email") Mail.To = "aqui_vem_o_email_do_usuario@scriptbrasil.com.br",vemail Destinatario da mensagem para Mail.Subject = "Compra Central de Assessoria ao Usuario de Informatica " 'assunto Mail.Body = sBodyText 'corpo da mensagem montada acima Mail.addbcc = "rafael_63@tchemail.com;br" 'com copia oculta Mail.Send If Err > 0 Then sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description End If On Error GoTo 0 End Sub '***** Executa as ações desta página ***** ProcessaPagina html = "" If (sMsgErr <> "") Then respnse.write "<p><br><br><font size=3 face=Verdana color=red>" & sMsgErr & "<br>" 'aqui voce poe onde voce quer q apareca no seu site a msg de erro End If %> <% dim c1,r1 set c1=server.createObject("adodb.connection") set r1=server.createObject("adodb.recordset") c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath(".")&"\Dados\Dados.mdb;" set r1=c1.execute("select * from usuarios where LOGIN='" & session.contents("login") & "'")%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Nova pagina 1</title> </head> <body> <p align="center"><font color="#FF3300" size="3"><i><b> <font color="black"></b></i></font> <p> </p> <p> <strong>Bem vindo: <font color="black"> <% response.write r1("LOGIN").value %> </font> </strong></p> <strong>   </strong> <form method="POST" action="Fim.asp" onSubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1"> <strong> <input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"> </strong> <p><strong><font color="#000000"></strong></p> <p><strong>Nome: <%response.write r1("NomeCompleto").value %> </strong></p> <p><strong>E-mail:<font color="black">  <%response.write r1("Email").value %> <font></strong></p> <p><strong>Endereço:<font color="black"> <%response.write r1("Endereco").value %> </font></strong></p> <p><strong>Cidade:<font color="black"> <%response.write r1("Cidade").value %> </font></strong></p> <p><strong>País:<font color="black"> <%response.write r1("PAIS").value %>    </font></strong></p> <p><strong>Se os dados estiverem certos clique em finalizar.Se não estiverem efetue o login novamente e altere seus dados. </strong><br> <input type="submit" value="Finalizar" name="B1" style="color: #003399; font-weight: bold"> </p> </form> <% r1.close c1.close set r1=nothing set c1=nothing %> </font> </body> </html> Ta certo assim o codigo?

Envio De Confirmação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

em q parte do meu codigo coloco esse codigo q me foi passado ???

Preços

pergunta respondeu ao bareta de Super_Zica_Man em ASP

cara se vocês puderem assim junto com o preço coloquem uma pagina de modelo pra mim ter uma ideia do tipod e pagina q vale o valor.... tipo tem a pagina www.cauirs.com.br e queria saber quanto valeria falta arrumar a paginação dos produtos q desconfigura o menu mas fora isso quanto valeria...

Avaliem Este Site Q Fiz

tópico respondeu ao Super_Zica_Man de Super_Zica_Man em Avaliações de Trabalhos

avaliem agora q ta o link ai

Paginação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

Estava fuçando no codigo e fiz algo pelo menos....Nos produtos deu certo ate so tem um problema quando vai em proxima pagina o banco de dados inteiro não so a seçao.. Codigo produtos.asp [CODE]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <style type="text/css"> td img {display: block;} .style1 {font-size: 9px} .style3 {font-size: 12px} </style> </head> </form> <body> <table width="100%" height="100%" align="center"> <tr> <td align="center" valign="center" border="0"> <table width="760px" height="540px"><tr><td> <table bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" width="799">  <tr> <td><img src="Imagens/spacer.gif" width="118" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="168" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="68" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="104" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="54" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="161" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="55" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="58" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="13" height="1" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="1" border="0" alt="" /></td> </tr> <tr> <td rowspan="2" colspan="2"><img name="metade_banner" src="Imagens/metade_banner.gif" width="286" height="129" border="0" id="metade_banner" alt="" /></td> <td colspan="7"><img name="metade_banner_2" src="Imagens/metade_banner_2.gif" width="513" height="120" border="0" id="metade_banner_2" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="120" border="0" alt="" /></td> </tr> <tr> <td rowspan="2"><a href="default.asp"><img name="topo_home" src="Imagens/topo_home.gif" width="68" height="19" border="0" id="topo_home" alt="" /></a></td> <td rowspan="2"><a href="cadastro.asp"><img name="topo_cad" src="Imagens/topo_cad.gif" width="104" height="19" border="0" id="topo_cad" alt="" /></a></td> <td rowspan="2"><a href="login.asp"><img name="topo_log" src="Imagens/topo_log.gif" width="54" height="19" border="0" id="topo_log" alt="" /></a></td> <td rowspan="2"><a href="carrinho.asp"><img name="topo_car" src="Imagens/topo_car.gif" width="161" height="19" border="0" id="topo_car" alt="" /></a></td> <td rowspan="2"><a href="ajuda.asp"><img name="topo_ajd" src="Imagens/topo_ajd.gif" width="55" height="19" border="0" id="topo_ajd" alt="" /></a></td> <td rowspan="2"><a href="mailto:caui@cauirs.com.br"><img name="topo_email" src="Imagens/topo_e-mail.gif" width="58" height="19" border="0" id="topo_email" alt="" /></a></td> <td><img name="complemento_banner" src="Imagens/complemento_banner.gif" width="13" height="9" border="0" id="complemento_banner" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="9" border="0" alt="" /></td> </tr> <tr> <td colspan="2" bgcolor="#ffffff"><img src="Imagens/spacer.gif" width="286" height="10" border="0" alt="" /></td> <td rowspan="19" bgcolor="#ffffff"><img src="Imagens/spacer.gif" width="13" height="590" border="0" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="10" border="0" alt="" /></td> </tr> <tr> <td><img name="menu_sob" src="Imagens/menu_sob.gif" width="118" height="22" border="0" id="menu_sob" alt="" /></td> <td rowspan="18" colspan="7" bgcolor="#ffffff"><p align="center" class="style1"><a href="busca.asp"></a> <iframe src="busca.asp" name="busca" width="608" height="100" scrolling="no"></iframe></p> <% dim c1,r1,count dim Conn dim RS Const intPageSize=20 'Tamanho da página - você pode alterar se quiser dim intCurrPage dim a set rs=server.CreateObject("adodb.recordset") set c1=server.createObject("adodb.connection") set r1=server.createObject("adodb.recordset") c1.CursorLocation=3 'AdUseClient 'Na linha acima, definimos que o cursor do banco de dados 'Deve estar no cliente. Com isso, podemos usar as propriedades 'de paginação. c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(".") & "\Dados\Dados.mdb;" set r1=c1.execute("select * from produtos where ID like '%" & request.querystring("produtos") & "%' ") intCurrPage=cint(Request.QueryString("CurrPage")) 'Pega a próxima página (que foi chamada através dos links definidos mais abaixo) if intCurrPage=0 then intCurrPage=1 'Se chamamos essa página na primeira vez 'definimos que a página atual será a página 1 'Caso contrário, é usado o valor que foi retornado 'pela QueryString r1.PageSize=intPageSize r1.AbsolutePage=intCurrPage 'No Loop abaixo, contamos de 1 até o Tamanho da página '(no nosso caso, 3). 'O registro 1 é o primeiro registro da página atual, 'e não o do recordset a=0 while a < intPageSize and not r1.EOF a=a+1 Response.Write r1.Fields("PRODUTO").Value & "<BR>" r1.MoveNext wend Response.Write "<BR>" for a = 1 to r1.PageCount if a <> intCurrPage then 'Se "a" for diferente da página atual, 'Mostramos um link para a página(com o valor de a) Response.Write "<a href=""produtos.asp?Currpage=" & a & """>" & a & "</a> " else Response.Write a & " " end if next Response.Write "<BR>" if intCurrPage > 1 then 'Caso exista uma próxima página... Response.Write "<a href=""produtos.asp?Currpage=" & intCurrPage-1 & """>Página Anterior</a>" end if Response.Write " " if intCurrPage < r1.PageCount then 'Caso exista uma página anterior... Response.Write "<a href=""produtos.asp?Currpage=" & intCurrPage+1 & """>Próxima Página</a>" end if %> <td><img src="Imagens/spacer.gif" width="1" height="22" border="0" alt="" /></td> </tr> <tr> <td><a href="default.asp"><img name="menu_home" src="Imagens/menu_home.gif" width="118" height="19" border="0" id="menu_home" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="19" border="0" alt="" /></td> </tr> <tr> <td><a href="empresa.asp"><img name="menu_emp" src="Imagens/menu_emp.gif" width="118" height="21" border="0" id="menu_emp" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="21" border="0" alt="" /></td> </tr> <tr> <td><a href="sistemas.asp"><img name="menu_sist" src="Imagens/menu_sist.gif" width="118" height="31" border="0" id="menu_sist" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="31" border="0" alt="" /></td> </tr> <tr> <td><img name="menu_prod" src="Imagens/menu_prod.gif" width="118" height="36" border="0" id="menu_prod" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="36" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=A"><img name="menu_acessorios" src="Imagens/menu_acessorios.gif" width="118" height="19" border="0" id="menu_acessorios" alt="" /></a></td> <td><img src="\Imagens\spacer.gif" width="1" height="19" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=b"><img name="menu_energia" src="Imagens/menu_energia.gif" width="118" height="20" border="0" id="menu_energia" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="20" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=c"><img name="menu_hd" src="Imagens/menu_hd.gif" width="118" height="20" border="0" id="menu_hd" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="20" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=d"><img name="menu_impressora" src="Imagens/menu_impressora.gif" width="118" height="21" border="0" id="menu_impressora" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="21" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=e"><img name="menu_memoria" src="Imagens/menu_memoria.gif" width="118" height="19" border="0" id="menu_memoria" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="19" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=f"><img name="menu_midia" src="Imagens/menu_midia.gif" width="118" height="20" border="0" id="menu_midia" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="20" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=g"><img name="menu_plmae" src="Imagens/menu_pl.mae.gif" width="118" height="21" border="0" id="menu_plmae" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="21" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=h"><img name="menu_processador" src="Imagens/menu_processador.gif" width="118" height="22" border="0" id="menu_processador" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="22" border="0" alt="" /></td> </tr> <tr> <td><a href="produtos.asp?produtos=i"><img name="menu_plvideo" src="Imagens/menu_pl.video.gif" width="118" height="30" border="0" id="menu_plvideo" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="30" border="0" alt="" /></td> </tr> <tr> <td><img name="menu_suporte" src="Imagens/menu_suporte.gif" width="118" height="33" border="0" id="menu_suporte" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="33" border="0" alt="" /></td> </tr> <tr> <td><a href="ajuda.asp"><img name="menu_ajuda" src="Imagens/menu_ajuda.gif" width="118" height="19" border="0" id="menu_ajuda" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="19" border="0" alt="" /></td> </tr> <tr> <td><a href="mailto:caui@cauirs.com.br"><img name="menu_contato" src="Imagens/menu_contato.gif" width="118" height="32" border="0" id="menu_contato" alt="" /></a></td> <td><img src="Imagens/spacer.gif" width="1" height="32" border="0" alt="" /></td> </tr> <tr> <td bgcolor="#ffffff"><img src="Imagens/spacer.gif" width="118" height="175" border="0" alt="" /></td> <td><img src="spacer.gif" width="1" height="175" border="0" alt="" /></td> </tr> <tr> <td colspan="9"><img name="rodape.gif" src="Imagens/rodape.gif" width="799" height="81" border="0" id="rodape" alt="" /></td> <td><img src="Imagens/spacer.gif" width="1" height="81" border="0" alt="" /></td> </tr> </table> </td></tr></table> </td> </tr> </table> </body> </html> E outra coisa gostaria de colocar os produtos,preço,marca dentro dessa tabela... <table width="600" border="1" align="center" cellspacing="1" bordercolor="#808000"> <tr> <th width="278" style="background-color: #cccccc" bordercolor="#CCCCCC" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Produto</i></font></strong></th> <th width="83" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Marca</i></font></strong></th> <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Preço</i></font></strong></th> <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Comprar</i></font></strong></th> </tr> <tr> <% Do While Not r1.eof %> <th width="400" style="background-color: "#FFFFFF" bordercolor="#000066" bordercolorlight="#808000" bordercolordark="#cccccc"> <span class="style3"><%= r1.Fields("PRODUTO")%></a></th></span></td> <th width="83" style="background-color: "#cccccc" bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"> <span class="style3"><%= r1.Fields("MARCA")%></th></span></td> <th width="93" style="background-color: "#FFFFFF" bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF" > <span class="style3"> R$ <%= formatNumber(r1.Fields("preço").Value,2) %></th></span></td> <th width="93" style="background-color: "#FFFFFF" bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><a href="detalhes.asp?id=<%=r1("id") %>"> <input type="image" src="Imagens/carrinho.jpg" ONclick= "window.open('detalhes.asp?id=<%=r1("id")%>','principal')" > </th> </tr> <% r1.MoveNext count=count+1 Loop%> <% r1.close c1.close set r1=nothing set c1=nothing %> </table>

Envio De Confirmação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

POR EXEMPLO meu codigo de quando o usuario finaliza a compra é esse: <% dim c1,r1 set c1=server.createObject("adodb.connection") set r1=server.createObject("adodb.recordset") c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath(".")&"\Dados\Dados.mdb;" set r1=c1.execute("select * from usuarios where LOGIN='" & session.contents("login") & "'")%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Nova pagina 1</title> </head> <body> <p align="center"><font color="#FF3300" size="3"><i><b> <font color="black"></b></i></font> <p> </p> <p> <strong>Bem vindo: <font color="black"> <% response.write r1("LOGIN").value %> </font> </strong></p> <strong>   </strong> <form method="POST" action="Fim.asp" onSubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1"> <strong> <input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"> </strong> <p><strong><font color="#000000"></strong></p> <p><strong>Nome: <%response.write r1("NomeCompleto").value %> </strong></p> <p><strong>E-mail:<font color="black">  <%response.write r1("Email").value %> <font></strong></p> <p><strong>Endereço:<font color="black"> <%response.write r1("Endereco").value %> </font></strong></p> <p><strong>Cidade:<font color="black"> <%response.write r1("Cidade").value %> </font></strong></p> <p><strong>País:<font color="black"> <%response.write r1("PAIS").value %>    </font></strong></p> <p><strong>Se os dados estiverem certos clique em finalizar.Se não estiverem efetue o login novamente e altere seus dados. </strong><br> <input type="submit" value="Finalizar" name="B1" style="color: #003399; font-weight: bold"> </p> </form> <% r1.close c1.close set r1=nothing set c1=nothing %> </font> </body> </html> ond boto esse codigo pra assim q finalizar a compra mandar email pra mim e pro cara

Centralizar Background

pergunta respondeu ao pogoball de Super_Zica_Man em Ajax, JavaScript, XML, DOM

http://scriptbrasil.com.br/forum/index.php?showtopic=71344

Paginação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

bareta coloca aki de novo eu não vi q tu tinha editado pesei q tinha dado pau no peu post dai coloqquei o link e apaguei aquilo dpois vi teu post desculpa ai

Envio De Confirmação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

Onde eu boto isso isso ta configurado pra o e-mail q o usuario boto no cadastro pegar pra mandar pra esse e-mail q ele cadastro dai tem q so modificar meu e-mail certo?

Envio De Confirmação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

Tah isso eu sei.. Rodei aquele componente no servidor roda ASPEMAIL E CDONTS

Envio De Confirmação

uma questão postou Super_Zica_Man ASP

tenho uma loja de e-commerce queria que quando o cliente confirmasse a compra mandasse um e-mail para o cliente e um e-mail para mim com os dados da compra com o valor a ser depositados e produtos comprados.. Eu acho q se usa aspmail peguei uns tutoriais mas explica tipo como indica site pro amigo essas coisas....Mas não explica o que eu preciso... Obrigado..

Paginação

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em ASP

Codigo da seção produtos... http://rapidshare.de/files/12686251/produtos.asp.html

Como Fazer Montagens...

pergunta respondeu ao Super_Zica_Man de Super_Zica_Man em Fireworks

tu vm aki pra começar não e nem registrado e baxa o tom de voz e fika xingando os kras cara pensa bem essas feramentas de receortar serve pra ti recortar uma imagem e por num otro fundo ouseja se tu não sabia isso.... Ou quer um tutorial completo ???????? Passo a Passo????? Ou melhor ainda so quer as coisas prontas

Entrar

Super_Zica_Man

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que Super_Zica_Man postou

Pessoal O Que é Api Jmail?

Topico Exclusivo - Componentes De E-mail - 1 !

Pessoal O Que é Api Jmail?

Paginação Ta Dando Erro....

Ofertas No Default

Ofertas No Default

No Fórum "prog. E So" Ninguem Responde..

Sistema De Busca Dando Erro....

Sistema De Busca Dando Erro....

Sistema De Busca Dando Erro....

Sistema De Busca Dando Erro....

Sistema De Busca Dando Erro....

Envio De Confirmação

Envio De Confirmação

Preços

Avaliem Este Site Q Fiz

Paginação

Envio De Confirmação

Centralizar Background

Paginação

Envio De Confirmação

Envio De Confirmação

Envio De Confirmação

Paginação

Como Fazer Montagens...

Navegação

Atividades