% Dim DataConn, SQLString, RS SQLString = "Select * from events where Left([begins],2) = " & Request.QueryString("month") & " and Right([begins],4) = " & Request.QueryString("year") & " Order By begins asc;" Set DataConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") DataConn.Open "DSN=ptc_dsn;User id=ptc;Password=rainbow2k" RS.Open SQLString, DataConn %>
![]() |
|
|||||||||||
|
|
|
|||||||||||||||||||||||
|
|