Jeg prøver at få denne side til at blive opdateret via man sender
oplysninger via en formular - og det virker fint - men kun første gang. Hvad
gør jeg forkert
<% Response.Expires = 0 %>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<TITLE>knn7</TITLE>
</HEAD>
<BODY>
<%
If IsObject(Session("netsol2.f-202238_conn")) Then
Set conn = Session("netsol2.f-202238_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "netsol2.f-202238","",""
Set Session("netsol2.f-202238_conn") = conn
End If
%>
<%
If IsObject(Session("knn7_rs")) Then
Set rs = Session("knn7_rs")
Else
sql = "SELECT TOP 1 knn6.* FROM knn6 ORDER BY knn6.valgtigen DESC "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("knn7_rs") = rs
End If
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="Arial"
COLOR=#000000><CAPTION><B>knn7</B></CAPTION></FONT>
<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 width="32" ><FONT SIZE=2
FACE="Arial" COLOR=#000000>tidlid</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 width="59" ><FONT SIZE=2
FACE="Arial" COLOR=#000000>valgtigen</FONT></TH>
</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT width="32"><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("tidlid").Value)%><BR></FONT></
TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT width="59"><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("valgtigen").Value)%><BR></FONT
></TD>
</TR>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
<div align="center">
<center>
<table border="0" width="350">
<tr>
<td colspan="4" bgcolor="#000080" width="342"><font color="#FFFFFF"
size="1" face="verdana, arial, helvetica">Anlæg:</font></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><font face="verdana, arial, helvetica"
size="1">Anlægsydelse</font></td>
</center>
<td width="56">
<p align="right"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("rigtigeenergibesparelseikwh").
Value)%></FONT></td>
<center>
<td width="53"><font face="verdana, arial, helvetica"
size="1">kwh</font></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><font face="verdana, arial, helvetica"
size="1">Solfangerareal</font></td>
</center>
<td width="56">
<p align="right"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("arealialt").Value)%></FONT></t
d>
<center>
<td width="53"><font face="verdana, arial, helvetica"
size="1">m2</font></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><font face="verdana, arial, helvetica"
size="1">Beholdervolumen</font></td>
</center>
<td width="56">
<p align="right"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("total").Value)%></FONT></td>
<center>
<td width="53"><font face="verdana, arial, helvetica"
size="1">ltr</font></td>
</tr>
<tr>
<td width="215" colspan="2"><font face="verdana, arial, helvetica"
size="1">Solfanger:</font></td>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000>Typenr</FONT></td>
<td align="right" width="56"><FONT size=1 face="verdana, arial,
helvetica"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("solfangerid").Value)%></FONT><
/td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><font face="verdana, arial, helvetica"
size="1">Fabrikant:</font></td>
<td align="right" width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("fangerfabrikant").Value)%></FO
NT></td>
</center>
<td width="56">
<p align="right"></td>
<center>
<td width="53"></td>
</tr>
<tr>
<td width="215" colspan="2"><font face="verdana, arial, helvetica"
size="1">Beholder:<FONT
COLOR=#000000><%=Response.Write(rs.Fields("bhmol").Value)%></FONT></font></t
d>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000>Typenr</FONT></td>
</center>
<td width="56">
<p align="right"><FONT size=1 face="verdana, arial, helvetica"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("beholdertypenr").Value)%></FON
T></td>
<center>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><font face="verdana, arial, helvetica"
size="1">Fabrikant:</font></td>
</center>
<td width="56">
<p align="right"></td>
<center>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"><FONT SIZE=2 FACE="Arial"
COLOR=#000000><%=Server.HTMLEncode(rs.Fields("fangerfabrikant").Value)%></FO
NT></td>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"></td>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"></td>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"></td>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"></td>
<td width="56"></td>
<td width="53"></td>
</tr>
<tr>
<td width="13"></td>
<td width="202"></td>
<td width="56"></td>
<td width="53"></td>
</tr>
</table>
</center>
</div>
<%
rs.MoveNext
loop%>
<p>
</p>
</BODY>
</HTML>