<% dim Conn set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=SQLOLEDB.1;User Id=sa;pwd=ntsisports;Initial Catalog=SMLeads;Data Source=sportsdb" Conn.open Set Rec = Server.CreateObject("ADODB.Recordset") Rec.open "Select CustID from PurchaseQuotes where QuoteId = " & Request.QueryString("Quote"),Conn Set Rec2 = Server.CreateObject("ADODB.Recordset") Rec2.open "Select * from Login where CustId = " & Rec("CustID"),Conn dim objEmail set objEmail = CreateObject("CDonts.Newmail") objEmail.to ="MCallahan@sportsmanager.us" strQuote = Request.QueryString("Quote") objEmail.from = "Online_Configurator" & "@sportsmanager.us" objEmail.body = formatcurrency(Request.QueryString("Offer")) & vbCR & vbCR & "FROM: " & Rec2("Email") & vbCR & "QUOTE#: " & strQuote & vbCR & "NAME: " & Rec2("FNAME") & " " & Rec2("LName") & vbCR & "COMPANY :" & Rec2("Company") & vbCR & "TELEPHONE :" & Rec2("Telephone") & vbCR & "Address :" & Rec2("Street") & "," & Rec2("City") & " " & Rec2("State") & " " & Rec2("Zip") & vbCR & "FAX :" & Rec2("Fax") objEmail.subject = "Web Quote Comment/Question" objEmail.send dim objEmail2 set objEmail2 = CreateObject("CDonts.Newmail") objEmail2.to ="SHarty@sportsmanager.us" strQuote2 = Request.QueryString("Quote") objEmail2.from = "Online_Configurator" & "@sportsmanager.us" objEmail2.body = formatcurrency(Request.QueryString("Offer")) & vbCR & vbCR & "FROM: " & Rec2("Email") & vbCR & "QUOTE#: " & strQuote & vbCR & "NAME: " & Rec2("FNAME") & " " & Rec2("LName") & vbCR & "COMPANY :" & Rec2("Company") & vbCR & "TELEPHONE :" & Rec2("Telephone") & vbCR & "Address :" & Rec2("Street") & "," & Rec2("City") & " " & Rec2("State") & " " & Rec2("Zip") & vbCR & "FAX :" & Rec2("Fax") objEmail2.subject = "Web Quote Comment/Question" objEmail2.send Response.Redirect "ViewOldQuotes.asp?U=" & (Rec("CustID") * 9991) %>