% Dim con 'As ADODB.Connection '---------------------------------------------------------------------------------------- Set con = Server.CreateObject ("ADODB.connection") set rsDate = Server.CreateObject ("ADODB.Recordset") '---------------------------------------------------------------------------------------- con.Open DSN '---------------------------------------------------------------------------------------- strSQL = "SELECT Date1 FROM tblCourseDates" rsDate.Open strSQL , con, adOpenStatic , adLockReadOnly if not rsDate.EOF Then Date1 = rsDate.Fields("Date1") '---------------------------------------------------------------------------------------- %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||