Hjælp til RSS feed på en blog.
Jeg har en weblog og vil gerne lave en rss feed så andre kan syndikere den. jeg har forsøgt at tilmelde min dagbog til blogbot.dk, men da min dagbog ikke er lavt i RSS kan jeg ikke tilmelde den.... er der nogen der kan hjælpe mig med at lave min dagbog i RSS?min arkivside ser såledesud:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Response.Expires = 0
%>
<!--#include file="adovbs.inc"-->
<!--#include file="code_lib.asp"-->
<html>
<head>
<title>arkiv</title>
</head>
<body>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ="& Server.MapPath(".") &"/dagbog.mdb; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access Driver (*.mdb)};"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseClient
objRS.CursorType = adOpenStatic
objRS.CacheSize = intPageSize
strQ = "select * from users"
objRS.Open strQ, objConn, , , adCmdText
%>
<%
IF request("ejer") ="" then
Response.Redirect("dagbog.asp")
else
'***********************************
DIM maned, ugedag
Function DatoVis(dato)
maned = Array(,"januar", "februar", "marts", "april", "maj", "juni", "juli", "august","september", "oktober", "november", "december")
ugedag = Array(,"Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
DatoVis = Day(dato)&". "& maned(month(dato)) &" "& Year(dato)
End Function
'***********************************
Const intPageSize = 10
Dim intCurrentPage, objConn, objRS, strQ
Dim intTotalPages, intI
' Listing 17.2 Paging Part 2: Setting the Current Page Number
If Request.ServerVariables("CONTENT_LENGTH") = 0 Then
intCurrentPage = 1
Else
intCurrentPage = CInt(Request.Form("CurrentPage"))
Select Case Request.Form("Submit")
Case "Forrige"
intCurrentPage = intCurrentPage - 1
Case "Næste"
intCurrentPage = intCurrentPage + 1
End Select
End If
' Listing 17.3[em]Paging[md]Part 3: Preparing the Recordset for Paging
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ="& Server.MapPath(".") &"/dagbog.mdb; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access Driver (*.mdb)};"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseClient
objRS.CursorType = adOpenStatic
objRS.CacheSize = intPageSize
' Listing 17.4[em]Paging[md]Part 4: Opening the Recordset
strQ = "select * from dagbog where bruger_id = '"
strQ = strQ & request("ejer") & "' ORDER BY id DESC"
objRS.Open strQ, objConn, , , adCmdText
' Listing 17.5 Paging Part 5: Setting the Recordset cursor
objRS.PageSize = intPageSize
If Not(objRS.EOF) Then objRS.AbsolutePage = intCurrentPage
' Listing 17.6 Paging Part 6: Sending Database Data
intTotalPages = objRS.PageCount
%>
<%
If objRS.EOF then
Response.Write (" <font face='Verdana' size='1'>Har endnu ikke skrevet nogle tekster i dagbogen.<p>")
%>
<%
Else
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="400" height="80">
<tr>
<td width="400" height="80" valign="top">
<table border="0" width="400" height="32">
<tr>
<td height="32" width="400"><b>Oprettet</b></td>
<td height="32" width="400"><b>Overskrift</b></td>
</tr>
</table>
<%
For intI = 1 to objRS.PageSize
'Response.Write Server.HTMLEncode(objRS("dato") & ":" & objRS("ID")) & "<BR>"
Response.Write "<table border='0' width='349' height='1'>"
Response.Write "<tr>"
Response.Write "<!-- BlogbotDateStart --><td height='1' width='153'>"& datovis(objRS("dato"))& "<!-- BlogbotDateEnd --></td>"
Response.Write "<!-- BlogbotTitleStart --><td height='1' width='180'><A HREF='vis.asp?artikel=" & objRS("Id") & "'>"& objRS("overskrift") & "</A></td><!-- BlogbotTitleEnd -->"
Response.Write "</tr>"
Response.Write "</table>"
objRS.MoveNext
If objRS.EOF Then Exit For
Next
objRS.Close : objConn.Close
Set objRS = Nothing : Set objConn = Nothing
%>
<BR>
<center><font face='Verdana' size='1'><B><%= intCurrentPage %></B> side af <B><%= intTotalPages %></B></center><P>
<% ' Listing 17.7 Paging Part 7: Providing Web Form for Paging %>
</TD>
</TR>
</TABLE>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>?ejer=<%= request("ejer") %>" METHOD="POST">
<INPUT TYPE="Hidden" NAME="CurrentPage"
VALUE="<%= intCurrentPage%>">
<%
If intCurrentPage > 1 Then %>
<style>
<!--
input { color: #473262; border: 1px dotted #473262; background-color: #FFFFFF }
-->
</style>
<center><INPUT TYPE="Submit" NAME="Submit" VALUE="Forrige">
<% End If
If intCurrentPage <> intTotalPages Then %>
<style>
<!--
input { color: #473262; border: 1px dotted #473262; background-color: #FFFFFF }
-->
</style>
<% End If
If intCurrentPage <> intTotalPages Then %>
<INPUT TYPE="Submit" NAME="Submit" VALUE="Næste"></center>
<% End If %>
</FORM>
</BODY></HTML>
<% End If %>
<% End If %>
</FONT>
-------------
vis.asp
<%@ Language=VBScript %>
<!--#INCLUDE FILE ="adovbs.inc" -->
<!--#INCLUDE FILE ="code_lib.asp" -->
<!-- #include file="recordcounter.asp" -->
<html>
<head>
<title>dagbog</title>
</head>
<body>
<%
Set Conn = Server.createobject("adodb.connection")
Conn.Open "DBQ="& Server.MapPath(".") &"/dagbog.mdb; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT Id, bruger_id, dato, tekst, overskrift FROM dagbog WHERE Id = "& Request.QueryString("artikel")
Set mailen = Conn.ExeCute(SQL)
If mailen.EOF Then
Response.Write "Der er opstået en fejl..."
Else
SQL1 = "UPDATE dagbog SET antal_vist=antal_vist+1 WHERE Id = " & Request.QueryString("artikel")
conn.execute(SQL1)
Set Rs = Conn.Execute("SELECT antal_vist FROM dagbog WHERE Id = " & Request.QueryString("artikel") & "")
%>
<table border="0" WIDTH="100%">
<td width="400" valign="top" colspan="2"><div id="tabel5"><b><% = mailen("overskrift") %></b></div>
<FONT FACE="VERDANA" SIZE="1"><FONT COLOR="#959595"><% = datovis(mailen("dato")) %></FONT><p><% = mailen("tekst") %>
<p>Læst <b><%= rs("antal_vist")%></b> gange <hr COLOR="#990000" SIZE="1"><img src="skrivkommentar.gif" width="18" height="17" border="0"><a href="java script:window.open('kom.asp?Id=<%= Request("artikel") %>','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=400,height=400,top=50,left=50').focus();void(0)">Skriv en kommentar</a>
<% End If %><%
Response.Write "(" & NumberOfRecords("dagbog.mdb", "SELECT * FROM comments WHERE Id=" & mailen("id") & ";") & "</FONT>)"
%>
