<% ' Create and establish data connection Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = 15 DataConn.CommandTimeout = 30 DataConn.Open "Provider=SQLOLEDB;Data Source=207.182.248.137;Initial Catalog=unlimited;User Id=unlimited;Password=aleyda;" Set cmdDC = Server.CreateObject("ADODB.Command") cmdDC.ActiveConnection = DataConn cmdDC.CommandText = "select * from chuysco_event where to_date > getDate();" cmdDC.CommandType = 1 Set rsDC = Server.CreateObject("ADODB.Recordset") ' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1) rsDC.Open cmdDC, , 0, 1 ' Loop through recordset and display results If Not rsDC.EOF Then rsDC.MoveFirst ' Get the number of fields and subtract one so our loops start at 0 iFieldCount = rsDC.Fields.Count - 1 ' Continue till we get to the end, and while in each loop through fields Do While Not rsDC.EOF sContent = sContent & "


" sContent = sContent & "" & rsDC.Fields("from_date") & " - " & rsDC.Fields("to_date") & "

" rsDC.MoveNext Loop ' Close Data Access Objects and free DB variables rsDC.Close Set rsDC = Nothing ' can't do a "cmdDC.Close" ! Set cmdDC = Nothing DataConn.Close Set DataConn = Nothing 'sContent = replace(sContent ,vblf,"") sContent = replace(sContent ,"'","'") sContent = "document.write('" & sContent & "');" Response.Write sContent %>