Kalde fra datasen - asp
Jeg har forsøgt mig med asp, som ikke er helt nemt. Jeg har en side, hvor der indsættes nogle indlæg. Det virker fint. Men jeg vil gerne, at brugere kan se deres egen indlæg på en side. Jeg har i databasen, som hedder arkiv, felterne id - overskrift - indhold - ansvarlig. Medlemmerne logger ind.Kan nogen fortælle hvad jeg gør forkert?
<code><%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/conn.asp" -->
<%
'--RSinfo
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open(Conn)
set RSrightAdds=Server.CreateObject("ADODB.recordset")
RSrightAdds.Open "SELECT * FROM rightAdds order by Rand() LIMIT 0,6 ", myConn
%>
<!--#include file="../../md5/md5.asp"-->
<%
**********************************************************
LÆNGERE NEDE
**********************************************************
<%
Dim RSarkiv
Dim RSarkiv_numRows
Set RSarkiv = Server.CreateObject("ADODB.Recordset")
RSarkiv.ActiveConnection = MM_byen_STRING
if not request.cookies(md5("byen"))("rang") = "admin" then
RSarkiv.Source = "SELECT * FROM arkiv WHERE ansvarlig = '" & request.cookies(md5("byen"))("brugernavn") & "' ORDER BY id DESC"
else
RSarkiv.Source = "SELECT * FROM arkiv ORDER BY id DESC"
end if
RSarkiv.CursorType = 0
RSarkiv.CursorLocation = 2
RSarkiv.LockType = 1
RSarkiv.Open()
Open "SELECT * FROM arkiv", database, 2, 2
RSarkiv_numRows = 0
%></code>
