% OPTION EXPLICIT %> <% Dim sCheckType_1, sCheckType_2, sCheckType_3 Dim sCheckPreff_1, sCheckPreff_2, sCheckPreff_3 sCheckType_1="" sCheckType_2="" sCheckType_3="" sCheckPreff_1="" sCheckPreff_2="" sCheckPreff_3="" if Request.QueryString("sHow")= "email" then sCheckType_1="Checked" elseif Request.QueryString("sHow")= "fax" then sCheckType_2="Checked" elseif Request.QueryString("sHow")= "phone" then sCheckType_3="Checked" end if if Request.QueryString("sPrefered")= "Morning_10am_to_12noon" then sCheckPreff_1="Checked" elseif Request.QueryString("sPrefered")= "Afternoon_12noon_4pm" then sCheckPreff_2="Checked" elseif Request.QueryString("sPrefered")= "Evening_4pm_6pm" then sCheckPreff_3="Checked" end if %>
|
||||||||||||||||||||||||||||||||||||||||||