impactdisk, cd cards, cd business cards, cd, cdr, replication, duplication, impactdisc, impact, disc, disk

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%*/%> <% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") //RL: mailer requires a FromAddress so we'll fake one if one hasn't been entered Dim fromAddress fromAddress = cStr(Request("Email")) If (fromAddress = "") Then fromAddress = cStr("Blank") End If Mailer.FromAddress = fromAddress Mailer.RemoteHost = "mail.impactdisk.com" Mailer.AddRecipient "", "form@impactdisk.com" Mailer.AddRecipient "", "form2@impactdisk.com" Mailer.Subject = "Impactdisk Web Enquiry: " & cStr(Request("Subject")) Mailer.BodyText = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("lastname")) & Chr(13) & Chr(10) &_ "Company: " & cStr(Request("company")) & Chr(13) & Chr(10) &_ "Position: " & cStr(Request("position")) & Chr(13) & Chr(10) &_ "Email: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ "Subject: " & cStr(Request("Subject")) & Chr(13) & Chr(10) &_ "Comments: " & cStr(Request("Comments_Suggestions")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) &_ "hidden: " & cStr(Request("Info")) If (cStr(Request("Submit")) <> "") Then Mailer.SendMail Dim myURL //myURL = "http://www.impactdisk.com" myURL = "http://www.impactdisk.com/thankyou.htm" Response.Redirect (myURL) End If %> impactdisk, cd cards, cd business cards, cd, cdr, replication, duplication, impactdisc, impact, disc, disk WebResponder

ATAG