Dim opis_s_value
opis_s_value = ""
If Not market.EOF Then
Dim opis_s_id
opis_s_id = 0
If IsNumeric(market.Fields.Item("gotohtml").Value) And market.Fields.Item("gotohtml").Value > 0 Then
opis_s_id = market.Fields.Item("gotohtml").Value
End If
If opis_s_id > 0 Then
Dim opis_s_cmd, opis_s_rs
Set opis_s_cmd = Server.CreateObject("ADODB.Command")
opis_s_cmd.ActiveConnection = MM_sql2025_STRING
opis_s_cmd.CommandText = "SELECT Opis_s FROM dbo.system WHERE id_s = ?"
opis_s_cmd.Prepared = true
opis_s_cmd.Parameters.Append opis_s_cmd.CreateParameter("param1", 5, 1, -1, opis_s_id) ' adDouble
Set opis_s_rs = opis_s_cmd.Execute
If Not opis_s_rs.EOF Then
If Len(Trim(opis_s_rs.Fields.Item("Opis_s").Value)) > 0 Then
opis_s_value = "
" & opis_s_rs.Fields.Item("Opis_s").Value & "
"
End If
End If
opis_s_rs.Close
Set opis_s_rs = Nothing
Set opis_s_cmd = Nothing
End If
End If
Купить Cassida 6650 UV - счетчик банкнот по цене производителя с официальной гарантией
/ с доставкой по России со склада в Москве,
