<%

'Segmentos
If segmento = "" Then
	segmento = Request.QueryString("seg")
End If

If segmento = titCorporativo Then

	titulo = titCorporativo
	contenido = contCorporativo
	imgTit = "ti_coorp.jpg"

	ReDim servSegmento(0,6)
	
	servSegmento(0,0) = intCorDedCo
	servSegmento(0,1) = enlacePrivDed
	servSegmento(0,2) = segInfoCorp
	servSegmento(0,3) = hostComElecCorp
	servSegmento(0,4) = couPrevDes
	servSegmento(0,5) = polizasCorp
	servSegmento(0,6) = impRentRep
	
	noServicios = 7
	
ElseIf segmento = titPyme Then

	titulo = titPyme
	contenido = contPyme
	imgTit = "ti_pymes.jpg"
	
	ReDim servSegmento(0,5)

	servSegmento(0,0) = accesoInt
	servSegmento(0,1) = redPriv
	servSegmento(0,2) = segInfoB
	servSegmento(0,3) = hostValAgre
	servSegmento(0,4) = couServ
	servSegmento(0,5) = traVVM
	
	noServicios = 6

ElseIf segmento = titEduGob Then

	titulo = titEduGob
	contenido = contEduGob
	imgTit = "ti_eduygob.jpg"
	
	ReDim servSegmento(0,7)

	servSegmento(0,0) = intCorDedEdGob
	servSegmento(0,1) = enlacePrivDed
	servSegmento(0,2) = segInfoEdGob
	servSegmento(0,3) = hostComElecEdGob
	servSegmento(0,4) = videoCserV
	servSegmento(0,5) = couPrevDes
	servSegmento(0,6) = polizasEdGob
	servSegmento(0,7) = impRentRep
	
	noServicios = 8
	
ElseIf segmento = titHoteleria Then

	titulo = titHoteleria
	contenido = contHoteleria
	imgTit = "ti_hotel.jpg"
	
	ReDim servSegmento(0,4)

	servSegmento(0,0) = hotSpot
	servSegmento(0,1) = servConm
	servSegmento(0,2) = intCorDedHo
	servSegmento(0,3) = tarServ
	servSegmento(0,4) = videoMon
	
	noServicios = 5

ElseIf segmento = titHotspot Then

	titulo = titHotspot
	contenido = contHotspot
	imgTit = "ti_hotspot.jpg"
	
	ReDim servSegmento(0,0)

	servSegmento(0,0) = nulo

	noServicios = 1
	
ElseIf segmento = titResidencial Then
	
	titulo = titResidencial
	contenido = contResidencial
	imgTit = "ti_res.jpg"

	ReDim servSegmento(0,0)
	
	servSegmento(0,0) = nulo

	noServicios = 1
	
Else	

	ReDim servSegmento(0,8)
	
	servSegmento(0,0) = accesoInt
	servSegmento(0,1) = redPriv
	servSegmento(0,2) = hostValAgre
	servSegmento(0,3) = videoCserV
	servSegmento(0,4) = centDatos
	servSegmento(0,5) = polizasCorp
	servSegmento(0,6) = segInfoCorp	
	servSegmento(0,7) = impRentRep	
	servSegmento(0,8) = hotSpot
	
	noServicios = 9
	
End If
%>