Mudar um componete

Noísaqui · Junho 19, 2005

Alguém pode me dar uma mão bom preciso mudar o componente de e-mail estou usando cdonts mas meu server mudou as configurações preciso trocar o componente Jmail.. algué poderia me ajudar por favor...o script segue logo a baixo..

<%response.buffer = trueFunction rndit()'generate password from randomize number Dim RndTemp Randomize RndTemp = Rnd * 1000000 RndTemp= Int(RndTemp) rndit = RndTemp End Function 'declerationdim useraction,conn,rs,sql,sql1,user,passuseraction = request("action")select case useraction case "login" 'generate the function PasswordTemp = rndit() 'collect data from form user = request.form("user") email = request.form("email") 'response.write user & email & rndit'***debug 'database objects Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") 'sql query sql = "select pass from users where pass='"&PasswordTemp&"' or user='"& user & "'" Conn.Open dsn rs.open sql,conn if rs.eof and rs.bof then sql1 = "insert into users (user,pass,email) values('"& user & "',"& PasswordTemp & ", '"& email & "')" conn.execute(sql1) response.write "<script>alert('you registered succefully');location.href='index.asp';</script>" Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") body = "Goto http://www.myscript.co.il/index.asp " & vbCrLf body = body & " Your username is: " & user & vbCrLf body = body & " Your password is: " & PasswordTemp & vbCrLf objCDO.To = email objCDO.From = "eladr@tip.co.il" objCDO.Subject = "Welcome to our member section!" objCDO.Body = body objCDO.Send else response.write "<script>alert('username already excist');</script>" end if rs.closeset rs = nothingconn.closeset conn = nothingend select%> <html><head><script>function valid(){var user = document.theform.user.valuevar userLength = document.theform.user.value.lengthif(userLength<4 || user==""){alert("User fieled should contain 4-10 chars");document.theform.user.focus()return false } var email=document.theform.email.value;if (email==""){alert("Please type your Email")document.theform.email.focus()return false }if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){ alert("No valid e-mail address!"); document.theform.email.focus() return false }}</script> <title>Untitled</title></head><body><br><br><br><br><form name="theform" action="reg.asp?action=login" method="post" onsubmit="return valid()"><table align=center bgcolor="Silver"><tr><td>Desired UserName</td><td><input type="text" name="user" size=15 maxlength=10>(4-10 chars)</td></tr><tr><td>Email(The password wil be sent to your email!)</td><td><input type="text" name="email" size=20 maxlength=30></td></tr><tr><td colspan=2 align=center><input type="submit" value="login"></td></tr></form></body></html>

Generation · Junho 19, 2005

Bom acho que so a estrutura deve lhe ajudar..

ASP

[*]Dim objMail

[*]set objMail = Server.CreateObject("JMail.Message")

[*]

[*]objMail.From = "remetente@dominio.com.br"

[*]objMail.FromName = "Nome do Remetente"

[*]

[*]objMail.AddRecipient "destinatario@dominio.com.br", "Nome do Destinatário"

[*]

[*]objMail.Subject = "Assunto da mensagem"

[*]objMail.Body = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."

[*]

[*]If objMail.Send("smtp.dominio.com.br") Then

[*] Response.write "E-mail enviado..."

[*]Else

[*] Response.Write "Erro no envio de e-mail: " & objMail.log

[*]End if

[*]

[*]Set objMail = Nothing

So substituir o Cdonts por ele que ira funcionar..

T+

Entrar

Arquivado

Mudar um componete

Recommended Posts

Noísaqui 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Generation 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante