<%@LANGUAGE="VBSCRIPT"%> <% if request.querystring("newsletter") <> "" then thank = "Thank you for your subscription" 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 = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_rsConn_STRING MM_editTable = "dbo.mailing_list" MM_editRedirectUrl = "index.asp?newsletter=thank" MM_fieldsStr = "email|value" MM_columnsStr = "email_address|',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 %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" 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_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert 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 %> <% set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_rsConn_STRING rs.Source = "SELECT id, classDate, location, title, directions, description, comments FROM dbo.class_schedule ORDER BY classDate ASC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 3 rs.Open() rs_numRows = 0 %> <% set rsHP = Server.CreateObject("ADODB.Recordset") rsHP.ActiveConnection = MM_rsConn_STRING rsHP.Source = "SELECT text FROM dbo.home_page_text" rsHP.CursorType = 0 rsHP.CursorLocation = 2 rsHP.LockType = 3 rsHP.Open() rsHP_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsCart_numRows = rsCart_numRows + Repeat1__numRows %> <% 'Dim Repeat1__numRows Repeat1__numRows = 3 'Dim Repeat1__index Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %> Welcome to Art Heaven - Art Projects by Sharon Cipriano

Products
Carry Out Classes
Masterpieces in Clay
Elements
Embellishments
Metallic Paints/Finishes

Class Schedule
Design Tips & Techniques
About Art Heaven
Browse Gallery

How To Order
Track Your Order
View Your Cart
Secure Checkout
Customer Support
Shipping Information
Contact Us

Join ArtHeaven.net's Monthly Newslettser
Enter Your Email Below

<%=thank%>



Terms and Conditions
Privacy Statement

Experiencing Difficulties?
Email Us the Details


<%=(rsHP.Fields.Item("text").Value)%>

Masterpieces in Clay
Sharon's new book for Design Originals.

Carry Out Classes
Sharon's Booklace Kits allow you to personalize your art using frames, photos and charms. See these kits in our Art Gallery

Elements
Raw brass frames, anitique brass frames and other brass elements for your own projects. See these items in our Art Gallery

Embellishments
Lazertran Silk transfer paper and tiny word tiles for your projects. See these items in our Art Gallery

Metallic Paints/Finishes
Metallics, Patinas and Sealers for finishing and protecting your art projects. Use these paint to create that "aged look" when used in combination with each other. See these items in our Art Gallery

 
Masterpieces in Clay
By Sharon V. Cipriano
$16.99 - Order Details

Upcoming Classes
<% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %>
Date: <%=(rs.Fields.Item("classDate").Value)%>
Name: <%=(rs.Fields.Item("title").Value)%>
Location: <%=(rs.Fields.Item("location").Value)%>
Description: <%=(rs.Fields.Item("description").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext() Wend %>
View Sharon's Schedule >>
<% rs.Close() %> <% rsHP.Close() %>