'************************************************************
'Nombre de la función: JoinChar
'Función: ¿Agregar a la dirección? o&
'Parámetros: Strurl ----- Sitio web
'Valor de retorno: ¿agregado? o & url
'************************************************************
FunctOJOINCHAR (Strurl)
ifstrurl = "" entonces
JoinChar = ""
extinción
endif
ifinstr (Strurl, "?") <Len (Strurl) entonces
ifinstr (Strurl, "?")> 1
ifinstr (Strurl, "&") <Len (Strurl) entonces
JoinChar = Strurl & "&"
Demás
JoinChar = Strurl
endif
Demás
JoinChar = Strurl y "?"
endif
Demás
JoinChar = Strurl
endif
Función final