%@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 %>