<%@LANGUAGE="VBSCRIPT"%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Mail form as HTML format NTS ***
If (CStr(Request("FX_sendForm")) = "form1") Then
names = ""
top = " "
body = " "
exclude = "button,button.x,button.y,FX_sendForm,MM_insert,MM_update"
reqArray = split(CStr(Request.Form),"&")
For i=0 To UBound(reqArray)
name = Left(reqArray(i),InStr(reqArray(i),"=")-1)
if (InStr(exclude,name) = 0) Then
if (InStr(names,name & ",") = 0) Then
body = body & UCase(name) & ": " & CStr(Request.Form(name)) & " "
names = names & name & ","
End If
End If
Next
bottom = " "
Irish artist Patrick Walshe- Art, Philosophy, Metaphors and Allegories......using the language of Landscape painting to explore contemporary themes of existence, consciousness and the quantum mechanics of the soul
