Optimering af script - Forslag behøves

Måske du kan lave så SQLen vælger nogle fra, men en WHERE del, så eksvis du kan undgå if sætningen...:

Set LC = PortSenLib.Execute("select Sen"&ServiceCount&", Senid From GlobalSenLib WHERE (SenId is not null) AND (SenB"&ClientId&" is not null) order by id")

Det vil hjælpe hvis det sker tit at denne betingelse ikke er opfyldt:

if SenID <> "" and SenB <> ""  then

I det der vil man ikke medtager de records hvor den if sætninger ikke er opfyldt.

eagleeye > god ide, prøver jeg lige - venter lige med points lidt vil gerne have nogen flere forslag på banen, håber det er ok ;)

eagleeye > Det sker ofte i starten, men efterhånden som siden bliver bygget op vil det ikke indtræffe så ofte :)

En anden ting kunne være at bruge rs.GetRows og få lagt data i et array:
http://activedeveloper.dk/aspdigital/2001081401.asp
http://www.programmersresource.com/articles/getrows.asp
Det er forskellig mening om hvorvidt det er hurtiger eller ej.

Men din kode ville så blive:


Set LC = PortSenLib.Execute("select Sen"&ServiceCount&", Senid From GlobalSenLib WHERE (SenId is not null) AND (SenB"&ClientId&" is not null) order by id")

if not LC.eof then
  arrRecords = LC.getrows()
end if
LC.close
Set LC = Nothing

for i=0 to ubound(arrRecords,2)
  SenID = arrRecords(1,i)
  SenB  = arrRecords(0,i)

  Application("Sen"&SenID&""&ClientId&"") = Smileys(SenB)
next

eagleeye > der opstår en fejl i min sub med den sidste kode

Microsoft VBScript compilation error '800a0400'

Expected statement

//global.asa, line 75

End Sub
^

Det forstår jeg ikke helt. Expented statement, som regl manger der så en end if eller next eller sådan noget.

eagleeye > Nej, kan det have noget at gøre med størrelsen på mine udtræk ?

Umiddelbart ikke. Den mangler et eller andet..

eagleeye > den står inde i et andet loop, kan dette have betydning, har ofte selv oplevet der kan opstå problemet på den konto :-/ ?

eagleeye > hmm, ser hvis ud til at virke nu - underligt nok :) kan være det var noget med serveren :-/

Ja det kan måske være.. Det skal være next til en for sætning og loop til en do.:


do xxxx
  for i = cc to yy

  next
loop

Hvis man bytter rundt på loop og next kommer fejlen.

Virker nu og ser ud som følgende... ændrede lige lige lidt *S*

Set LC = CTC.Execute("SELECT SenB" & ClientId & ", Senid FROM SenBase WHERE SenId IS NOT NULL AND SenB" & ClientId & " IS NOT NULL ORDER BY id")

If Not LC.EOF Then arrRecords = LC.getrows()

LC.Close
Set LC = Nothing

For i = 0 To Ubound(arrRecords, 2)
SenID = arrRecords(1,i)
SenB  = arrRecords(0,i)

Application("Sen" & SenID & ClientId) = Smileys(SenB)
Next

eagleeye > mange takker for hjælpen / de forskellige tips :)