<% Dim no, name, designation, tr no=0 tr=Request.QueryString("id") Set con = Server.CreateObject("ADODB.Connection") con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("git.mdb") temp= "select * from tbl_timetable where trade='"&tr&"'" Set RS = con.Execute(temp) %> <% While not (RS.EOF) no=no+1 %> <% RS.MoveNext Wend %>

Timetable <%=tr%>
No	Year	Download Link
<%=no%>	<%=RS.Fields("year")%>	" target=blank>Click Here