ultradev - repeat all records
Jeg er ved at blive vanvittig her sidst på natten og må simpelthen poste dette.Teknologi er et felt i tabellen tbl_web.
Hvorfor vil den ikke repeate de records som ligger flere gange med samme teknologi???
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/data.asp\" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = \"flash\"
if (Request(\"MM_EmptyValue\") <> \"\") then Recordset1__MMColParam = Request(\"MM_EmptyValue\")
%>
<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_data_STRING
Recordset1.Source = \"SELECT * FROM tbl_web WHERE teknologi = \'\" + Replace(Recordset1__MMColParam, \"\'\", \"\'\'\") + \"\'\"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<%=(Recordset1.Fields.Item(\"teknologi\").Value)%> <%=(Recordset1.Fields.Item(\"kort_beskrivelse\").Value)%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</body>
</html>
<%
Recordset1.Close()
%>
