<% email = request.form("email") password = request.form("password") process = request.form("process") referprocess = request.form("referprocess") lnamesearch = request.form("lnamesearch") newuserid = request.form("newuserid") newemail = request.form("newemail") newsurname = request.form("newsurname") newtimeframe = request.form("newtimeframe") newlocation = request.form("newlocation") newcontact = request.form("newcontact") newsurnameid = request.form("newsurnameid") surnameid = request.form("surnameid") pword = request.form("pword") vpword = request.form("vpword") npword = request.form("npword") rnpword = request.form("rnpword") userid = request.form("userid") 'response.write("pword:" & pword & "
") 'response.write("vpword:" & vpword & "
") 'response.write("npword:" & npword & "
") 'response.write("rnpword:" & rnpword & "
") 'response.write("process:" & process & "
") 'response.write("referprocess:" & referprocess & "
") set conn = server.createobject("ADODB.connection") conn.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\data\paf.mdb")) select case process case "1": SQL="SELECT surnames, timeframe, location, contact, email, auto_id FROM tbl_surnames where surnames >= '" & lnamesearch & "' and surnames <= '" & lnamesearch & "ZZZZZZ" & "' order by surnames" case "2": SQL="SELECT surnames, timeframe, location, contact, email, auto_id FROM tbl_surnames order by surnames" case else: process=2 SQL="SELECT surnames, timeframe, location, contact, email, auto_id FROM tbl_surnames order by surnames" end select set snames=conn.execute(SQL) %> Surname Query List