<%@language="VBscript"%><% If Request.QueryString("which") = 1 then f_name = Request.Form("f_name") email = Request.Form("email") company = Request.Form("company") phone = Request.Form("phone") question = Request.Form("question") txtBody = txtBody & "Concentrek Inquiry" & vbcrlf & vbcrlf txtBody = txtBody & "Name: " & " " & f_name & vbcrlf txtBody = txtBody & "Company: " & " " & company & vbcrlf txtBody = txtBody & "Email: " & " " & email & vbcrlf txtBody = txtBody & "Phone: " & " " & phone & vbcrlf txtBody = txtBody & "Inquiry: " & " " & question & vbcrlf ccBody = ccBody & f_name & "," & vbcrlf & vbcrlf ccBody = ccBody & "Thank you for taking time to contact us. Someone will get back with you in a short time." & vbcrlf ccBody = ccBody & vbcrlf & "Concentrek." & vbcrlf Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = email objMail.To = "rudym@cprgr.com" objMail.Subject = "Concentrek Website Inquiry" objMail.Body = txtBody objMail.Send Set objMail=Nothing Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "rudym@cprgr.com" objMail.To = email objMail.Subject = "Concentrek Website Inquiry" objMail.Body = ccBody objMail.Send Set objMail=Nothing message = "Thank you for your submission. Someone will contact you shortly." End IF %> <%=message%>