ti posto il codice in scrittura... ma anke in lettura si pianta...
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
strSQL = "SELECT * FROM Anagrafica WHERE DATA >= #" &datada &"# AND DATA <= #" &dataa &"# AND TIPO = '" &request("m2") &"'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn_DB2
rs.Source = strSQL
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 3
rs.Open()
if rs.Eof then response.redirect "../Info_Messaggi.asp?Cod_Err=06"
while not rs.Eof
codice = rs("CODICE")
qta = rs("QTA")
data = rs("DATA")
for i = 1 to 16-len(codice)
codice_app = codice_app &" "
next
codice = codice &codice_app
codice_app = ""
for i = 1 to 5-len(qta)
qta_app = qta_app &"0"
next
qta = qta_app &qta
qta_app = ""
stringa = stringa &codice &qta &data &vbCrLf
rs.MoveNext
wend
rs.Close
set rs = nothing
path_file = "../file/" &LCase(request("m2")) &".txt"
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set OutStream=FileObject.CreateTextFile(Server.MapPath(path_file),true,0)
Outstream.WriteLine stringa
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing
response.redirect "../Info_Messaggi.asp?Cod_Err=07"
%>
grazie per l'aiuto!