Originally posted by mrhappy
View Post
Originally posted by mikhael
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
if dv < 1 then
s = hs.URLAction(server_url, "POST", "PIN=5035551212&MSSG=" & send_str2 & "&Q1=1", headers)
hs.waitsecs 5
if instr(s,"content.arch.com") > 1 and instr(s,"Cannot process") = 0 then
hs.writelog "SENT TO PAGER" , send_str
else
hs.writelog "ARCH PAGE ERROR" , "MESSAGE: [" & send_str & "] WAS NOT SENT, SENDING USING EMAIL BACKUP"
hs.writelog "ARCH PAGE ERROR DEBUG" , send_str2
hs.writelog "ARCH PAGE ERROR DEBUG" , s
hs.SendEmail "5035551212@usamobility.net","Home","MESSAGE", send_str
hs.SendEmail "you@x..com","home@verizon.net","ARCH PAGER ERROR", send_str & VBCRLF & VBCRLF & send_str2 & VBCRLF & VBCRLF & s
end if
end if
send_str2 = Replace ( send_str2 , "%" , "%25" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "+" , "%2B" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , " " , "+" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "," , "%2C" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "." , "%2E" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "~" , "%7E" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "`" , "%60" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "<" , "*" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , ">" , "*" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "/" , "%2F" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "?" , "%3F" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , ";" , "%3B" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , ":" , "%3A" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "'" , "`" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , CHR(34) , "``" , 1 , -1 , 1) ' QUOTE MARK
send_str2 = Replace ( send_str2 , CHR(13) , "+" , 1 , -1 , 1) ' Return now a space
send_str2 = Replace ( send_str2 , "-" , "%2D" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "_" , "%5F" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "=" , "%3D" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "!" , "%21" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "@" , "%40" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "#" , "%23" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "$" , "%24" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "^" , "%5E" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "&" , "%26" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "*" , "%2A" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , "(" , "%28" , 1 , -1 , 1)
send_str2 = Replace ( send_str2 , ")" , "%29" , 1 , -1 , 1)
Comment