Indique Este Site

Homer-Simpson · Junho 22, 2006

GENTE É O SEGUINTE ESTOU COM UM SISTEMA DE INDICAÇÃO DE SITE , MAS TEM UMA BRONCA O SISTEMA, ALIAS TODOS QUE ENCONTRO NA NET USAM O CDONTS E MEU PROVEDOR NÃO TEM ISSO ALGUM PODE ME AJUDAR VAI AI O CÓDIGO QUE ESTOU USANDO

Pagina = indique.asp

<%

dim useraction

useraction = request("action")

select case useraction

case "login"

seunome = request.form("seunome")

seuemail = request.form("seuemail")

nomeamigo = request.form("nomeamigo")

emailamigo = request.form("emailamigo")

Set objCDO = Server.CreateObject("CDONTS.NewMail")

htmlemail = htmlemail & ""

htmlemail = htmlemail & "Olá <font "

htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "! "

htmlemail = htmlemail & " "

htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site e pensou que você iria gostar de visitar o site também!"

htmlemail = htmlemail & " "

htmlemail = htmlemail & "SEU AMIGO INDICOU ESSE SITE. "

htmlemail = htmlemail & "Atenciosamente, "

htmlemail = htmlemail & " teste.com.br"

htmlemail = htmlemail & "- O seu Portal "

htmlemail = htmlemail & " <a href=http://www.teste.com.br>www.teste.com.br</a>"

objCDO.To = emailamigo

objCDO.From = seunome

objCDO.Subject = "V I S I T E ! ! !"

objCDO.Body = htmlemail

objCDO.MailFormat = 0

objCDO.Bodyformat = 0

objCDO.Send

response.redirect "indique2.asp"

end select

%>

<html>

<head>

<STYLE type=text/css>BODY {

BACKGROUND-REPEAT: repeat-y

}

TD {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

P {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

LI {

FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px

}

A:link {

COLOR: #336699; TEXT-DECORATION: none

}

A:visited {

COLOR: #336699

}

A:active {

COLOR: #336699

}

A:hover {

COLOR: #3399cc

}

INPUT {

BACKGROUND-COLOR: #FFECF0; BORDER-BOTTOM-COLOR: #106394; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #106394; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #106394; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #106394; BORDER-TOP-WIDTH: 1px; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

TEXTAREA {

BACKGROUND-COLOR: #e3f4fd; BORDER-BOTTOM-COLOR: #106394; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #106394; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #106394; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #106394; BORDER-TOP-WIDTH: 1px; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

SELECT {

BACKGROUND-COLOR: #e3f4fd; BORDER-BOTTOM-COLOR: #106394; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #106394; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #106394; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #106394; BORDER-TOP-WIDTH: 1px; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

INPUT.botao {

BACKGROUND-COLOR: #cc0000; BORDER-BOTTOM-COLOR: #cc0000; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #000066; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #000066; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #000066; BORDER-TOP-WIDTH: 1px; COLOR: #ffffff; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

INPUT.checkbox {

BACKGROUND-COLOR: #ffffff; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

INPUT.radio {

BACKGROUND-COLOR: #ffffff; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px

}

</STYLE>

<title>N Indicação</title>

</head>

Preenchendo este formulário,

você estará indicando o Site

à seu amigo.

<tr><td width="111" height="1" bgcolor="#F88888">Seu

Nome:</td><td width="263" height="1" bgcolor="#F88888"><input type="text" name="seunome" size=31></td></tr>

<tr><td width="111" height="0" bgcolor="#F88888">Seu

E-mail:</td><td width="263" height="0" bgcolor="#F88888"><input type="text" name="seuemail" size=31 maxlength=30></td></tr>

<tr><td width="111" height="25" bgcolor="#F88888">Nome

do Amigo:</td><td width="263" height="25" bgcolor="#F88888"><input type="text" name="nomeamigo" size=31 maxlength=30></td></tr>

<tr><td width="111" height="25" bgcolor="#F88888">E-mail

do Amigo:</td><td width="263" height="25" bgcolor="#F88888"><input type="text" name="emailamigo" size=31 maxlength=30></td></tr>

</table>

</center>

</div>

</form>

</body>

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

pagina = indique2.asp

<html>

<head>

<title>Indicação</title>

</head>

A indicação foi enviada com sucesso !

</body>

.Andreia. · Junho 22, 2006

primeiramente, bem vindo ao forum ;)

bom, só pra entender.. se o seu servidor não tem CDONTS, ele tem algum outro componente de envio de e-mail?

porque se não tiver, ou você usa um formmail ou então usa tags pra enviar mensagem usando o outlook

Homer-Simpson · Junho 26, 2006

Anndrea sp, valeu a atenção mas já resolvi a bronca, o provedor liberoru o cdonts dai o script funviona que é uma beleza Obrigado pela atenção você já me ajudou muito aqui em outros tempos.

Um Abraço.

Pode fechar o tópico.

Entrar

Indique Este Site

Pergunta

Homer-Simpson

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Homer-Simpson

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades