<%@ Page Language="vb" debug="false" %> <%@ Import Namespace="System.Web.Mail" %> <% dim strJOnumber,strCust strJOnumber=Request.QueryString("jo") strCust=Replace(Request.QueryString("custname"),"and","&") dim msgMail as new MailMessage() msgMail.To = "jonathan.sanagustin@nehmeh.com" msgMail.From = "service@nehmeh.com" msgMail.Subject = "JO #: " & STRJONUMBER & " Pick-up Confirmation" msgMail.Body = "Dear Nehmeh Service," & chr(13) & chr(13) & "Customer " & strcust & " with JO # " & strjonumber & " has confirm Pick-up of all 100 % complete item/s." & chr(13) & chr(13) & "Thanks," smtpMail.SmtpServer="exchangesvr" smtpMail.Send(msgMail) Response.Write("Thank you for sending Pick-up Confirmation") %>