Document 1: province.asp
<% SUB SELECTPROVINCE (BYVAL Province) DIM RS, STRSQL, MSG MSG = "" strsql = "Select * from proVinces" set = conn.execute (strsql) While NOT RS.EOF IF RS ("province") = province dam Msg = MSG & "" & rs ("province") & " option>" else msg = msg & "