Web Development

<br />
<%<br />
      Response.Write "<Select  name='City' onClick='redirect(this.options.selectedIndex)' onFocus='redirect(this.options.selectedIndex)' onChange='redirect(this.options.selectedIndex)'>"<br />
      Response.Write "<option value='Select'>Select City</option>"<br />
<br />
			for ii=1 to temp_rs.RecordCount<br />
      	if (Request ("srchCat") = temp_rs ("City")) then<br />
         	selOpt = "selected"<br />
         else<br />
         	selOpt = ""<br />
         end if<br />
         Response.Write "<option " & selOpt & " value='" & temp_rs ("City") & "'>" & temp_rs ("City") & "</option>"<br />
         temp_rs.MoveNext<br />
      next<br />
      <br />
      Response.Write "</select>"<br />
<br />
        Response.Write "<Select name='Category' size='1'>"<br />
        Response.Write "<option value='Select'>Select Category</option>"<br />
        Response.Write "</select>"<br />
<br />
%><br />

<br />
<br />
<script><br />
<!--<br />
	var groups = document.drsrchform.City.options.length<br />
	var group = new Array(groups)<br />
//  alert ("Hai");<br />
<br />
	for (i=0; i<groups; i++)<br />
		group[i]=new Array()<br />
<%<br />
	Dim curVal, cityCnt, catCnt, curCity<br />
	cityCnt = 1<br />
	catCnt = 0<br />
<br />
	set conn = Server.CreateObject("ADODB.Connection")<br />
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" &Server.MapPath(drDatabase)<br />
	Set temp_rs = Server.CreateObject("ADODB.RecordSet")<br />
	SqlStr= "SELECT distinct Category, City FROM DocDetails where Country='XXX' order by City"<br />
<br />
	temp_rs.Open SqlStr, conn, 1,3<br />
	curCity = temp_rs ("City")<br />
<br />
	Do While not temp_rs.EOF<br />
		curVal = temp_rs ("Category")<br />
		if (curCity <> temp_rs("City")) then<br />
			cityCnt = cityCnt + 1<br />
			catCnt = 0<br />
			curCity = temp_rs ("City")<br />
		end if<br />
%><br />
//		alert ("<%=curVal%>" + " <%=cityCnt%>" + " <%=catCnt%>");<br />
		group[<%=cityCnt%>][<%=catCnt%>] = new Option ("<%=curVal%>","<%=curVal%>");<br />
<%<br />
		catCnt = catCnt + 1<br />
		temp_rs.MoveNext<br />
	loop<br />
	set temp_rs=nothing<br />
	set Conn=nothing<br />
%><br />
	var temp=document.drsrchform.Category<br />
	function redirect(x)<br />
	{<br />
		for (m=temp.options.length-1;m>0;m--)<br />
			temp.options[m]=null<br />
		for (i=0;i<group[x].length;i++)<br />
		{<br />
			temp.options[i]=new Option(group[x][i].text,group[x][i].value)<br />
		}<br />
		temp.options[0].selected=true<br />
	}<br />
//--><br />
</script><br />
<br />