Hej!
Har problem med att jag får "timeout" eller 507-sidor

Kod är följande:
<code>
<%
Session.LCID = 1041
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL}; SERVER=xxxxxx; DATABASE=xxxx; UID=xxxx; PWD=xxxx"
Set RS = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From counter WHERE date='" & Date() & "'"
RS.Open Addera, Conn, 0, 3
Do Until RS.EOF
IF RS("ip") = Request.ServerVariables("remote_host") Then
Session("raknare") = "ja"
End If
RS.MoveNext
Loop
If Session("raknare") <> "ja" Then
RS.AddNew
RS("date") = Date()
RS("month") = Month(Now)
RS("day") = Day(Date)
RS("ip") = Request.ServerVariables("remote_host")
RS.Update
Session("raknare") = "ja"
End If
RS.Close

RS.Open Addera, Conn, 0, 3
ud = 0
Do Until RS.EOF
ud = ud + 1
RS.MoveNext
Loop
RS.Close

Addera2 = "Select * From counter"
RS.Open Addera2, Conn, 0, 3
totalt = 0
Do Until RS.EOF
totalt = totalt + 1
RS.MoveNext
Loop
RS.Close

Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
Unika totalt: <%=totalt%>, Unika idag: <%=ud%>
</code>

Detta är ett script som jag ej har © på men som jag tyckte var enkelt.
Jag har kikat igenom det men hittar inget som skulle kunna producera några knepigheter men och andra sidan så är jag otrooligt ny inom det här... *s*

Hjälp med kommentarer

Med vänliga hälsningar
Tyrone

Här kan optimeras...

<code>
<%
Session.LCID = 1041

Dim rs
Dim Conn

Dim strSQL
Dim strRemoteHost
strRemoteHost = Request.ServerVariables("remote_host")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL}; SERVER=xxxxxx; DATABASE=xxxx; UID=xxxx; PWD=xxxx"

If Session("raknare") = "ja" Then
Else
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM counter WHERE date = '" & Date() & "' AND ip = '" & Replace(strRemoteHost, "'", "''") & "'"
RS.Open strSQL, Conn
If RS.EOF Then
strSQL = "INSERT INTO counter (date, month, day, ip) VALUES ('" & Date() & "', " & Month(Date) & ", " & Day(Date) & ", '" & Replace(strRemoteHost, "'", "''") & "')"
Else
End If
Session("raknare") = "ja"
End If
RS.Close

strSQL = "SELECT Count(*) As Antal FROM counter WHERE date = '" & Date() & "'"
RS.Open strSQL, Conn
ud = RS("Antal")
RS.Close

strSQL = "SELECT Count(*) As Antal FROM counter"
RS.Open strSQL, Conn
totalt = RS("Antal")
RS.Close
Set RS = Nothing

Conn.Close
Set Conn = Nothing
%>
Unika totalt: <%=totalt%>, Unika idag: <%=ud%>
</code>