% Action = Request("Action") Select Case Action Case "Submit" '...Open Data Connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DSN=Bizcom") Set Cmd = Server.CreateObject("ADODB.Command") Set Cmd.ActiveConnection = Conn Cmd.CommandType = 1 Inform = Request("chkInform") If Inform <> "Yes" Then Inform = "No" Member = Request("chkMember") If Member <> "Yes" Then Member = "No" Title = FormatSQL(Request("Title")) FirstName = FormatSQL(Request("FirstName")) Surname = FormatSQL(Request("Surname")) Organisation = FormatSQL(Request("Organisation")) Position = FormatSQL(Request("Position")) Postal = FormatSQL(Request("Postal")) City = FormatSQL(Request("City")) Phone = FormatSQL(Request("Phone")) Fax = FormatSQL(Request("Fax")) Email = FormatSQL(Request("Email")) JobFunction = FormatSQL(Request("chkJobFunction")) Activity= FormatSQL(Request("chkActivity")) Employed = FormatSQL(Request("chkEmployed")) Expenditure = FormatSQL(Request("chkExpenditure")) Learn = FormatSQL(Request("chkLearn")) ThisDate = FormatSQL(Now) If Email = "Null" Then Response.Redirect("Error.html") End If SQL = "INSERT INTO Details(Title, FirstName, Surname, Organisation, Position, " SQL = SQL & "Address, City, Phone, Fax, Email, Inform, JobFunction, Activity, " SQL = SQL & "Employed, Expenditure, Learn, DateMailed, Member) " SQL = SQL & "VALUES(" & Title & ", " & Firstname & ", " & Surname & ", " SQL = SQL & Organisation & ", " & Position & ", " & Postal & ", " & City & ", " SQL = SQL & Phone & ", " & Fax & ", " & Email & ", " & Inform & ", " & JobFunction & ", " SQL = SQL & Activity & ", " & Employed & ", " & Expenditure & ", " & Learn & ", " SQL = SQL & ThisDate & ", " & Member & ")" Cmd.CommandText = SQL Cmd.Execute If Conn.Errors.Count Then Response.Redirect("Error.html") End If Response.Redirect("Thanks.html") End Select %>