<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oConn_STRING
Recordset1.Source = "SELECT GuestBook.MsgId AS GuestBook_MsgId, GuestBook.Title, GuestBook.MsgDate, GuestBook.Msg, imgDiary.imgID, IIf(IsNull(imgDiary!imgFull),'blank.gif',imgDiary!imgFull) AS imgFull, IIf(IsNull(imgDiary!imgThumb),'blank.gif',imgDiary!imgThumb) AS imgThumb FROM GuestBook LEFT JOIN imgDiary ON GuestBook.MsgId=imgDiary.MsgId ORDER BY GuestBook.MsgId DESC, imgDiary.imgID ASC;"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
FUNCTION CropSentence(strText, intLength, strTrial)
Dim wsCount
Dim intTempSize
Dim intTotalLen
Dim strTemp
wsCount = 0
intTempSize = 0
intTotalLen = 0
intLength = intLength - Len(strTrial)
strTemp = ""
IF Len(strText) > intLength THEN
arrTemp = Split(strText, " ")
FOR EACH x IN arrTemp
IF Len(strTemp) <= intLength THEN
strTemp = strTemp & x & " "
END IF
NEXT
CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial
ELSE
CropSentence = strText
END IF
END FUNCTION
%>
Main
Manufacturers
of a full range of Racing and Recreational Kayaks and Paddles.
