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">
nån som kan hjälpa x( hehe
PPatrikBMedlem sedan mars 20002 836 inlägg 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
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
[Redigerat av PatrikB den 24 jan 2002]
hur fixar jag det dära med classerna da?? eller kan du inte scripta nån annan kod som inte kör class?? :) tack
