Send mail in a free asp hosting.
-
You need to send mail in a free hosting that does not support mail object (like free account of brinkster)this is a solution: Try my demo: http://www25.brinkster.com/vokha/mail.asp This is my code(This code using CDOSYS to send mail): <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Source code send mail in anyhost that support ASP and run below Windows 2000 'This source code send mail using a remote SMTP server that support open relay 'If you can't send mail in any server by this code. Please contact me. Because I using another 'server to send mail. So if someone change my password. It doesn't work. To make it work you 'should go to http://online.ie/registration/index.adp (Or any SMTP Server that support open relay). Register an account 'and place your username and password in the following code ' ' objConfig.Fields(cdoSMTPServer) = "Your server" ' objConfig.fields(cdoSendUserName) = "Your account" ' objConfig.fields(cdoSendPassword) = "Your password" ' 'Written by: VO KHA 'Email: one_puppy@yahoo.com 'Website: http://www.qitt.com, http://www.qitt.com/forum/ 'Referce: msdn.microsoft.com, file cdosys.idl '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if(trim(Request.Form("btnSend")) <> "") then Dim strFrom, strTo, strSubject, strBody strFrom = trim(Request.Form("txtFrom")) strTo = trim(Request.Form("txtTo")) strSubject = trim(Request.Form("txtSubject")) strBody = trim(Request.Form("txtContent")) call CDOSYSSendMail(strFrom, strTo, strSubject, strBody) end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function CDOSYSSendMail(strFrom, strTo, strSubject, strBody) Const cdoSendUsingPort = 2 Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objMessage, objConfig Set objMessage = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO
-
You need to send mail in a free hosting that does not support mail object (like free account of brinkster)this is a solution: Try my demo: http://www25.brinkster.com/vokha/mail.asp This is my code(This code using CDOSYS to send mail): <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Source code send mail in anyhost that support ASP and run below Windows 2000 'This source code send mail using a remote SMTP server that support open relay 'If you can't send mail in any server by this code. Please contact me. Because I using another 'server to send mail. So if someone change my password. It doesn't work. To make it work you 'should go to http://online.ie/registration/index.adp (Or any SMTP Server that support open relay). Register an account 'and place your username and password in the following code ' ' objConfig.Fields(cdoSMTPServer) = "Your server" ' objConfig.fields(cdoSendUserName) = "Your account" ' objConfig.fields(cdoSendPassword) = "Your password" ' 'Written by: VO KHA 'Email: one_puppy@yahoo.com 'Website: http://www.qitt.com, http://www.qitt.com/forum/ 'Referce: msdn.microsoft.com, file cdosys.idl '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if(trim(Request.Form("btnSend")) <> "") then Dim strFrom, strTo, strSubject, strBody strFrom = trim(Request.Form("txtFrom")) strTo = trim(Request.Form("txtTo")) strSubject = trim(Request.Form("txtSubject")) strBody = trim(Request.Form("txtContent")) call CDOSYSSendMail(strFrom, strTo, strSubject, strBody) end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function CDOSYSSendMail(strFrom, strTo, strSubject, strBody) Const cdoSendUsingPort = 2 Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objMessage, objConfig Set objMessage = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO
Hi, I think whatever you are saying is not a Open Relay, if I am right. You are sending mail through the SMTP servers with the mail account for which you have registered for yourself. Perhaps for definitions of Open Relay and Third Party Relay, please check this URL. http://mail-abuse.org/rbl/relay.html Deepak Kumar Vasudevan http://deepak.portland.co.uk/