datoproblemer med SQL
jeg bruger nedenstående script til at hente data fra en mssql database - der er data i databasen, men den kommer ud med at databasen er tomher er scriptet:
<html>
<head>
<title>Udskrift</title>
<script language="javascript" src="cal2.js"></script>
<script language="javascript" src="cal_conf2.js"></script>
<LINK REL=Stylesheet HREF="intranettet.css" TYPE="text/css">
</head>
<body>
<img src="../../Ikoner/cv.jpg" alt="" width="700" height="75">
<!-- #include file=../../Includes/SqlLokale.asp -->
<!-- #include file=../../Includes/Funk_dato.asp -->
<%
dim orec, SQL, ID, k, strConnect
function nyDato1(skiftDato)
nyDato1 = mid(skiftDato, 4, 2) & "/" & left(skiftDato, 2) & "/" & right(skiftDato, 2)
end function
Valg = request.form("Valg")
if Valg = "" then
%>
<form name="sampleform" action="testudskrift.asp" method=post>
<table cellspacing="2" cellpadding="2" border="0">
<tr>
<td width="100">Fra Dato:</td>
<td width="700"><input type="text" name="fradato" size=20><small><a href="java script:showCal('Calendar1')"><img src="http://rs010191/lokale/opa/images/kalender.gif" alt="Kalenderikon" width="16" height="15" border="0"></a></small></td>
</tr>
<tr>
<td width="100">Til Dato:</td>
<td width="700"><input type="text" name="tildato" size=20><small><a href="java script:showCal('Calendar2')"><img src="http://rs010191/lokale/opa/images/kalender.gif" alt="Kalenderikon" width="16" height="15" border="0"></a></small></td>
</tr>
<tr>
</table>
<br>
<input type=submit value=Hent_døgnrapport name=Valg>
</form>
<%
else
fradato = request.form("fradato")
'tildato = request.form("tildato")
sqlstr = "SELECT * FROM T_Dok WHERE DatoF = " & fradato & " order by id asc"
OpenConn
getData SqlStr
response.write Sqlstr
'response.end
response.write "<table border=0 cellpadding=0 cellspacing=0 width=700 >"
if not DBset.eof then
while not DBset.eof
response.write "<td width=60> </td><td colspan=2 align=right> " & trim(DBset(1)) & " " & trim(DBset(5)) & " " & trim(DBset(2)) & "</td></tr><tr><td></td><td colspan=2 align=right>" & trim(DBset(3)) & " " & trim(DBset(6)) & " " & trim(DBset(4)) & "</td></tr>"
'response.write "<tr><td width=50> </td><td width=60 align='center'> </td></tr>"
'response.write"<tr><td> </td><td></td><td colspan=2>" &trim(DBset(8)) &"</td></tr>"
'response.write "<tr><td valign='top'><strong>" &trim(DBset(7)) &"</strong></td><td width=15 valign='top' align='center'><strong> " &trim(DBset(9)) &"</strong></td><td><strong>" &trim(DBset(10)) &"</strong></td></tr>"
'response.write "<tr><td width=60> </td><td> </td><td colspan=2><strong>" & trim(DBset(11)) & "</strong></td></tr>"
'response.write "<tr><td width=60> </td><td> </td><td colspan=2>" & trim(DBset(12)) & "</td></tr><tr><td> </td></tr><tr><td> </td></tr>"
DBset.movenext
wend
else
response.write "<tr>"
response.write "<td colspan=3 align=center><font color='#FF0000'><font size=+1>Databasen er tom</font></font></td></tr>"
response.write "</table>"
end if
end if
CloseConn
%>
</body>
</html>
