Jump to content


pablomica

Member Since 23/07/2003
Offline Last Active 22/10/2003, 02:00
-----

Topics I've Started

Cartao Virtual

27/09/2003, 02:02

Caros amigos

Estou tentando instalar o sistema de cartao virtual no meu site mas está dando um problema que nao consegui resolver. quando executo o arquivo principal index.asp
aparece o seguinte erro:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC para Microsoft Access] Seqüência de agrupamento selecionada não suportada pelo sistema operacional.

/postcards/inccard.asp, line 71
 e a linha 71 é: 
Set oRS = oConn.Execute("select count(*) as no from " & Postcard_GetTablePrefix() & "card" )

	PostCard_GetCardCount = oRS("no").Value
	oRS.Close

O que está errado nesse código??

Grato

Envio De E-mail

13/08/2003, 23:13

Caros Amigos

Tenho instalado um newsletter instalado em meu site, so que é quando para o envio do e-mail, o mesmo é enviado mas nao chega a caixa de destino

qual a maneira correta de enviar e-mail usando esse codigo, ou seja, o codigo pegar todos os e-mail cadastrados.


Veja o codigo abaixo:

 Set mail = Server.CreateObject("CDONTS.NewMail")
   mail.From = email
  ' mail.Host = mail
   mail.To = rs("email")
   mail.Subject = assunto
   mail.BodyFormat = 0
   mail.Body = mensagem 
   'mail.Send
   Set mail = Nothing
   Response.Write "Email enviado para : " & rs("email") & "<br>"
   user = user + 1
   rs.MoveNext
   Wend
   Response.Write "No total foram enviados " & user & " emails."
   rs.Close
   Set rs = Nothing
   Sql = "INSERT INTO enviados (assunto,mensagem,data) "
   Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
   Conexao.Execute(Sql)
   Else
   Response.Redirect "admin.asp?acao=erro"
   End If
   FechaConexao %>

<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
    <td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
    <td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
  </tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>

<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">

<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">

<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>

<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">

<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")     
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
</body>
</html>

Abrir Uma Outrar Janela

12/08/2003, 23:45

Caros Amigos

estou fazendo um site e estou com o seguinte problema

na pagina principal tem um botao de nome Bate papo... e gostaria o seguinte, quando clicar nesse botao abrir uma janela de tamanho definido em H e W com a pagina do nick e a escolha da sala.

Ou seja essa janela é tipo um pop up, mas so ira aparecer se o botao for pressionado.

Pablomica

Formularios Formail.php

03/08/2003, 02:41

Caros amigo

Onde posso encontrar o arquivo que enviar e-mail do meu proprio site... pois nao queria usar nenhum servicos de e-mail com o o wmonline.

Gostaia que enviasse do meu proprio site.
action=www.meusite.com.br/formail.php de preferencia em asp

desde ja agradeco

Usar Parametros Para Chamar Páginas

01/08/2003, 19:43

Caros Amigos

Sou novo em ASP e estou fazendo um site. So que me deparei com o seguinte problema

Construi a pagina princiapl com tres colunas principais onde a coluna esquerda ~e ocupado pelos menus e a do meio ocupado pelo conteudo da pagina e a direitas ocupado com outros conteudos.

Ai vem o problema
como posso fazer um parametro do tipo index?Id=vendas para que possa chamar todas as página e o conteudo ser apresentado na coluna do meio.
Pois existe varias paginas como vendas, home, chat, noticias, sugstoes, fale conosco, ouseja todas essas pagina gostaria de um parametro para abri-las como citado acima.

Por favor gostaria de algumas resposta que me ajudasse, pois estou precisando muitissssssssimo

pablomica

IPB Skin By Virteq