<%@LANGUAGE="VBSCRIPT"%>
<%
Dim RSMember__MMColParam
RSMember__MMColParam = "1"
if (Request.QueryString("user_id") <> "") then RSMember__MMColParam = Request.QueryString("user_id")
%>
<%
set RSMember = Server.CreateObject("ADODB.Recordset")
RSMember.ActiveConnection = MM_workspace_STRING
RSMember.Source = "SELECT user_id, fullname, email, address, telephone, fax, mobile FROM users WHERE user_id = " + Replace(RSMember__MMColParam, "'", "''") + ""
RSMember.CursorType = 0
RSMember.CursorLocation = 2
RSMember.LockType = 3
RSMember.Open()
RSMember_numRows = 0
%>
<% if Session("fullName") = "" then response.redirect("index.asp")%>
E-Mail Group Members Detail
<%=(RSMember.Fields.Item("fullname").Value)%>
"><%=(RSMember.Fields.Item("email").Value)%>
<% if RSMember("address") <> "" then %>
<%=replace((RSMember.Fields.Item("address").Value), vbcrlf, "
")%>
<% end if %>
Tel: <%=(RSMember.Fields.Item("telephone").Value)%>
Fax: <%=(RSMember.Fields.Item("fax").Value)%>
Mobile: <%=(RSMember.Fields.Item("mobile").Value)%>
-
Close This Window -
<%
RSMember.Close()
%>