<%
    Function EncodeStr(Message)
     Dim msg
     msg= ""
         For i = 1 To Len(Message)
           c = Mid(Message, i, 1)
           Select Case c
            Case "&": c = "%26"
            Case "+": c = "%2B"
            Case "%": c = "%25"
            Case "#": c = "%23"
            Case "=": c = "%3D"
            Case " ": c = "%20"
			Case "'": c = "%27"
           End Select
            msg = msg + c
         Next  
     EncodeStr=msg   
   End Function

Function BillingGateway(ccode)
  
  BillingGateway =2
                       if mid(ccode,1,1) = "+" then
                        ccode = mid(ccode, 2)
                        end if
                       if ccode = "234" then 
                          BillingGateway =1
                       end if
                      if ccode = "229" then 
                          BillingGateway =2
                       end if
                      if ccode = "237" then 
                          BillingGateway =2
                      end if
                      if ccode = "44" then 
                         BillingGateway =2
                      end if
                      if ccode = "1" then 
                          BillingGateway =2
                      end if

  
  
End Function


Function MessageCount(PhoneNumber)
   Dim ArrayNum
   ArrayNum =split(phonenumber,",")
   MessageCount = ubound(ArrayNum)+1
End Function


Function parsestring(var1)
  newstr=  replace(var1,"'"," ",1)
  newstr=  replace(newstr,""""," ",1)
  parsestring = newstr
End Function

Function removecrlf(var1)
  newstr=  replace(var1,vbcrlf,"",1)
  newstr=  replace(newstr,vbcr,"",1)
  removecrlf = newstr
End Function

Sub Sendmail(email,message,msend,mbal)

       Set Mail = Server.CreateObject("Persits.MailSender") 
  
        Mail.Host = "64.118.88.92" ' Required
       Mail.userName = "bonny@247sms.com"
       Mail.Password = "me2008"
       Mail.From = "sales@247sms.com"
       Mail.FromName = "sales@247sms.com" ' Optional

       mto = email
       msub = "Account Balance"
       mbody = message & vbcrlf & vbcrlf & "Total No. of Message sent " & msend & vbcrlf & "Account Balance " & mbal &  vbcrlf  & "Thanks"
       Mail.AddAddress mto
       Mail.Subject = msub
       Mail.Body = mbody
       Mail.Send
      

End sub



Function writetext (Username, Pass, Org, Ccode, Dest, Mess, Messtype, mtransid)

      Const ForReading = 1, ForWriting = 2, ForAppending = 8
      
      dim fs,fname
      set fs=CreateObject("Scripting.FileSystemObject")

      messageout = Username & vbtab & Pass & vbtab & Org & vbtab & cCode & vbtab & Dest & vbtab &  Mess & vbtab & Messtype  & vbtab & Mtransid  & vbcrlf 
      set fname=fs.OpenTextFile("C:\Inetpub\vhosts\247sms.com\httpdocs\resellerbulksms\" &  mtransid & ".aaa", ForAppending, True)
      fname.Write(messageout)
      fname.Close
      set fname=nothing
      set fs=nothing

End Function



Function writetextreseller (Username, Pass, Org, Ccode, Dest, Mess, Messtype, mtransid)

      Const ForReading = 1, ForWriting = 2, ForAppending = 8
      
      dim fs,fname
      set fs=CreateObject("Scripting.FileSystemObject")
     
      mdate =formatdateTime(date,0)
      mdate = replace(mdate,"/","-")
      messageout = Username & vbtab & Pass & vbtab & Org & vbtab & cCode & vbtab & Dest & vbtab &  Mess & vbtab & Messtype & vbtab & Mtransid & vbcrlf
      set fname=fs.OpenTextFile("C:\Inetpub\vhosts\247sms.com\httpdocs\resellerlogs\" & mdate & "-" & username & ".txt", ForAppending, True)
      fname.Write(messageout)
      fname.Close
      set fname=nothing
      set fs=nothing

End Function


Function TransID()
    Dim decRandomNumber 

        RANDOMIZE 
        decRandomNumber = RND( )
        r = mid( decRandomNumber,3) 
        d= date
        t =time
        d= replace(d,"/","")
        t= replace(t,":","")
        d= mid(d,2,3) & "0"
        t=mid(t,2,5)
        mstr = r&d&T
	mstr = replace(mstr,"E","10")
        mstr = replace(mstr,"-","11")
        TransID =mstr
                          				  
End Function


Dim oConn 
Dim oRs 
Dim filePath 
Dim Index 
Dim datapass
Dim newfrom
Dim newnum
Dim newmess
Dim messcount
Dim username
Dim accbal
Dim mydate
Dim mytime
Dim datesent
Dim timesent
Dim ArrPhoneNumber
Dim messresp
Dim feedback
mytime=time()
mydate=date()
datesent = mydate
timesent = mytime
username =""
newfrom = ""
newnum = ""
newmess = ""
messcount = 0
feedback = ""

username= request("username")
ppass= request("pass")

pfrom= request("from")
ptonumber= request("tonumber")
ptonumber= trim(ptonumber)
pnum = ptonumber
pmess= request("message")
pmess= removecrlf(pmess)
pccode = request("pccode")
messagetype = request("messagetype")

if messagetype = "" then

 messagetype = "0"
end if


flag = false

if username = "" then
 
 response.Write("Error:1 Some Required fields are blank" & "<br>")
  flag = true
end if

if ppass = "" then
 
 response.Write("Error:1 Some Required fields are blank" & "<br>")
 flag = true

end if



if pfrom = "" then
 
 response.Write("Error:1 Some Required fields are blank" & "<br>")
 flag = true

end if


if ptonumber = "" then
 
 response.Write("Error:1 Some Required fields are blank" & "<br>")
 flag = true

end if


if pccode = "" then
 
 response.Write("Error:1 Some Required fields are blank" & "<br>")
 flag = true

end if


'if len(pmess) > 160 then
 
 'response.Write("Error:4 Message too long")
 'flag = true

'end if

if flag = false then

               
'remove control characters from the field
ptonumber= removecrlf(ptonumber)


'encode from field
newfrom=EncodeStr(pfrom)
newtonum= EncodeStr(ptonumber)
newmess = Encodestr(pmess)

                
'count the number of phone numbers
messcount= MessageCount(ptonumber)
mpass = ppass
                
' Execute a SQL query and store the results within recordset
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.RecordSet")
oConn.Open "247smsodbc", "sms247ID", "sms2020"
            
' Execute a SQL query and store the results within recordset

query = "SELECT * from sms247ID.userslogin where username ='"& username &"' and pass = '"& ppass &"'"
Set oRsx = oConn.Execute( query)

If  oRsx.eof  then  
 response.Write("Error:2 Incorrect logins" & "<br>")



else 
 mlock = oRsx("mlock")


query = "SELECT * from sms247ID.account where username ='"& username &"'"
Set oRs = oConn.Execute( query)





If  oRs.eof  then 
 response.Write("Error:2 Incorrect logins" & "<br>")

else 
         
 accbought = oRs("abought")
 accused    = oRs("aused")
 accbal     = oRs("balsms")

 nosms = 1
 'check len of sms
 if len(pmess) > 160 then
    nosms = (len(pmess) \ 153) + 1
 end if
 newcost = messcount * BillingGateway(pccode) * nosms  
                  
 if accbal < newcost then
    oRs.close
    oConn.close 
    response.Write("Error:3 Insufficient Credit" & "<br>")
 else
        newbal = accbal-newcost
        amtused =accused+newcost
        'write to database
        query2 = "update sms247ID.account set aused = '"& amtused &"' ," _
        &  " balsms = '"& newbal &"' where username ='"& username &"'"
        Set oRs2 = oConn.Execute(query2)
        query24 = "insert into sms247ID.sentlogs (username,balbefore,smscount,amtbilled,balafter,datesent,timesent) values ('"& username &"','"& accbal &"','"& messcount &"','"& newcost &"', '"& newbal &"','"& date &"','"& time &"')"
	Set oRs24 = oConn.Execute(query24)
    newstring= parsestring(newmess)
    

   'loop for the number of messages
    'ArrPhoneNumber = split(ptonumber,",")
    'For j = 0 to  Ubound(ArrPhonenumber)
        
		
		if mlock = "3" then
		   if len(newmess) > 129 then
		      newmess = mid(newmess,1,129) & " Sponsored by :www.247sms.com" 
			  pmess =mid(pmess,1,129) & " Sponsored by :www.247sms.com" 
		   else
		      newmess = newmess & " Sponsored by www.247sms.com"
			  pmess= pmess & " Sponsored by www.247sms.com"
			end if
		end if
		  
	  mtransid = transid()

          feedback =WriteText (Username, mpass, pfrom, pccode,ptonumber, pmess, messagetype, mtransid)
          feedback =WriteTextreseller (Username, mpass, pfrom, pccode,ptonumber, pmess, messagetype, mtransid)
          'feedback =WriteText (Username, mpass, pfrom, pccode,PhoneNumber, pmess, messagetype, mtransid)
          'feedback =WriteTextreseller (Username, mpass, pfrom, pccode,PhoneNumber, pmess, messagetype, mtransid)
		
      '  Next

        
            oConn.Close
           'mdate =formatdateTime(date,0)

           'response.Write(mdate)

           response.Write("Error:0 Success " & mtransid & "<br>")
     
  
   End if
End if
end if

end if
 
 %>