<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
MM_eventlistingmanager_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/databases/EventListingManager.mdb") & ";"
%>
<%
Dim eventlist__MMColParam1
eventlist__MMColParam1 = "%"
If (Request.Form("search") <> "") Then
eventlist__MMColParam1 = Request.Form("search")
End If
%>
<%
Dim eventlist__MMColParam2
eventlist__MMColParam2 = "%"
If (Request.QueryString("ItemID") <> "") Then
eventlist__MMColParam2 = Request.QueryString("ItemID")
End If
%>
<%
Dim eventlist__MMColParam3
eventlist__MMColParam3 = "%"
If (Request.Form("searchcat") <> "") Then
eventlist__MMColParam3 = Request.Form("searchcat")
End If
%>
<%
set eventlist = Server.CreateObject("ADODB.Recordset")
eventlist.ActiveConnection = MM_eventlistingmanager_STRING
eventlist.Source = "SELECT tblEventListings.*, tblEventCategory.CategoryDesc, tblEventCategory.CategoryName FROM tblEventCategory INNER JOIN tblEventListings ON tblEventCategory.CategoryID = tblEventListings.CategoryID WHERE Activated = 'True' AND tblEventCategory.CategoryName Like '" + Replace(eventlist__MMColParam3, "'", "''") + "' AND tblEventListings.ItemID Like '" + Replace(eventlist__MMColParam2, "'", "''") + "' AND (tblEventListings.ItemDesc Like '%" + Replace(eventlist__MMColParam1, "'", "''") + "%' OR tblEventListings.ItemName Like '%" + Replace(eventlist__MMColParam1, "'", "''") + "%' OR tblEventListings.EventLocation Like '%" + Replace(eventlist__MMColParam1, "'", "''") + "%' ) ORDER BY EventStartDate"
eventlist.CursorType = 0
eventlist.CursorLocation = 2
eventlist.LockType = 3
eventlist.Open()
eventlist_numRows = 0
%>
<%
set Category = Server.CreateObject("ADODB.Recordset")
Category.ActiveConnection = MM_eventlistingmanager_STRING
Category.Source = "SELECT tblEventCategory.CategoryID, tblEventCategory.CategoryName FROM tblEventListings INNER JOIN tblEventCategory ON tblEventListings.CategoryID = tblEventCategory.CategoryID GROUP BY tblEventCategory.CategoryID, tblEventCategory.CategoryName"
Category.CursorType = 0
Category.CursorLocation = 2
Category.LockType = 3
Category.Open()
Category_numRows = 0
%>
<%
Dim Repeat_eventlist__numRows
Dim Repeat_eventlist__index
Repeat_eventlist__numRows = -1
Repeat_eventlist__index = 0
eventlist_numRows = eventlist_numRows + Repeat_eventlist__numRows
%>
<%
dim done
done = request.form("done")
if done = "" then
done = "No"
Else
if request.form("done") = "Yes" then
'sets variables
dim email, sendmail
email = request.form("email")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
'put the webmaster address here
sendmail.From = "info@maconarts.org"
'sendmail.From = "info@" & Request.ServerVariables("SERVER_NAME")
'The mail is sent to the address entered in the previous page.
sendmail.To = email
'Enter the subject of your mail here
sendmail.Subject = "Visit maconarts.org - a website recommended by a friend"
'send a specific page or send a site url
dim url
url = "http://www.maconarts.org"
'url = Request.ServerVariables("HTTP_REFERER")
'url = ""
'This is the content of thr message.
sendmail.Body = "Site recommendation from a friend!" & _
vbCrlf & vbCrlf & "A friend has sent you this email and thought you should visit the Macon Arts website." & _
vbCrlf & url & vbCrlf
'this sets mail priority.... 0=low 1=normal 2=high
sendmail.Importance = 1
sendmail.MailFormat = 0
sendmail.Send 'Send the email!
End if
End if
%>
Macon Arts - E-mail a Friend
Share our website with a friend and complete the form below to
send a link to this website. In addition, you can send a specific
event from the Calendar Event Listings to your friend from the listing
itself.
