Kan i se fejlen?
Hej eksperter!Jeg kan ikke få følgende script til at virke. Kan i se fejlen?:
<%
intPage = Request("page")
if isNumeric(intPage) = False or intPage < 1 then
intPage = 1
end if
if Request("page") = "" then
intPage = 1
end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Questions"
strDSN = "DRIVER={MySQL}; Server=localhost; Database=XX; UID=XX; Pwd=XX;"
rs.Open strSQL, strDSN, 1
if rs.EOF then
%>
<tr>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" width="15" height="15" valign="middle"><img src="./images/status01.gif" border="0" width="15" height="15"></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="180" height="15" valign="middle"><span class="QuestionText02"> No questions here...</span></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="110" height="15" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="30" height="15" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="49" height="15" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="15" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="180" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="110" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="80" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
</tr>
<%
else
if not (rs.eof or rs.bof) then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
do while not (rs.eof or rs.bof) and intRecCount > 0
%>
<tr>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" width="15" height="15" valign="middle"><img src="./images/status01.gif" border="0" width="15" height="15"></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="180" height="15" valign="middle"><span class="QuestionText02"> </span></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="110" height="15" valign="middle"><span class="QuestionText02"><center><%=Date%> <%= FormatDateTime(Time, vbShortTime)%></center></span></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="30" height="15" valign="middle" align="right"><span class="QuestionText02"> </span></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#93A8A5" width="49" height="15" valign="middle" align="right"><span class="QuestionText02"> </span></td>
<td bgcolor="#10332E" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="15" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="180" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="110" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="80" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
</tr>
<%
rs.MoveNext
loop
%>
<tr>
<td width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" bgcolor="#3A5C57" width="15" height="15" valign="middle" align="center"><span class="QuestionText01">¤</span></td>
<td bgcolor="#3A5C57" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" bgcolor="#3A5C57" width="180" height="15" valign="middle"><span class="QuestionText01">Question</span></td>
<td bgcolor="#3A5C57" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" bgcolor="#3A5C57" width="110" height="15" valign="middle"><span class="QuestionText01">Created</span></td>
<td bgcolor="#3A5C57" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" width="30" height="15" valign="middle"><span class="QuestionText01">Answers</span></td>
<td bgcolor="#3A5C57" width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#3A5C57" width="49" height="15" valign="middle"><span class="QuestionText01">Points</span></td>
<td width="1" height="15" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="15" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="180" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="110" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
<td bgcolor="#10332E" width="80" height="1" valign="middle"></td>
<td bgcolor="#10332E" width="1" height="1" valign="middle"><img src="./images/none.gif" border="0" width="1" height="1"></td>
</tr>
<% end if %>
<% end if %>
Mvh
mr.Meincke
