cyberalexxx

Primeira coisa: verificar no servidor que hospeda o site que componente de email ele suporta. depois de descoberto o componente, podemos lhe dar um exemplo de script que faça isso. Segunda coisa: Os componentes de email que eu conheço só enviam arquivos anexos se estes arquivos estiverem no servidor, portanto voce precisará fazer o upload do arquivo antes de enviar a mensagem, verifique tambem com o servidor se ele da suporte a algum componente de upload. Caso não tenha faça uma busca no forum que tem um script de upload de arquivos sem componentes. []'s Cyberalexxx

Dei uma fuçada rapida aki, da uma olhada se funciona:

Acessei o endereço que você passou, qual é o link que esta com problema?? Outra coisa: no seu sistema de login eu consegui acessar usando SQL Injection, portanto faça um tratamento de aspas simples e quando deixo o login e senha e branco ele tambem da erro, ta faltando um tratamento ai também.

OK!!

Sistema pronto eu não conheço, mais é bem simples de fazer em ASP Voce tem algum conhecimento em ASP??

OK!! Tópico Fechado!!!

Nunca trabalhei através de AddNew, mais sera que depois que voce adiciona o novo registro(em branco) e seta um valor para o campo, tipo: rs1.Fields("loja_virtual") = loja , não teria que atualizar o registro com rs1.Update ??? []'s Cyberalexxx

Banco de dados MySql: colocar no select ORDER by RAND() Banco Access: colocar no select ORDER by RND(campo)

beleza!! Se puder mostrar como ficou a consulta, pra servir de referencia seria legal. []'s Cyberalexxx

Tem a seguinte linha no seu código: contador = rstemp.recordcount ela armazena o numero de registros encontrados, para fazer o que você quer faça assim embaixo dessa linha.

Permita-me algumas mudanças na estrutura/lógica de seu script: <% const aduseclient = 3 SQLtemp = "select * from prod where tipo LIKE '%" & request("tipo") & "%' Order by titulo" pagina = request("qualpagina") if pagina = "" then pagina = "1" end if tamanhopagina = request("pagesize") if tamanhopagina = "" then tamanhopagina = 20 end if SQL = request("SQLquery") if SQL = "" then SQL = SQLtemp end if set rstemp = Server.CreateObject("ADODB.Recordset") rstemp.cursorlocation = aduseclient rstemp.cachesize = 5 rstemp.open SQL,cn,1 if not rstemp.eof then contador = rstemp.recordcount rstemp.movefirst rstemp.PageSize = tamanhopagina maximopagina = cint(rstemp.PageCount) maximoregistros = cint(rstemp.PageSize) rstemp.AbsolutePage = pagina registros = 0 response.write "<center><font face=verdana size=2 color=red>Pagina " & pagina & " de " & maximopagina & "</font></center><br>" response.write "<center><table width=90% >" Do Until rstemp.eof OR registros >= maximoregistros response.write "<tr>" response.write "<td valign=bottom>" response.write "<img src = '" & rstemp("tipo") & "/" & rstemp("codigo") & ".jpg'><br>" response.write "<font face = verdana size = 1>" response.write "<b>Codigo:</b> " & rstemp("CODIGO") & "<br>" response.write "<b>Tipo:</b> " & rstemp("TIPO") & "<br>" response.write "<b>Preço:</b> <font color = red>" & FORMATCURRENCY(rstemp("preço")) & " <a href='carrinho.asp?codigo=" & rstemp("CODIGO") & "'>CARRINHO</a></font><br>" response.write "</font></td>" rstemp.movenext registros = registros + 1 if registros mod 4 = 0 then response.write "</tr><tr><td colspan=4><hr size=3></td></tr>" end if Loop response.write "</table></center><p>" rstemp.close set rstemp = nothing end if %>

Complicado hein!! voce tem certeza que os registros estão na mesma ordem senão vira uma bagunça.

é o seguinte: você esta dando um RsTemp.MoveNext no recordset e depois disso não faz uma validação se é o fim do Recordset e já manda exibir os dados, é so colocar um If not Rstemp.eof then antes de exibir os dados

Olha ali um código meu com varias quebras de linha na mensagem:

