Dim ObjDB,ObjRS,StrSQL
Dim IntToIDs,i
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
If Request.Form("ToID")"" Then
Call SendMessage(ObjDB,Session("AccountID"),Request.Form("ToID"),Request.Form("Message"))
ElseIf Request.Form("ToIDs")"" Then
IntToIDs = Split(Request.Form("ToIDs"),",")
For i = LBound(IntToIDs) To UBound(IntToIDs)
Call SendMessage(ObjDB,Session("AccountID"),IntToIDs(i),Request.Form("Message"))
Next
End If
ObjDB.Close
Set ObjDB = Nothing
%>
top.window.close()
