<% ' Build ADO connection string connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\bpt\aspupload.mdb") ' If you use SQL Server, the connecton string must look something like this: ' Connect = "Provider=SQLOLEDB;Server=67.18.94.164;Database=rdncr;UID=dawar;PWD=sys2k5" ' Use ADO Recordset object Set rs = Server.CreateObject("adodb.recordset") ' Reopen recordset to list all files rs.Open "select * from ads order by id", Connect, 2, 3 Count = 0 While Not rs.EOF response.write "" response.write " " response.write " " response.write " " rs.MoveNext Count = Count + 1 Wend response.write "

BPT No.	Description	Notification Date	Date of Opening of Bids
" & Trim(rs("bpct")) & "	" & Trim(rs("description")) & "	" & Trim(rs("issuedate")) & "	" & Trim(rs("opendate")) & "