<%@ language=VBSCRIPT%> <% dim searchevent dim photo1 dim photo2 ' recordset declarations dim adoCon dim rsBus dim strSQL searchevent = request("EID") Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/business.mdb") Set rsBus = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM events WHERE [EventID] = " & searchevent rsBus.Open strSQL, adoCon photo1 = "" if photo1 = " " Then photo1 = Null %>

Event Name Short Description Long Description Start Date End Date leave blank if one day event Venue (Location) Website i.e. www.stonehaven.org.uk Contact for more information Email Telephone Picture 1 Picture 2