<!-- #include file="smscentral.asp" -->
<%
const xtrace="No"
const xCommInterface="xml2"
dim smserror
'*********************************************************************************
' SMS Handling Routines
' March 15, 2003 VP-ASP 6.50
'***********************************************************************************
' set up session variables for interface routines
sub sendsms (smstype,smsfrom,tonumber,message)
dim smsinterface
smsinterface=smstype
setsess "smsfrom",smsfrom
setsess "smsphone",tonumber
setsess "smsmessage",message
Setsess "smstrace",xtrace
Setsess "smsxml",xcomminterface
if smsinterface="" then
   smsinterface=getconfig("Xsmsservice")
end if
'Debugwrite "to=" & tonumber & " from=" & smsfrom  & "   using " & smsinterface
If getconfig("xdebug")="Yes" then
  Debugwrite "to=" & tonumber & " from=" & smsfrom  & "   using " & smsinterface
  debugwrite message
end if  
smsinterface=ucase(smsinterface)   
select case smsinterface
   case  "SMSCENTRAL"
	'VP-ASP 6.50 - change way file is called
	'Executefile "smscentral.asp" 
	Sendsmscentral
   case  "ASPSMS"
	Executefile "aspsms.asp" 
   case  "SMARTSEND"
	Executefile "smartsendsms.asp"
   case else	
      smserror="Unknown sms interface " & smsinterface  
end select	
smserror=smserror & getsess("smserror")
If smserror<>"" then
   shopwriteerror smserror
end if
end sub

'*************************************************************************
' Send sms to merchant
'************************************************************************
Sub SendSmsmerchant (rsOrder)
dim message, smsphone, smsfrom, smstype
dim textarray(500), textcount, CR, i
dim filename
message=""
if getconfig("xsmsmerchant")<>"Yes" then exit sub
filename=getconfig("XsmsMerchanttemplate")
ShopTemplateArray Filename, rsOrder, TextArray, TextCount
Merchant=""
CR=""
for i = 0 to Textcount-1
  message= message & TextArray(i) & vbcrlf
next
smstype=getconfig("xsmsservice")
smsphone=getconfig("xsmsmerchantphone")
smsfrom=getconfig("xemailname")
If smsphone="" or smstype="" then exit sub
sendsms smstype,smsfrom,smsphone,message
end sub

Sub Executefile (filename)
'on error resume next
server.execute(filename)
if err.number>0 then
   shopwriteerror err.description 
   shopwriteerror getlang("langmenufilename") & " " & filename 
end if   
end sub

%>