Tem algum campo em comum entre as duas tabelas, pra poder fazer um relacionamento???

Tenta entaum fazendo com o UNION, da uma olhada neste tópico é mesma duvida: http://scriptbrasil.com.br/forum/index.php?showtopic=35457

Da pra fazer usando INNER JOIN, mais explica melhor com você quer essa consulta, pra gente montar uma consulta SQL.

Cara, nunca fiz isso, mais caso eu precisasse eu tentaria assim: SELECT COUNT(tabela1.campo) AS campo1, COUNT(tabela2.campo) as campo2 FROM tabela1, tabela2 ou assim: SELECT COUNT(tabela1.campo) AS campo1, COUNT(tabela2.campo) as campo2 FROM tabela1 INNER JOIN tabela2

Olha aki um exemplo: http://scriptbrasil.com.br/forum/index.php...ndpost&p=182219

beleza!! To fechando o tópico!! Caso precise mande PM para alguém da moderação que o tópico é reaberto. []'s Cyberalexxx

O correto seria xx = xx + 1 Na verdade a lógica que voce esta usando para exibição de duas colunas não é a mais recomendada pois tem muito código desnecessário no seu código, tenta isso aki: <!-- #include file="../include/top.asp" --> <% pagina = Request.QueryString("p") if pagina = "" then pagina = 1 end if 'Seta a variavel pagina como a página em questão na paginação registros = 10 'Seta o número de registros por pagina set RS = Server.Createobject("AdoDB.RecordSet") set RS.ActiveConnection = conn RS.cursortype = 3 RS.pagesize = registros StrSQL = "select * from Items where tipo=""calca""" RS.Open StrSQL if RS.EOF then %><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><% else RS.absolutepage = pagina if RS.EOF then %><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><% fim = -1 end if xx = 0%> <table width="776" height="55"> <tr> <% while NOT RS.EOF AND xx < RS.pagesize xx = xx + 1 %> <td height="86" width="384"> <form method=get action=DETALHES.ASP> <table width="26%" height="86" border="0"> <tr> <td width="30%" height="82" valign="middle"> <div align="center"><img src="http://www.dynamus.economicojp.com/produtos/shop/uploads/<%=rs("ImageDesc")%>" width="75" height="130" border="0"></div> </td> <td width="70%" height="82"> <table width="195" border="1" align="left" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF"> <tr> <td bgcolor="#FFFFFF" height="10" width="187"><span class="style16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs("ItemName")%></font></span></td> </tr> <tr> <td bgcolor="#ffffff" height="18" width="187"> <p align="LEFT" class="style17"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><span class="style20"><strong><span class="style19"> <input type="HIDDEN" name="NOME" value="<%=rs("ItemName")%>"> <input type="HIDDEN" name="desc" value="<%=rs("Itemdesc")%>"> <input type="HIDDEN" name="image" value="<%=rs("ImageDesc")%>"> <input type="HIDDEN" name="color" value="<%=rs("cores")%>"> <input type="HIDDEN" name="tamam" value="<%=rs("tamanho")%>"> <input type="HIDDEN" name="refe" value="<%=rs("ref")%>"> <input type="submit" name="Submit" value="Ver Detalhes"> </span></strong></span> </font> </td> </tr> </table> </td> </tr> </table> </form> </td> <% if xx mod 2 = 0 then%> </tr></table><table width="776" height="55"> <tr> <%end if%> rs.movenext rs.cachesize = 1 wend %> </table> <%end if if fim = "" then anterior = pagina - 1 proxima = pagina + 1 if anterior <> 0 then %><% end if RS.Close Conn.Close %><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> - <% end if %><a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima Página</a> OBS: fiz meio na pressa talvez precise de alguns ajustes da uma olhada.

é isso!?!? Replace(campo,chr(13),"<br>") T+

OK!! To fechando o tópico, qualquer coisa manda PM pra alguém da moderação que o tópico é reaberto. []'s

quando voce usa o Rs.MoveNext para ir para a segunda coluna voce deve somar + 1 no contador xx e não esquece de verificar se esta no fim do arquivo. []'s

Voce esta exibindo 10 registros na pagina e o seu PageSize esta igual a 5 que é valor da variavel registros, altere o valor desta variavel para 10.