Tryck på knappen "Redigera" för att ersätta den här texten med ditt eget innehåll. Formattera text genom att välja olika formatmallar från formatmallsväljaren på verktygsfältet. När du är klar trycker du på knappen "Spara" för att spara dina förändringar.

 

<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_showNews__MMColParam rs_showNews__MMColParam = "news" If (Request("MM_EmptyValue") <> "") Then rs_showNews__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_showNews Dim rs_showNews_numRows Set rs_showNews = Server.CreateObject("ADODB.Recordset") rs_showNews.ActiveConnection = MM_VillaMD_STRING rs_showNews.Source = "SELECT * FROM NewsOffer WHERE newsSort = '" + Replace(rs_showNews__MMColParam, "'", "''") + "' and newsActive = '1' ORDER BY newsID DESC" rs_showNews.CursorType = 0 rs_showNews.CursorLocation = 2 rs_showNews.LockType = 1 rs_showNews.Open() rs_showNews_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 %> <% Dim rs_showOffer__MMColParam rs_showOffer__MMColParam = "offer" If (Request("MM_EmptyValue") <> "") Then rs_showOffer__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_showOffer Dim rs_showOffer_cmd Dim rs_showOffer_numRows Set rs_showOffer_cmd = Server.CreateObject ("ADODB.Command") rs_showOffer_cmd.ActiveConnection = MM_VillaMD_STRING rs_showOffer_cmd.CommandText = "SELECT * FROM NewsOffer WHERE newsSort = ? and newsActive = '1' ORDER BY newsOrder ASC" rs_showOffer_cmd.Prepared = true rs_showOffer_cmd.Parameters.Append rs_showOffer_cmd.CreateParameter("param1", 200, 1, 255, rs_showOffer__MMColParam) ' adVarChar Set rs_showOffer = rs_showOffer_cmd.Execute rs_showOffer_numRows = 0 %> <% 'Display predermined number of words Server Behaviour by Tom Steeper v2 Function DisplayNumWords(strData, numWords) ShortBody = "" SplitBody = Split (strData," ", (numWords)+1) For i = 0 to (UBound(SplitBody)-1) ShortBody = ShortBody & SplitBody(i) & " " Next DisplayNumWords = ShortBody End Function %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 rs_showNews_numRows = rs_showNews_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 2 Repeat2__index = 0 rs_showOffer_numRows = rs_showOffer_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% While ((Repeat2__numRows <> 0) AND (NOT rs_showOffer.EOF)) %>

" alt="Bild" width="95" hspace="5" border="1">	<%=(rs_showOffer.Fields.Item("newsHeadline").Value)%>
	<%=(rs_showOffer.Fields.Item("newsContent").Value)%>
	" target="_blank">Ladda hem PDF >>
	" target="_blank">

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_showOffer.MoveNext() Wend %> <% rs_showOffer.Close() Set rs_showOffer = Nothing %>