<% response.write("Suites.xls ") ' Selected constants from adovbs.inc 'Const adOpenStatic = 3 'Const adLockPessimistic = 2 Dim rstExcel Dim I Dim iCols Dim Count Dim strSQL Dim J Dim c(10) Dim columns Dim flag flag=0 strSQL="SELECT * FROM TestData;" DIM cnnExcel Set cnnExcel = Server.CreateObject("ADODB.Connection") cnnExcel.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("../spreadsheets/Suites.xls") Set rstExcel = Server.CreateObject("ADODB.Recordset") rstExcel.CursorType = 3 rstExcel.LockType = 2 rstExcel.Open strSQL, cnnExcel 'cnnExcel.Execute(strSQL) iCols = rstExcel.Fields.Count %> <% ' Show the names that are contained in the first row ' of the named range. Make sure you include them in ' your range when you create it. For I = 0 To iCols - 1 Response.Write "" & vbCrLf Next 'I %> <% rstExcel.MoveFirst ' Loop through the data rows showing data in an HTML table. Do While Not rstExcel.EOF Response.Write "" & vbCrLf Dim tempVal For I = 0 To iCols - 1 If (inStr(rstExcel.Fields.Item(I).Value,"v")= 1) then Response.Write "" & vbCrLf ElseIf I = 1 then Response.Write "" & vbCrLf ElseIf I = 0 then Response.Write "" & vbCrLf Else Response.Write("" & vbCrLf) End If Next 'I Response.Write "" & vbCrLf rstExcel.MoveNext Loop %> " Response.Write rstExcel.Fields.Item(I).Name Response.Write " " Response.Write ("") Response.Write " " Response.Write ( rstExcel.Fields.Item(I).Value) Response.Write " " Response.Write ("") Response.Write ("") Response.Write " ") Response.Write(rstExcel.Fields.Item(I).Value) Response.Write(" <% rstExcel.Close Set rstExcel = Nothing cnnExcel.Close Set cnnExcel = Nothing %>