Kode - virker ikke på webhotel?
Jeg har den her kode:<%@LANGUAGE=\"VBScript\"%>
<%
set nyheder = Server.CreateObject(\"ADODB.Recordset\")
nyheder.ActiveConnection = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/databaser/MinDatabase.mdb\")
nyheder.Source = \"SELECT * FROM nyheder ORDER BY \'ID\'\"
nyheder.CursorType = 0
nyheder.CursorLocation = 2
nyheder.LockType = 3
nyheder.Open()
nyheder_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
nyheder_numRows = nyheder_numRows + Repeat1__numRows
%>
<% Session.LCID = 1030 %>
<%
Dim dtmTime
dtmTime = Time
%>
<html>
<head>
<title>Thaufer - stedet...</title>
<link
rel=\"stylesheet\"
href=\"css/style.css\"
type=\"text/css\"
media=\"screen\" />
</head>
<body>
<table width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td height=\"4\" valign=\"middle\" align=\"center\" width=\"135\" style=\"border-bottom: 1 dotted #444444;\"><b>MENU</b></td>
<td height=\"4\" align=\"right\" style=\"border-bottom: 1 dotted #444444; border-left: 1 dotted #444444;\">
</td>
</tr>
<tr>
<td height=\"152\" valign=\"top\" align=\"left\" width=\"135\">
<table width=\"100%\" cellspacing=\"0\" cellpadding=\"5\">
<tr>
<td nowrap height=\"94\" style=\"border-bottom: 1 dotted #444444;\">
<!--#include file=\"menu.asp\"-->
</td>
</tr>
</table>
</td>
<td height=\"152\" style=\"border-left: 1 dotted #444444;\" align=\"left\" valign=\"top\">
<table width=\"100%\" height=\"100%\" cellspacing=\"0\" cellpadding=\"5\">
<tr>
<td height=\"39\" valign=\"top\">
<table width=\"100%\" cellspacing=\"0\" cellpadding=\"5\">
<tr>
<td><a><span class=\"overskrift\">Velkommen til min personlige hp...</span></a></td>
</tr>
<tr>
<td height=\"8\">
<p>Nu skulle jeg ligesom bare have en personlig hp. </p>
</td>
</tr>
<tr>
<td height=\"8\"><a><span class=\"overskrift\">Her lige nogle generelle nyheder:</span></a></td>
</tr>
<tr>
<td height=\"8\">
<table width=\"100%\" cellspacing=\"0\" cellpadding=\"5\" style=\"border-top: 1 solid #444444; border-left: 1 solid #444444; border-right: 1 solid #444444>\">
<% While ((Repeat1__numRows <> 0) AND (NOT nyheder.EOF)) %>
<tr>
<td height=\"2\" width=\"82%\">
<p><b><font size=\"1\"><%=(nyheder.Fields.Item(\"Dato\").Value)%>:</font></b><br>
<%=(nyheder.Fields.Item(\"Nyhed\").Value)%></p>
</td>
</tr>
<tr>
<td height=\"7\" width=\"82%\" style=\"border-bottom: 1 solid #444444\" align=\"left\"><font size=\"1\">Skrevet af:<a class=\"link\" href=\"mailto:<%=(nyheder.Fields.Item(\"Email\").Value)%>\"><span class=\"overskrift\"><%=(nyheder.Fields.Item(\"Navn\").Value)%></span></a></font></td>
</tr>
<% Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
nyheder.MoveNext()
Wend %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
nyheder.Close()
%>
Den virker på min egen IIS server, men ikke på friserverplads - hvorfor?
