Lave Tabel ud fra et Excel regneark!
Hejsa.Jeg er ved at lave en side, som skal kunne hente data fra et excel regneark, og vise dem på en hjemmeside.
Det virker sådan set fint nok, så længe der står en eller anden form for data i de forskellige felter.
Hvis der ikke står noget i et felt, tegnes tabellen ikke ordenligt på hjemmesiden.
Har nogen et forslag til hvordan jeg kan rette op på det? For at i kan se hvordan jeg bygger regnearket op har jeg lagt et eksempel ud på min test hjemmeside. Det kan hentes her : http://web.sdu.dk/rasch/eksempel.xls
Som man kan se i regnearket har jeg valgt at skrive fri i alle kolloner, hvor der ikke skal stå noget når man ser arket på hjemmesiden. Men det holder jo ikke i længden.
Altså, kort og godt. Jeg har brug for at få at vide, hvordan jeg kan trække data'erne ud fra regnearket, og selvom et felt er tomt skal det stadigvæk tegnes på hjemmesiden.
Min kode til at tegne regnetarket ser således ud :
----------------------------------------------
<%
Set conn = server.CreateObject("ADODB.Connection")
connstr= "Provider=MSDASQL.1;" & _
"Persist Security Info=False;" & _
"Extended Properties=""DBQ=" & _
server.MapPath("eksempel.xls") & _
";Driver={Microsoft Excel Driver " & _
"(*.xls)};" & _
"DriverId=790;FIL=excel 8.0;" & _
"MaxBufferSize=2048;" & _
"MaxScanRows=8;" & _
"PageTimeout=5;ReadOnly=1;" & _
"SafeTransactions=0;Threads=3;" & _
"UID=admin;UserCommitSync=" & _
"Yes;"";" & _
"User Id=admin;"
conn.Open connstr
on error resume next
if uge ="1" then
strSQL = "SELECT * from " & _
"weekone"
else if uge = "2" then
strSQL = "SELECT * from " & _
"weektwo"
else if uge = "3" then
strSQL = "SELECT * from " & _
"weektree"
else if uge = "4" then
strSQL = "SELECT * from " & _
"weekfour"
end if
end if
end if
end if
set rs = conn.Execute(strSQL)
if rs.Eof = "" then
response.write "Der opstod desværre en fejl under indlæsningen af vagtplanen." %><br><br><%
response.write "Denne fejl kan opstå af flere grunde. Herunder en liste over de mest sansynlige fejlårsager : " %><br><br><%
response.write "- Vagtplanen er ved at blive opdateret." %><br><%
response.write "- Der er fejl på serveren." %><br><br><br><%
response.write "- Data i vagtplanen er korrupte. En nye vagtplan skal uploades." %><br><br><%
response.write "Med venlig hilsen" %><br><%
response.write "Lasse Rasch."
else
do
%>
<center><table border="1" width="740" bgcolor="#FFFFFF">
<tr>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Medarbejder")%></font>
</td>
<% if rs("Mandag") ="Mandag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Mandag")%></font>
</td>
<% else %>
<td width="80" bgcolor="FFFFFF">
<% if rs("Mandag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Mandag")%></font>
<%end if %>
</td>
<% end if %>
<% if rs("Tirsdag") ="Tirsdag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Tirsdag")%></font>
</td>
<% else %>
<td width="80" >
<% if rs("Tirsdag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Tirsdag")%></font>
<%end if %>
</td>
<% end if %>
<% if rs("Onsdag") ="Onsdag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Onsdag")%></font>
</td>
<% else %>
<td width="80" >
<% if rs("Onsdag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Onsdag")%></font>
<%end if %>
</td>
<% end if %>
<% if rs("Torsdag") ="Torsdag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Torsdag")%></font>
</td>
<% else %>
<td width="80" >
<% if rs("Torsdag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Torsdag")%></font>
<%end if %>
</td>
<% end if %>
<% if rs("Fredag") ="Fredag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Fredag")%></font>
</td>
<% else %>
<td width="80" >
<% if rs("Fredag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Fredag")%></font>
<%end if %>
</td>
<% end if %>
<% if rs("Lørdag") ="Lørdag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Lørdag")%></font>
</td>
<% else %>
<td width="80" >
<% if rs("Lørdag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Lørdag")%></font>
<%end if %>
</td>
<% end if %>
<% if rs("Søndag") ="Søndag" then %>
<td width="80" bgcolor="9999FF">
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Søndag")%></font>
</td>
<% else %>
<td width="80" >
<% if rs("Søndag") ="fri" then %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">'</font>
<% else %>
<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> <%=rs("Søndag")%></font>
<%end if %>
</td>
<% end if %>
</tr>
<%
rs.MoveNext
loop While Not rs.EOF
%>
</table><%
end if
%>
<%
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
-----------------------------------------
Håber på hurtigt svar!
