session med databasinformationen

LR^evil.sidMedlem sedan maj 2002560 inlägg

5 sep. 2004 10:56#1

Smart eller hur korkat som helst?

Set oRs = oCon.Execute("SELECT COUNT(id) FROM querys WHERE ispublic = 1")
If Not oRs.EOF Then DbData = oRs.GetRows() Else Session("QueryCount") = 0

If DbData(0,0) > 0 Then
	If "" & Session("QueryCount") = "" Then Session("QueryCount") = 0
	If DbData(0,0) > Session("QueryCount") Then
		SQL = "SELECT * FROM usrquerys u,godrespond g WHERE ispublic = 1"
		Session("DbData") = GetQuerys(SQL)
		Session("QueryCount") = DbData(0,0)
	End If
	For i = 0 To UBound(Session("DbData"),2)
		.Write Session("DbData")(1,i)
	Next
End If