Jag föreslår att du säker på GetRows här på forumet!
------------------
Nytt nickname, tidigare "känd" under namnet iceM2
1 svar · 166 visningar · startad av hopparn
hej
Jag skulle vilja ha tips ang getrows... jag har aldrig använt det...
jag skickar med en del av min sök kod så kanske nån vänlig själ vill förklara/klippockklistra ihop ett exempel att använda:
IF len(tmpSQL_std)>0 or len(request("ISO_collection")) >0 or len(request("cen")) >0 then
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionTimeout = 60
DB.CommandTimeout = 60
DB.Open "Provider=SQLOLEDB;Data Source=XXX;Database=XXX;UID=XXX;PWD=XXX"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.MaxRecords = 200
RS.cursortype = adOpenStatic
RS.pagesize=mypagesize
rs.cachesize=10
IF request("ISO_collection")>0 then
isosql="select * from XXXXXXX where (dokid=29308 or dokid=29309 or dokid=29310)"
RS.open isosql&" order by Description", db
ELSEif len(request("cen"))>0 then
cen = server.htmlencode(request("cen"))
cenSQL="select * from XXXXXX where Description = '"& cen &"'"
RS.open cenSQL, db
ELSE
sortering=request("sort")
if sortering="" then sortering = "pub_date"
RS.open strSQL_std & tmpSQL_std & " order by "&sortering&" DESC", db
END IF
IF not rs.eof then RS.absolutepage=cINT(mypage)
maxcount=cint(RS.pagecount)
howmanyrecs=0
IF RS.eof or RS.BOF then
call output_nohit' sorry, inga träffar
ELSE
call output_std 'do while blablabla
End If
------------------
Rammstein rules - Du riechst so gut
[Redigerat av hopparn den 16 jan 2002]
Jag föreslår att du säker på GetRows här på forumet!
------------------
Nytt nickname, tidigare "känd" under namnet iceM2