<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Function FixQuotes (strTxt) If strTxt <> "" Then FixQuotes = Replace(strTxt, "'", "´") FixQuotes = Replace(FixQuotes, "\", "~bs~") FixQuotes = trim(FixQuotes) End If End Function %> <% OpenConn %> aiuto
<% OpenConn QUERY ="Select descrizione_faq FROM dati_generali " 'SQL = "select IDOrdine,stato_spedizione,Pagamento,Totale,spese,Data,PAY1_ERRORDESCRIPTION from ordini where (state= 2 or Pagamento != 'Carta') and IDCliente=" & login_id & " order by IDOrdine desc" Set RS = Conn.Execute(QUERY) if not rs.eof then while not rs.eof response.Write(rs("descrizione_faq")) rs.movenext wend else response.Write("

Nessun contenuto inserito

") end if %>
<% CloseConn %>