Optimalisere script så det blir hurtigere.

Hei!

Hvis jeg lager kun en redirect så går scriptet 10 ganger så fort. Hvorfor er dette scriptet så tregt og hva kan jeg gjøre? Scriptet teller antall klikk på en site.

<%
on error resume next

Response.Buffer = True
%>
<!--#include file ="include/dbconn.asp"-->
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
%>     
<!--#include file ="include/dbconn_error.asp"-->
<%
dim strUrl,strDocID,strSub,strCat,i

strUrl = Request.ServerVariables("QUERY_STRING")

strUrl = Right(strUrl, Len(strUrl)-4)

Set adoRs=Server.CreateObject("ADODB.Recordset")
adoRs.CursorLocation = 2 ' adUseServer
adoRs.CursorType = 2 ' adOpenDynamic
adoRs.LockType = 3 ' adLockOptimistic   
       
strSQL = "SELECT * FROM tblClick"
adoRs.Open strSQL, strConn, , , &H0001 ' adCmdText

i = 0

Do While not adoRs.eof
    If strUrl = adoRs("CUrl") Then
        i = 1
        adoRs("CClicks") = adoRs("CClicks") + 1
    End If
    adoRs.Movenext
Loop

    If i = 0 Then
        adoRs.AddNew
        adoRs("CUrl") = strUrl
        adoRs("CClicks") = 1
        adoRS.Update
    End if
   
adoRs.Close
Set adoRS = Nothing
       
adoCn.Close
set adoCn = nothing

response.redirect(strurl)
%>