%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim yritys__MMColParam yritys__MMColParam = "5" If (Request("MM_EmptyValue") <> "") Then yritys__MMColParam = Request("MM_EmptyValue") End If %> <% Dim yritys Dim yritys_numRows Set yritys = Server.CreateObject("ADODB.Recordset") yritys.ActiveConnection = MM_tuomi_STRING yritys.Source = "SELECT * FROM TblTiedotteet WHERE TiedID = " + Replace(yritys__MMColParam, "'", "''") + "" yritys.CursorType = 0 yritys.CursorLocation = 2 yritys.LockType = 1 yritys.Open() yritys_numRows = 0 %>
![]() |
|||||||||||||||||||||||||||||||
| |
|||||||||||||||||||||||||||||||
|
Yritystiedotteita |
YHTEYSTIEDOT
<%=Replace((yritys.Fields.Item("juttu").Value), vbCrLf, "
|
||||||||||||||||||||||||||||||
|
Malminkaari 23 A |
|||||||||||||||||||||||||||||||