Hi Stuart,
I tried it, and am still running into problems. If you have a minute...could you take a look at what I have, and tell me what you see?? Thanks so much.
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conMember.asp" -->
<%
Dim strfldUser
Dim strfldEmail
Dim strfldPhone
strfldServe1 = Request.Form("fldUser"

strfldLat1 = Request.Form("fldEmail"

strfldLong1 = Request.Form("fldPhone"
%>
<%
If Request.Form("submit"

= "Submit" Then
Set Mail = Server.CreateObject("Persits.MailSender"

Mail.Host = "waterisac2.waterisac.org" ' Specify a valid SMTP server mail.yourserver.com
Mail.AddAddress cStr(Request("varTo"

) 'Recipient Email Address
Mail.From = cStr(Request("varFrom"

) 'Senders Email Address
Mail.FromName = cStr(Request("varFromName"

) ' Specify sender's name
Mail.AddAddress cStr(Request("varTo"

) 'Recipient Email Address
'Mail.AddCC cStr(Request("varCC"

) 'Carbon Copy Email Address
Mail.Subject = cStr(Request("varSubject"

) 'Email Subject
Mail.Body = cStr(Request("strBody"

) & vbcrlf&_
"From: " & cStr(Request("varFromName"

)& vbcrlf&_
"Email: " & cStr(Request("varFrom"

)& vbcrlf&_
"Subject: " & cStr(Request("varSubject"

)& vbcrlf&_
"User: " & cStr(Request("fldUser"

)& vbcrlf&_
"Email: " & cStr(Request("fldEmail"

)& vbcrlf&_
"Phone: " & cStr(Request("fldPhone"

)'& vbcrlf&_
On Error Resume Next
Mail.Send
Set Mail = Nothing 'Clean up your objects!!!
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
Response.Redirect("thanks.html"
End If
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username"

<> "" Then
If (true Or CStr(Session("MM_UserAuthorization"

)=""

Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"

)>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?"

>= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL"

if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"

)
If (Request.QueryString <> ""

Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables
If (CStr(Request("MM_update"

) <> "" And CStr(Request("MM_recordId"

) <> ""

Then
MM_editConnection = MM_conSearch_STRING
MM_editTable = "dbo.tbUtility"
MM_editColumn = "fldUtil_ID"
MM_recordId = "" + Request.Form("MM_recordId"

+ ""
MM_editRedirectUrl = "thanks.html"
MM_fieldsStr = "fldUser|value|fldEmail|value|fldPhone|value|value"
MM_columnsStr = "fldUser|',none,''|fldEmail|',none,''|fldPhone|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"

MM_columns = Split(MM_columnsStr, "|"
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> ""

Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> ""

Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Update Record: construct a sql update statement and execute it
If (CStr(Request("MM_update"

) <> "" And CStr(Request("MM_recordId"

) <> ""

Then
' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),","

Delim = MM_typeArray(0)
If (Delim = "none"

Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none"

Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none"

Then EmptyVal = ""
If (FormVal = ""

Then
FormVal = EmptyVal
Else
If (AltVal <> ""

Then
FormVal = AltVal
ElseIf (Delim = "'"

Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''"

& "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command"

MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> ""

Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim User_Profile__MMColParam
User_Profile__MMColParam = "1"
If (Session("MM_UserName"

<> ""

Then
rsProfile__MMColParam = Session("MM_UserName"

End If
%>
<%
set rsMem = Server.CreateObject("ADODB.Recordset"

rsMem.ActiveConnection = MM_conSearch_STRING
rsMem.Source = "SELECT fldUtil_ID FROM dbo.tbLogin WHERE fldUsername='" + Session("MM_UserName"

+ "'"
rsMem.CursorType = 0
rsMem.CursorLocation = 2
rsMem.LockType = 3
rsMem.Open()
rsMem_numRows = 0
%>
<%
set rsUtil = Server.CreateObject("ADODB.Recordset"

rsUtil.ActiveConnection = MM_conSearch_STRING
rsUtil.Source = "SELECT * FROM dbo.tbUtility WHERE fldUtil_ID = " + Cstr(rsMem.Fields.Item("fldUtil_ID"

.Value)
rsUtil.CursorType = 0
rsUtil.CursorLocation = 2
rsUtil.LockType = 3
rsUtil.Open()
rsUtil_numRows = 0
%>