Jump to content


m.designer

Member Since 24/08/2005
Offline Last Active 01/08/2007, 02:51
-----

Topics I've Started

Www.imensagens.net

18/03/2006, 01:19

Olá estou fazendo esse site iMensagens

Gostária de sugestoes, criticas, oq melhorar ....

Obrigado !

LINK: iMensagens

Trocar Componente

04/11/2005, 11:50

Ola eu tenho um sistema de Cartão virtual aqui mais da erro na hora de enviar o cartão, porque meu servidor não tem o componente que ele usa, eu queria mudar o codigo para usar o Componente que meu servidor tem, meu servidor tem esse componente "Persits - ASPEmail" se alguem puder me ajudar ficarei agradeçido, ai vai o código ...



<!--#include file="config.asp"--> 
<%
im = request.form("image")
ida = request.form("id")
title = request.form("title")
toname = request.form("toname")
tomail = request.form("tomail")
fromname = request.form("fromname")
frommail = request.form("frommail")
message = request.form("message")
bgcol = request.form("bgcol")
txtcol = request.form("txtcol")
sound = request.form("sound")
set Conna= Server.CreateObject("ADODB.Connection")
  set rsa = server.CreateObject("ADODB.RecordSet")
  Conna.Open Conn_String
sqla ="select * from sent"
SQLB = "select * from config"
set rsb = conna.execute (sqlb)

RSa.open sqla,Conna,1,3
RSa.AddNew
randomize
rsa("pid") = int(rnd*99999)+1
RSa("card")=im
RSa("fromname")=fromname
RSa("frommail")=frommail
RSa("toname")=toname
RSa("tomail")=tomail
RSa("title")= title
RSa("bgcol")= bgcol
RSa("txtcol")= txtcol
RSa("message")= message
RSa("sentdate")= date()
RSa("sound") = sound
RSa.update
'response.write "sent"
ticket = rsa("pid")
mysite = rsb("url")
myname = rsb("myname")
days = rsb("days")


Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = fromname
Mailer.FromAddress= frommail
Mailer.RemoteHost = rsb("mailserver")
Mailer.AddRecipient tomail, tomail
Mailer.Subject    = "Você recebeu um cartão"
Mailer.BodyText = toname &"," & vbCrLf   &  fromname & " " &  "Você acaba de receber um cartão virtual "& vbCrLf  &_
  "you can pick up you card on our site" & " "& mysite & vbCrLf  & "by entering your ticket number witch is: "  & ticket & vbCrLf  & " or simply click on the bleow url to automaticly view your card " & vbCrLf  & mysite& "/get.asp?ticket="& ticket & vbCrLf  & vbCrLf  & "Regards" & vbCrLf  & myname & vbCrLf  & "* Card must be recived within " & days & " days or it will be deleted"
Mailer.SendMail
set Mailer = nothing
	
	
	
	
	

	if Err.Number<>0 then

  Response.write "Error: " & Err.description

	else%>

<center>
  <p>&nbsp;</p><table width="98" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td><img src="top.gif" width="750" height="111"></td>
    </tr>
    <tr> 
      <td bgcolor="#333399"><table width="100%" border="0" cellspacing="1" cellpadding="1">
          <tr> 
            <td valign="top" background="bg.jpg" bgcolor="#FFFFFF"> <center>
              </center>
              <center>
                <p>&nbsp;</p>
                <p>&nbsp;</p>
                <p><font size ="2" face="Verdana, Arial, Helvetica, sans-serif">Seu 
                  cart&atilde;o foi enviado para:<br>
                  <%=toname%> (<%=tomail%>)<br>
                  </font><font size ="4"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href = "index.asp"> 
                  Voltar</a></font></font> </p>
              </center>
              <%
end if
rsa.close

%>
              <p>&nbsp;</p>
              <center>
              </center></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td bgcolor="#333399"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Superasp.com.br 
          - Copyright&copy; 2001 - Todos os direitos reservados</font></div></td>
    </tr>
  </table>
  </center>


Sistema De Mensagens

10/10/2005, 00:09

Ola pessoal sou novato nessa area, só sei sobre design estava precisando de um script assim, cadastra Categorias, cadastra mensagem na categoria e mostra as mensagens, uma parte com as mensagens mais votadas, e um lugar para comentar a mensagem, eh bem simples tentei usar script pronto de noticias mais nao deu certo se alguem puder me ajudar agradeço ....

Nome Do Site ?

28/09/2005, 19:34

Ola pessoal, não sabia onde postar então resolvi postar aqui ...

Estou fazendo um site de wallpappers "Papeis de parede" isso é o conteudo, tem outras coisas mais isso será o conteudo principal.

Se alguem puder ajudar fico agradecido

o site será .com então nao pode existir ja

valeu pessoallll, me ajudemm

Cache....

06/09/2005, 14:13

Ola, meu computador nao inicia o windows, se eu vou na configuração e deixo cache 1 disable ele incia mais muito lerdo, alguem sabe o problema? se o processador esta quebrado ou a placa mae? ou outra coisa ? valeu agradeço !!!

IPB Skin By Virteq