<% Set oMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields 'Local service (dont change) iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 iConf.Fields.Update Set oMail.Configuration = iConf oMail.To = "Links@dtdtransport.com" oMail.From = "links@dtdtransport.com" oMail.Subject = "Subject: Link Request" Body = "name : "& Request("name")& chr(13) & chr(10) & "E-mail :" & Request("email") & chr(13) & chr(10) & "Site Title :" & Request("sitetitle") & chr(13) & chr(10) & "Description:" & Request("sitedesc") & chr(13) & chr(10) & "URL.:" & Request("siteurl") & chr(13) & chr(10) & "Reciprocal URL:" & Request("siterecipurl") & chr(13) & chr(10) & "Category:" & Request("sitecategory") & chr(13) & chr(10) oMail.TextBody = Body oMail.Send Set iConf = Nothing Set Flds = Nothing %>