SUB getZones()'used in extranet/reporting/default.asp - also gets called from Function PulldownDB()
	Set objRs = server.createobject("ADODB.Recordset")
	objRs.activeconnection=oConn
	strSQL = "SELECT min(reporting_id) as reporting_id, visit_zone FROM tblExtranetReport group by visit_zone"

	objRs.open strSQL
	If objRs.EOF Then
		EXIT SUB
	End If
'Response.Write(StrSQL)
'Response.End()
END SUB

Function PulldownDB(byRef funcName, ByRef strInputName, ByRef intSize, ByRef blnDisabled, _
	ByRef strFirstValue, ByRef strFirstLabel, ByRef varSelectedValue, ByRef strJavascript, value, Label )

		
'Usage :PulldownDB(funcName, InputName, Size, IsDisabled?, FirstValue, FirstLabel, SelectedValue(request.value), Javascript, value(db field), Label(db field) )
' in /includes/customerRequests_object.asp. 
' strOutputSelect = PulldownDB("getZones()", "visit_zone", 1, "", 0, "Zone", visit_zone, "onchange=""this.form.submit();""", "visit_zone", "visit_zone" )
' response.write(strOutputSelect)
	
	Dim strDisabled
	Dim strPulldown
	Dim varValue, strLabel
	'Dim objCon, objCmd, objRs


	If blnDisabled = True Then strDisabled= " disabled=""disabled"""
	strPulldown = ""
	strPulldown = strPulldown & "<select name=""" & strInputName & """ id=""" & strInputName & """ size=""" & intSize & """" & strDisabled & " " & strJavascript & ">"

	' 1st option e.g. "Select..." is optional
	If strFirstLabel <> "" Then
							strPulldown = strPulldown & "<option value=""" & strFirstValue & """>" & strFirstLabel & "</option>" & vbcrlf
	End If
	
	Select Case funcName 'pass the function in and then call it 
		Case "getZones()"
			Call getZones()
		Case "getCustomer()"
			'Call getCompany()
			Response.Write("The Customer select box goes here")
			EXIT Function ' not live yet
		Case Else
			Response.Write("Nothing to do")
			EXIT Function
	End Select
	
                     
	With objRs
		Do While Not .EOF                                               
			varValue = .Fields(Value) '0
			strLabel = .Fields(Label) '1
			strPulldown = strPulldown & "<option value=""" & varValue & """"                                                
			If (CStr(varValue) = CStr(varSelectedValue)) Then
									strPulldown = strPulldown & " selected"
			End If                                      

			strPulldown = strPulldown & ">" & strLabel & "</option>" & vbcrlf                                                                  

			.MoveNext
		Loop
	End With

	' Clean up
	Set objRs = Nothing
	'objCon.Close
	'Set objCmd = Nothing
	'Set objCon = Nothing

	strPulldown = strPulldown & "</select>"
	PulldownDB = strPulldown
	'Response.Write(PulldownDB)
End Function