<% button=request("button") NAME=request("NAME") COMPANY=request("COMPANY") EMAILADDRESS=request("EMAILADDRESS") PHONE=request("PHONE") BESTTIME=request("BESTTIME") COMMENTS=request("COMMENTS") if BUTTON = "Get Quote!" then ' input validation Set objSendMail = CreateObject("CDONTS.NewMail") objSendMail.Send "info@tlclists.com", "info@tlclists.com, leads@tlclists.com" , "Contact Us, " & Now, "Name: " & Name & chr(13) & "Company: " & COMPANY & chr(13) & "Email Address: " & EMAILADDRESS & chr(13) & "Phone: " & PHONE & chr(13) & "Best Time: " & BESTTIME & chr(13) & "Comments: " & COMMENTS, 0 Set objSendMail = Nothing dim objConn dim objRS, strQuery set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=tlcleads; UID=tlcleads; PWD=bullweb1; Option=3" Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open "tlc_contacts", objConn strQuery = "INSERT INTO tlc_contacts (name, company, email, phone, comments, date, landing_page) VALUES('" & NAME & "','" & COMPANY & "','" & EMAILADDRESS & "','" & PHONE & "','" & COMMENTS & "','" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & "','TLCLists.com')" objConn.Execute strQuery Set objRS = Nothing objConn.Close Set objRS = nothing Set objConn = nothing response.redirect "Thankyou.asp" end if %>