Zobrazení tabulky z MS Excel - Příklad

Název fakulty	Zkratka	Internetové stránky
Fakulta aplikovaných ved	FAV	http://www.fav.zcu.cz
Fakulta ekonomická	FEK	http://www.fek.zcu.cz
Fakulta elektrotechnická	FEL	http://www.fel.zcu.cz
Fakulta humanitních studií	FHS	http://www.fhs.zcu.cz
Fakulta pedagogická	FPE	http://www.fpe.zcu.cz
Fakulta právnická	FPR	http://www.fpr.zcu.cz
Fakulta strojní	FST	http://www.fst.zcu.cz

Výpis zdrojového textu souboru http://www12.brinkster.com:80/mibla/priklady/excel.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=windows-1250">
  <title>Jemný úvod do ASP - Zobrazení tabulky z MS Excel - Pøíklad</title>
</head>
<body>
<h1>Zobrazení tabulky z MS Excel - Pøíklad</h1>

<%
'Deklarace promìnných
Dim oConn
Dim oRS
Dim sSQL

'Pøipojení k Excelovskému souboru pøes ADO
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("..\db\fakulty.xls"))

'Vykonání pøíkazu SELECT
sSQL = "SELECT * FROM [fakulty$]"
Set oRS = oConn.Execute(sSQL)

Response.Write "<table border=1>"
Response.Write "<tr><th>Název fakulty</th>"
Response.Write "<th>Zkratka</th>"
Response.Write "<th>Internetové stránky</th>"
Response.Write "</tr>"

'Procházení jednotlivých øádkù výsledku
Do While Not oRS.EOF 'Opakujeme, dokud se nedostaneme na konec sady záznamù (Record Set)
  Response.Write "<tr>"
  Response.Write "<td>" & oRS("Název").Value 'Vložení hodnoty ze sloupce "Název"
  Response.Write "<td>" & oRS("Zkratka").Value
  Response.Write "<td><a href=""" & oRS("Web").Value & """>" & oRS("Web").Value & "</a>"
  oRS.MoveNext
Loop
Response.Write "</table><br><br>"

'Zavøení pøipojení
oConn.Close
'Zrušení objektù
Set oRS = Nothing
Set oConn = Nothing

%>

 
</body>
</html>

Hlavní stránka