%
'If Session("UserID")="" Then Response.Redirect("../index.asp")
Set Rs_Sch = Server.CreateObject("ADODB.Recordset")
Set Rs_Save = Server.CreateObject("ADODB.Recordset")
MsgID=Request("MsgID")
If Request("MsgID")<>"" Then
SQL="Select * From MemberMsg Where MsgID="&MsgID
Rs_Sch.Open SQL, Conn, 1, 3
If Rs_Sch.Eof=False Then
MsgSubject="RE: "&Rs_Sch("MsgSubject")
MsgDetail="
-----------------------------------------------------------------------------------------------------------------"
MsgDetail=MsgDetail&"
Date: "&Rs_Sch("MsgDate")
MsgDetail=MsgDetail&"
Subject: "&Rs_Sch("MsgSubject")
MsgDetail=MsgDetail&"
From: "&Rs_Sch("MsgSender")
MsgDetail=MsgDetail&"
To: "&Rs_Sch("UserID")
MsgDetail=MsgDetail&"
Message: "&Rs_Sch("MsgDetail")
End if
Rs_Sch.Close
End if
If Request("save")="1" Then
If (Request("GroupUserID")<>"")AND(InStr(Request("GroupUserID"),";")>0) Then
Text=Request("GroupUserID")
ln=Len(Text)
For i=1 to ln
If Text<>"" Then
txt=Left(Text,InStr(Text,";")-1)
Call Adding(txt)
Text=Right(Text,ln-InStr(Text,";"))
ln=Len(Text)
End if
next
Else
Call Adding(Request("UserID"))
End if
Response.Redirect("MemberMsg.asp?msg=1&UserID="&Request("UserID"))
End if
Sub Adding(ID)
SQL="SELECT * FROM Member WHERE UserID='"&ID&"'"
Rs_Sch.Open SQL, Conn, 1, 3
If Rs_Sch.Eof=False Then
SQL="SELECT * FROM MemberMsg"
Rs_Save.Open SQL, Conn, 1, 3
Rs_Save.AddNew
Rs_Save("UserID")=ID
Rs_Save("MsgSubject")=Request("MsgSubject")
Rs_Save("MsgDetail")=Request("question")
Rs_Save("MsgSender")=Session("UserID")
Rs_Save("ReadStatus")="no"
Rs_Save("MsgDate")=Now
Rs_Save.Update
Rs_Save.Close
End if
Rs_Sch.Close
End Sub
%>
|