%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rst Set rst = Server.CreateObject("ADODB.Recordset") rst.activeconnection = "dsn=tumusica;uid=Admin;pwd=grajeda;" rst.Source = "SELECT * FROM eventlist where (eventdate > Now()) order by eventDate" rst.CursorType = 0 rst.CursorLocation = 2 rst.LockType = 1 rst.Open() %>
Date |
Artist |
Venue |
City |
||||
12.09.2003 |
Kinky, Moenia | Club PM | Chicago | ||||
new
events to be posted soon |
|||||||