Et lille script som sender en mail
Set RS = conn.Execute (\"UPDATE MedlemsInfo SET MedlemsPassword = \'\" & NewPassword & \"\', GodkendtAfBruger = \'Ja\' Where MedlemsIdNr = \'\" & yourId & \"\' \")
Set RS1 = conn.Execute (\"SELECT ForNavn, Efternavn, Email FROM MedlemsInfo WHERE MedlemsIdNr = \'\" & YourId & \"\' \")
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.formor.dk\"
JMail.Sender = \"formor_systems@formor.dk\"
JMail.Subject = \"Your web site is now activated.\"
JMail.AddRecipient RS1(\"Email\")
JMail.Priority = 1
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
\' ********** Her starter selve email-en
JMail.Body = \"Hi \" & RS1(\"Fornavn\") & \" \" & RS1(\"EfterNavn\") & vbCrLf &_
\"\" & vbCrLf &_
\"Your account is activated and online at
http://www.formor.dk/\" & YourId & vbCrLf &_
\"\" & vbCrLf &_
\"Your access to the member section at
http://www.formor.dk/member/\" & vbCrLf &_
\"is now activated.\" & vbCrLf &_
\"To log into the member section you must use your member ID number : \" & vbCrLf &_
\"\" & YourId & vbCrLf &_
\"\" & vbCrLf &_
\"and your password : \" & vbCrLf &_
\"\" & NewPassword & vbCrLf &_
\"\" & vbCrLf &_
\"We recomend that you save this Email or print it out. \" & vbCrLf &_
\"\" & vbCrLf &_
\"Thank you\" & vbCrLf &_
\"\" & vbCrLf &_
\"Bo Johansen\" & vbCrLf &_
\"CEO ForMorDk Systems\" & vbCrLf &_
\"\" & vbCrLf &_
\"\" & vbCrLf &_
\"\" & vbCrLf &_
\"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\" & vbCrLf &_
\"\" & vbCrLf &_
\"If you havent requested to join ForMor Systems and feel that someone has abused your\" & vbCrLf &_
\"email address and/or personal information, Please forward this email to\" & vbCrLf &_
\"systems_abuse@formor.dk with the context as is\" & vbCrLf &_
\"\" & vbCrLf &_
\"Do not hit the reply button. The message will automatically be deleted\" & vbCrLf &_
\"\" & vbCrLf &_
\"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\"
JMail.Execute
Set JMail = Nothing