'*************************************************************
'Nome da função: Join
'Função: adicione ao endereço? ou&
Parâmetros: Strurl ----- Site
'Valor de retorno: adicionado? OR & URL
'*************************************************************
functionJoinChar (Strurl)
ifstrurl = "" então
Junção = ""
saída de saída
endif
ifinstr (strurl, "?") <len (strurl) então
ifinstr (strurl, "?")> 1hen
ifinstr (strurl, "&") <len (strurl) então
Junção = strurl & "&"
Outro
Junção = strurl
endif
Outro
Junção = strurl & "?"
endif
Outro
Junção = strurl
endif
Função final