Event Calendar

<% function GetDataConnection() dim oConn, strConn Set oConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=SQLOLEDB; Data Source=adspm; Initial Catalog=TeamWeb; " strConn = strConn & "User Id=TeamWeb; Password=x" oConn.Open strConn set GetDataConnection = oConn end function %>
<% '******************************************************************** ' Name: RemoveEvent.asp ' ' Purpose: Used to remove an event from the event database. ' '******************************************************************** dim dbConn Set dbConn = GetDataConnection dbConn.Execute ("DeleteEvent " & Request("idSchedule") ) Response.Redirect("Events.asp?nMonth=" & Request("nMonth") & "&nYear=" & Request("nYear")) %>