Hallo!
Ich habe hier ein Script, das zwar funktioniert aber f�rchterlich langsam
ist. Dauert am PWS bis zu 2 Minuten, bis eine Seite aufgebaut ist.
Ich vermute, es liegt an:
...
IF rs("Guthaben") = 0 THEN
Session("ID") = rs("BannerID") + 1
ELSE
...
bin mir aber nicht sicher. Kann sich das bitte mal jemand ansehen und mir
sagen, warum das Ding so langsam ist und wie ich das besser machen k�nnte?
Danke
Stefan
--- SCRIPT ---
<%@ Language=VBScript %>
<%
Response.Buffer=True
IF Session("ID") = "" THEN
Session ("ID") = 0
END IF
Response.Write "Session ID Start: " & Session("ID") & "<BR>"
%>
<!-- #include file="connection.asp" -->
<%
' 3 Banner anzeigen
i = 0
DO until i = 3
On Error resume Next
ConnSQL = "SELECT * FROM Banner WHERE BannerID = " & Session("ID") + 1
rs.Open ConnSQL, Conn
IF rs("Guthaben") = 0 THEN
Session("ID") = rs("BannerID") + 1
ELSE
Response.Write "<A HREF='redirect.asp?BannerID=" &
rs("BannerID") &
"&URL=" & rs("URL") & "' TARGET='_blank'>"
Response.Write "<IMG SRC='" & rs("Bild") & "' BORDER='0'>"
Response.Write "</A><BR>"
Session("ID") = rs("BannerID")
IF Session("ID") = nDS THEN
Session("ID") = 0
END IF
Response.Write "Session ID Schlu�: " & Session("ID") & "<BR>"
rs("Views") = rs("Views") + 1
rs("Guthaben") = rs("Guthaben") - 1
rs.Update
i = i + 1
END IF
rs.Close
LOOP
' Verbindung schlie�en
conn.Close
Set rs=Nothing
Set conn=Nothing
%>
--- SCRIPT ---
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
