ASP til XML
Hvordan kan jeg lave min helt simple ASP fil om til XML så det eksempelvis kan bruges i Flash.<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/database.asp" -->
<%
Dim rsNews
Dim rsNews_numRows
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = MM_database_STRING
rsNews.Source = "SELECT * FROM nyhed WHERE Aktiv = 'Y' ORDER BY IDnyhed DESC"
rsNews.CursorType = 0
rsNews.CursorLocation = 2
rsNews.LockType = 1
rsNews.Open()
rsNews_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 8
Repeat1__index = 0
rsNews_numRows = rsNews_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="stylesheet.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF))
%>
<a href="../news.asp?IDnyhed=<%=(rsNews.Fields.Item("IDnyhed").Value)%>" target="_top" class="p"><%=(rsNews.Fields.Item("Overskrift").Value)%></a>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNews.MoveNext()
Wend
%>
</body>
</html>
<%
rsNews.Close()
Set rsNews = Nothing
%>
