<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

		<% If Trim(Request.Form("submit")) <> "" Then %> <% Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail.redbookaudio.com" .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "info@redbookaudio.com" .Item(cdoSendPassword) = "pimpin" .Update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Trim(Request.Form("email")) .To = "info@redbookaudio.com" .Subject = "Sign me up for the Red Book Audio mailing list" .TextBody = "Name: " & Trim(Request.Form("name")) & vbcrlf & "Email: " & Trim(Request.Form("email")) & vbcrlf .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %> You are now on our mailing list! Thank You. <% else %> Please provide the following information below to recieve the latest news and updates about Red Book Audio. Name: Email Address:   <% End if %>