<% dim objDb set objDb = dbInit("cupcake") strSQL = "select Name, Code, TheValue from PreAppt where IndexID=" & Request("IndexID") set rsAppt = objDb.Execute(strSQL) %>

  <% = rsAppt("Name") %> <% do while not rsAppt.EOF %> <% rsAppt.MoveNext loop %>
<% if Request("Type") = "Carrier" then Response.Write("State") else Response.Write("Carrier") end if %> Pre-Appointments 
<% = rsAppt("Code") %> <% = rsAppt("TheValue") %>