<!--#INCLUDE FILE="aspBoardData.asp"-->
<STYLE type=text/css>
<!--
A:link {color:"<%=abColorLink%>";}
A:visited {color:"<%=abColorVisited%>";}
A:hover {color:"<%=abColorHover%>"; <%If abBoldHover = True Then
Response.Write "font-weight:bolder"%>}
{
text-indent : 2;
}
-->
</STYLE>
<%
Dim strSql
Dim adoConn
Set adoConn=Server.CreateObject("ADODB.Connection")
adoConn.ConnectionString="DBQ=" & Server.MapPath(abDBPath) &
"\aspBoard.mdb;DefaultDir=" & Server.MapPath(abDBPath) & ";Driver={Microsoft
Access Driver (*.mdb)};DriverId=25;FIL=MS
Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;
SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;;User Id=admin;"
adoConn.Open
Function ListItems(parentId)
Dim strSql
Dim adoRs
strSql="SELECT * FROM msgDetail WHERE parentId = " & parentId & " ORDER BY
msgTime DESC"
Set adoRs=Server.CreateObject("ADODB.Recordset")
adoRS.Open strSql, adoConn, 1
If Not adoRs.EOF Then
Response.Write "<ul>"
Do Until adoRS.EOF
Response.Write "<li><a href=""aspBoardDetail.asp?Id=" &
adoRS.Fields("msgId").Value & """><FONT FACE=""" & abFont & """>" &
adoRS.Fields("headerStr").Value & "</a> <font size=""-1"">(" &
FormatDateTime(adoRs.Fields("msgTime").Value, 2) & " " &
FormatDateTime(adoRs.Fields("msgTime").Value, 3) & ")</FONT>"
ListItems(adoRs.Fields("msgId").Value)
adoRS.MoveNext
Loop
Response.Write "</ul>"
End If
End Function
Function ExistFollowUps(parentId)
Dim strSql
Dim adoRs
strSql = "SELECT msgId FROM msgDetail WHERE parentId = " & parentId
Set adoRs = Server.CreateObject("ADODB.Recordset")
adoRS.Open strSql, adoConn, 1
ExistFollowUps = Not adoRs.EOF
End Function
Function GetHeaderString(msgId, HTML)
Dim strHeader
Dim strSql
Dim adoRs
strSql = "SELECT * FROM msgDetail WHERE msgId = " & msgId
Set adoRs=Server.CreateObject("ADODB.Recordset")
adoRS.Open strSql, adoConn, 1
If adoRs.EOF Then
strHeader = abDefaultHeader
Else
strHeader = adoRs.Fields("headerStr").Value
End If
If HTML = -1 Then
GetHeaderString = "<ul><li><a href=""aspBoardDetail.asp?Id=" &
adoRs.Fields("msgId").Value & """><font face=""" & abFont & """>" &
strHeader & "</font></ul>"
Else
GetHeaderString = strHeader
End If
End Function
Function GetTitleString()
Dim strTemp
strTemp = "<H2><FONT FACE=""" & abFont & """><a href=""aspBoard.asp"">" &
abTitle & "</font></a></H2>"
GetTitleString = strTemp
End Function
Function AddResponse(ParentId, Subject, sMessage, AuthorName, AuthorEmail,
AuthorURL)
Dim adoRs
Dim strSql
Set adoRs = Server.CreateObject("ADODB.Recordset")
With adoRs
.CursorType = 2
.LockType = 2
.ActiveConnection = adoConn
.Open "SELECT * FROM msgDetail WHERE msgId = -1"
.Addnew
.Fields("parentId").Value = ParentId
.Fields("headerStr").Value = Left(Subject, 64)
.Fields("detailStr").Value = sMessage
.Fields("author_nameStr").Value = Left(AuthorName, 64)
.Fields("author_emailStr").Value = Left(AuthorEmail, 128)
.Fields("author_urlStr").Value = Left(AuthorURL, 128)
.Update
.Close
End With
strSql = "SELECT Max(msgId) FROM msgDetail"
Set adoRs=Server.CreateObject("ADODB.Recordset")
adoRS.Open strSql, adoConn, 1
AddResponse = adoRs.Fields(0).Value
End Function
Function GetRows(InputString)
Dim lngRows
Dim i
lngRows = Int(Len(InputString)/40)
If lngRows < 4 Then
lngRows = 4
End If
If Instr(1, InputString, aspCrLf)>0 Then
For i=1 to Len(InputString) - 1
If Mid(InputString, i, 2) = Chr(10) & Chr(13) Then
lngRows = lngRows + 1
End If
Next
End If
If lngRows > 12 Then
lngRows = 12
End If
GetRows = lngRows
End Function
%>
"Lars Aagaard" <lars@123nu.dk> skrev i en