Sludder her kommer scriptet - SORRY:
<%@ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit
%>
<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->
<%
dim link
sub hent_link(link)
Dim conn, RS, sql
Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open Application(\"database\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
RS.Open \"SELECT * FROM TLink WHERE LinkType=\'\"& link &\"\'\", conn
while not RS.EOF
response.write \"<a href=\"\"java script:AabenLink(\'\"
response.write RS(\"URL\")
response.write \"\')\"\">\"
response.write RS(\"Beskrivelse\")
response.write \"</a><br>\"
RS.MoveNext
Wend
RS.Close
Set RS = NOTHING
conn.close
Set conn = NOTHING
end sub
Dim streng, SvarStatus
\' Henter antal åbne og lukkede spg.
sub hent_total(SvarStatus)
Dim Conn, RS
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open Application(\"Database\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
RS.CursorType = adOpenStatic
Select case SvarStatus
case FALSE
RS.Open \"SELECT Svar_ID FROM TSvar WHERE SvarStatus=FALSE AND SvarTil=0\", Conn
Response.write RS.RecordCount
case TRUE
RS.Open \"SELECT Svar_ID FROM TSvar WHERE SvarStatus=TRUE AND SvarTil=0\", Conn
Response.write RS.RecordCount
end select
RS.Close
Set RS = NOTHING
Conn.Close
Set Conn = NOTHING
end sub
\' henter nyeste emner og indlæg
sub nyeste(streng)
Dim Conn, RS, overskrift
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open Application(\"Database\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Dim temp
temp = 0
RS.CursorType = adOpenStatic
Select case streng
case \"spg\"
RS.Open \"SELECT Svar_ID, Overskrift FROM TSvar WHERE SvarTil=0\", Conn
case \"ind\"
RS.Open \"SELECT Svar_ID, Overskrift FROM TSvar\", Conn
end select
RS.MoveLast
While NOT RS.bof AND Temp < 5
Response.write \"<img border=\"\"0\"\" src=\"\"/forum/i1.gif\"\"> \"
overskrift=LEFT(RS(\"overskrift\"),30)
overskrift=LEFT(overskrift,INSTRREV(overskrift,\"\")) &\"...\"
Response.write \"<b><a href=\"\"/forum/sesvar.asp?ID=\"& RS(\"Svar_ID\") &\"\"\">\"& overskrift
Response.write \"</a></b><br>\"
Temp = Temp + 1
RS.MovePrevious
Wend
RS.Close
Set RS = NOTHING
Conn.Close
Set Conn = NOTHING
end sub
\' henter nyeste opgaver
sub nyeste(opgaver)
Dim Conn, RS, Tittel
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open Application(\"fildb\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Dim temp
temp = 0
RS.CursorType = adOpenStatic
Select case streng
case \"opg\"
RS.Open \"SELECT ID, Tittel FROM TFiles\", Conn
end select
RS.MoveLast
While NOT RS.bof AND Temp < 5
Response.write \"<img border=\"\"0\"\" src=\"\"/forum/i1.gif\"\"> \"
Tittel=LEFT(RS(\"Tittel\"),30)
Tittel=LEFT(Tittel,INSTRREV(Tittel,\"\")) &\"...\"
Response.write \"<b><a href=\"\"/Upload/downloadDB.asp?ID=\"& RS(\"ID\") &\"\"\">\"& Tittel
Response.write \"</a></b><br>\"
Temp = Temp + 1
RS.MovePrevious
Wend
RS.Close
Set RS = NOTHING
Conn.Close
Set Conn = NOTHING
end sub
%>
