<%@ language="VBScript"%> <%Response.Buffer=true%> <% dim Con set Con=server.CreateObject ("ADODB.Connection") Con.Open Application("ConnectionString") getSql="select login_name as login_name from tbl_demo_users where " Industry=Request("Industry") response.write profession supportservices=Request("SupportServices") specify=Request("Specify") role=Request("Role") Description=Request("OrganizationDescription") about=Request("about") EBusiness=Request("BudgetedEBusiness") PurchaceTimeFrame=Request("PurchaceTimeFrame") partnerinterest=Request("PartnerProgramInterest") insertSql="insert into Download(industry,supportservices,specify,role,Description,about,EBusiness,purchasetimeframe,partnerinterest)values ('"&Industry &"','" & supportservices &"','" & specify &"','" & role &"','" & Description & "','" & about &"','" & EBusiness & "','" & PurchaceTimeFrame & "','" & partnerinterest& "')" Response.Write "

" & insertSql Con.execute(insertSql) %> Disclaimer

<%con.close set con=nothing %>