Hej Gruppe (Jacob)
>Har du ikke adgang til serverens logfiler? Det er lidt dumt at opfinde den
dybe tallerken 2 gange.
Jo da, men den er ikke tilfredsstillende, kan kun vise de 10 sider der har
flest besøg, og da jeg kører med frame bliver de 4 sider vist hele tiden, så
derfor?
>Sker dette mens du "piller" ved dine filer, og er du sikker på at din
session timeout ikke er sat til 5 min.
Det sker når jeg surfer rundt på siderne, der vel og mærke ligger på min
egen computer. Har nu fundet ud af, at det specielt er en fil, der laver
balladen, for når jeg har haft den åben et par gange, eller har benyttet mig
af formularen og afsendt et bud, så er min Session("PersonID") slettet?
Jeg var ikke klar over, at en session variabel udløb efter det antal
minutter man satte den til i session_on_start. Troede at det først talte når
sessionen var inaktiv?
Har lavet en ny session timeout på 50 min og genstartet men det hjælper
ikke?
Her er koden i Bid.asp der laver balladen.
<!-- #include file="Clssfd.asp" -->
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<BASEFONT FACE="Verdana" BGCOLOR="Black">
<HTML>
<HEAD>
<TITLE>Salgsbud</TITLE>
</HEAD>
<BODY BGCOLOR="White">
<%
Response.Write "<H1 align=center>Velkommen " & "nr. " &_
Session("PersonID") & " " & Session("Fornavn") & "</H1>"
Dim rsItem, strItemName, strDescription
Set rsItem = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT T_Varer.VareNavn, T_Varer.Beskrivelse, T_Varer.Mindstepris,
" &_
"T_Varer.Billede " &_
"FROM T_Varer " &_
"WHERE T_Varer.VareID = " & Request("Item")
rsItem.Open strSQL, objConn
strItemName = rsItem("VareNavn")
strDescription = rsItem("Beskrivelse")
strMindstePris = rsItem("Mindstepris")
strBillede = rsItem("Billede")
rsItem.Close
Set rsItem = Nothing
Dim rsBid
Set rsBid = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT T_Bud.VareID, T_Bud.ByderID, T_Bud.BudDato, " &_
"T_Bud.BudPris, T_Bud.BudForskel " &_
"FROM T_Bud " &_
"WHERE VareID =" & Request("Item") &_
" ORDER BY BudPris DESC"
rsBid.Open strSQL, objConn
%>
<CENTER><H1>Danmarks Småbådsfiskeklubber<BR>Bud på <%= strItemName
%></H1></Center>
<P>
<%
Dim varHighBid
varHighBid = 0
If rsBid.EOF Then
Response.Write "Indtil nu er der ikke blevet budt på denne vare!"
Else
Response.Write "Bud History (højeste bud først)" &_
"<TABLE BORDER=""2"" CELLSPACING=""3"" CELLPADDING=""3"">" &_
"<TR>" &_
"<TH>Byder ID</TH>" &_
"<TH>Bud Dato</TH>" &_
"<TH>Bud</TH>" &_
"<TH>Bud forskel</TH>" &_
"</TR>"
Do While Not rsBid.EOF
Response.Write _
" <TR>" & _
" <TD>" & rsBid("ByderID") & "</TD>" & _
" <TD>" & rsBid("BudDato") & "</TD>" & _
" <TD ALIGN=RIGHT>" & FormatCurrency(rsBid("BudPris")) & "</TD>" &
_
" <TD ALIGN=RIGHT>" & FormatCurrency(rsBid("BudForskel")) & "</TD>"
& _
" </TR>"
If varhighBid = 0 Then varHighBid = rsBid("BudForskel")
rsBid.MoveNext
Loop
rsBid.Close
Set rsBid = Nothing
Response.Write "</TABLE>"
End If
%>
<FORM NAME="frmBid" ACTION="prv.asp" METHOD="Post" onSubmit="return
VerifyData()">
<INPUT TYPE="Hidden" NAME="ItemID" VALUE="<%= Request("Item") %>">
<P>
<TABLE WIDTH="80%" BORDER="0">
<TR>
<TD ROWSPAN="6"><IMG src="<%= strBillede %>"></TD>
</TR>
<TR>
<TD WIDTH="20%"><B>Vare:</B></TD>
<TD><%= strItemName %></TD>
</TR>
<TR>
<TD WIDTH="20%"><B>Mindstepris:</B></TD>
<TD><%= FormatCurrency(strMindstepris) %></TD>
</TR>
<TR>
<TD><B>Beskrivelse:</B></TD>
<TD><%= Replace(strDescription, vbcrlf, "<BR>") %></TD>
</TR>
<TR>
<TD><B>Dit bud >>>>></B></TD>
<TD><INPUT TYPE="text" NAME="Bid" SIZE="40"></TD>
</TR>
<TR>
<TD></TD>
<TD ALIGN="center" COLSPAN="2"><BR>
<INPUT TYPE="Submit" VALUE="Byd på vare">
<INPUT TYPE="Reset"></TD>
</TR>
</TABLE>
</FORM>
<HR>
<TABLE BORDER="0" WIDTH="100%>
<TR Align="Center">
<TD WIDTH="33%"><A HREF="BrowseListings.asp">Gennemse tilbuddene</A></TD>
<TD WIDTH="33%">Tilføj vare til salg</TD>
<TD WIDTH="33%"><A HREF="Register.asp?Update=True">Ændre
Registreringsdata</A></TD>
</TR>
</TABLE>
</BODY>
<SCRIPT language="JavaScript">
<!--
function VerifyData()
{
if (document.frmBid.Bid.value <= <%= varHighBid %>)
{
alert ("Du bliver nødsaget til at byde højre end " +
"<%= FormatCurrency(varHighBid) %>.");
return false;
}
else
return true;
}
-->
</SCRIPT>
</HTML>
--
Med Venlig Hilsen
Jørgen Müller