<% v_Email = request("txtemail") v_SendTO = request("txtsendto") v_Body = "The original message was received at " & date & " " & time & "(EST)" & vbCrLf v_Body = v_Body & "from pop3.hostwings.net [138.112.194.116]" & vbCrLf& vbCrLf& vbCrLf v_Body = v_Body & "*** ATTENTION ***"& vbCrLf& vbCrLf v_Body = v_Body & "Your e-mail is being returned to you because there was a problem with its" & vbCrLf v_Body = v_Body & "delivery. The address which was undeliverable is listed in the section" & vbCrLf v_Body = v_Body & "labeled: ----- The following addresses had permanent fatal errors -----" & vbCrLf v_Body = v_Body & "The reason your mail is being returned to you is listed in the section" & vbCrLf v_Body = v_Body & "labeled: ----- Transcript of Session Follows -----." & vbCrLf& vbCrLf v_Body = v_Body & "The line beginning with <<< describes the specific reason your e-mail could" & vbCrLf v_Body = v_Body & "not be delivered. The next line contains a second error message which is a" & vbCrLf v_Body = v_Body & "general translation for other e-mail servers." & vbCrLf& vbCrLf v_Body = v_Body & "Please direct further questions regarding this message to your e-mail" & vbCrLf v_Body = v_Body & "administrator." & vbCrLf & vbCrLf v_Body = v_Body & " ----- The following addresses had permanent fatal errors -----" & vbCrLf v_Body = v_Body & v_Email & vbCrLf& vbCrLf v_Body = v_Body & " ----- Transcript of session follows -----" & vbCrLf v_Body = v_Body & "... while talking to air-ya03.mail.aol.com.:" & vbCrLf v_Body = v_Body & ">>> RCPT To: " & v_Email & vbCrLf v_Body = v_Body & "<<< 550 MAILBOX NOT FOUND" & vbCrLf v_Body = v_Body & "550" & v_Email & "... User unknown" & vbCrLf Set objCDO = Server.CreateOBject( "JMail.Message" ) objCDO.Logging = true objCDO.silent = true objCDO.From = "Mail Delivery Subsystem" objCDO.FromName = "Mail Delivery Subsystem" objCDO.AddRecipient v_SendTO objCDO.Subject = "Returned mail: User unknown" objCDO.Body = v_Body objCDO.Send("localhost") Set objCDO = nothing Response.Write "Mail sent to : " & v_Email Response.Write "
" Response.Write "Mail sent to : " & v_SendTO %>