Slumpa

slumpa.asp e inkluderat
och hela ser ut så här:

<!--#INCLUDE FILE="clsArray.asp"-->
<%
strSQLimg = "SELECT [id], username, bild FROM members WHERE NOT bild = 'Bilder\Medlemmar\ingen.gif'"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/members.mdb")

Set objRSimg = objConn.Execute(strSQLimg)

If Not objRSimg.EOF Then
varArray = objRSimg.GetRows()
End If

Set objRSimg = Nothing

objConn.Close
Set objConn = nothing

Set objArray = New clsArray

With objArray
.ArrayType = 2 '## -- a 2-dimensional array are set to be used --
.Positions = 2 '## -- 3 positions will be created on every index. positions start count at 0 --
.SetArray varArray

'## -- get randomly data as array --
varImages = .Random(6)
End With

Set objArray = Nothing

'## -- show random images --
If IsArray(varImages) Then
For N = 0 TO UBound(varImages,2)
reponse.write "<a href='krypin.asp?checkid=" & varImages(0,N) & "'><img src='" & varImages(2,N) & "' alt='" & varImages(1,N) & "' border = '0' width= '69' height= '87'></a>"
Next
End If
%>

<head>
<title></title>
</head>

<body text="#FFFF00" link="#800000" vlink="#800000" alink="#800000" bgcolor="#000000">

e du kvar

nån som kan hjälpa hehe

Vet inte vad det kan vara för ngt fel. Antingen att du inte har gett all kod, eller så har din scriptmotor inte stöd för att köra vb script classer.

Denna kod funkar hur "smutt" som helst:

<HTML>
<HEAD>
<TITLE>Random Image</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000">
<%
strSQLimg = "SELECT [id], username, bild FROM members WHERE NOT bild = 'Bilder\Medlemmar\ingen.gif'"
'strSQLimg = "SELECT * FROM tblGuestbook"

Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database/members.mdb")
	'objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/wizeBook.mdb")

	Set objRSimg = objConn.Execute(strSQLimg)
	
		If Not objRSimg.EOF Then
			varArray = objRSimg.GetRows()
		End If
	
	Set objRSimg = Nothing

	objConn.Close
Set objConn = nothing

Set objArray = New clsArray
With objArray
	.ArrayType = 2 '## -- a 2-dimensional array are set to be used --
	.Positions = 2 '## -- 3 positions will be created on every index. positions start count at 0 --
	.SetArray varArray
	
	'## -- get randomly data as array --
	varImages = .Random(6)
End With
Set objArray = Nothing

'## -- show random images --
If IsArray(varImages) Then
For N = 0 TO UBound(varImages,2)
	'Response.write varImages(0,N) & "<BR>"
	response.write "<a href=""krypin.asp?checkid=" & varImages(0,N) & """><img src=""" & varImages(2,N) & """ alt=""" & varImages(1,N) & """ border = ""0"" width= ""69"" height= ""87""></a>"
Next
End If
%>
</BODY>
</HTML>
<!--#INCLUDE FILE="clsArray.asp"-->

cya,
PatrikB

hur fixar jag det dära med classerna da?? eller kan du inte scripta nån annan kod som inte kör class?? tack

nån som kan hjälpa mig