Programme

 

Slno.

Programme

Place

Date

Time

<% 'retrieve details from table "tblPrg" '------------------------------------ dim con,rs set con=server.CreateObject("ADODB.CONNECTION") set rs=server.CreateObject("adodb.recordset") dim self self=Request.ServerVariables ("APPL_PHYSICAL_PATH") dim my my="data\dbthattiar.mdb;" dim myself myself=self & my con.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myself &"Persist Security Info=False" con.open rs.Open "Select * from tblPrg order by PrgId",con,1,3 if rs.RecordCount>0 then for i=1 to rs.RecordCount if not rs.EOF then %>

<%=i%>

<%=rs("PrgNm")%>

<%=rs("PrgPlace")%>

<%=rs("PrgDt")%>

<%=rs("PrgTm")%>

<% rs.MoveNext end if next end if rs.Close con.Close set rs=nothing set con=nothing %>