'*********************************************************
'Function name: JoinChar
'Function: Add to the address? or&
'Parameters: strUrl-----Website
'Return value: Added ? or & URL
'*********************************************************
functionJoinChar(strUrl)
ifstrUrl=""then
JoinChar=""
exitfunction
endif
ifInStr(strUrl,"?")<len(strUrl)then
ifInStr(strUrl,"?")>1then
ifInStr(strUrl,"&")<len(strUrl)then
JoinChar=strUrl&"&"
Else
JoinChar=strUrl
endif
Else
JoinChar=strUrl&"?"
endif
Else
JoinChar=strUrl
endif
endfunction