alexis73

WinGirls
  • Numero contenuti

    53
  • Iscritto

  • Ultima visita

Su alexis73

  • Livello
    Apprendista

Profile Information

  • Sesso
    Femmina
  1. ciao a tutti, ho questa problematica che non so risolvere come faccio pensavo fosse più semplice. Ho creato un form i cui campi si allaciano al DB. Il mio problema è come faccio a far visualizzare i record che soddisfano i criteri inseriti. Esempio quei moduli di ricerca che si vedono per trovare le case località vani spero di aver reso l'idea, qualcuno ha qualche dritta, perpiacere, grazie.
  2. ciao a tutti sto costruendo un simil-carrello usando l'estensione ultraCart 3 shopping In pratica sono riiuscita ad arrivare fino al riepilogo dei prodotti scelti con il riporto delle quantità e del totalone merce ma in questa pagina, quando si dice di salvare il carrello in una tabella arriva l'errore sulla variabile di sessione ordineID. Il mio obbiettivo era dopo il riepilogo passa all'inserimento di chi sei nome cognome indirizzo quindi unito ai prodotti scelti, di passare i dati anagrafici ad una tabella del db ordini e dettaglio ordini nonchè clienti. Eventualmente passare il tutto via mail. Ma come posso fare e poi perchè la variabile di sessione oridiniID da errore. Io non ci capisco, qualcuno può aiutarmi, grazie
  3. nonostante segnali l'errore finalmente mi sono accorta di non aver chiamato il campo di testo con l'etichetta quantità messa questa messo on line funziona e fa anche i calcoli! :up1:
  4. Ciao a tutti sono arrivata alla creazione del carrello, quando fai la tabellina per inserirci i campi associandoli dal carrello fatto. In pratica non trovo sum(total) e se inserisco il sum(quantity) mi da errore javascript durante l'esecuzione di inspectDynamicDataRef e dice alla riga 292 del file d:\programmi\macromedia\dreamweaver MX\Configuration\DataSources\Asp_VBS\uscii.DS.htm Type Error: sum has no properties e appare un campo get car columns quantity. Non capisco credo sia un file mancante, in effetti li, nel percorso dataSource ci sono tanti altri file ma questo no. Inutile a dirsi che sono bloccata e non so come andare avanti qualcuno ha qualche indicazione perpiace. :leggi:
  5. grazie, capisco ho aperto un ticket per aruba domani mi daranno la risposta per la questione time out. Aspetto prima di buttarmi nel risolvere il path dinamico. Ma gli altri come fanno quando hanno queste esigenze di upload grandi file?
  6. Eccomi qua con la segnalazione dell'errore che appare in diverse fasi Premetto che funziona perfettamente con file di piccole dimensioni entro tipo 1 mb comunque - Ha un tempo di upload in 3600 secondi - Con i file grandi, sembra che carichi, viene la pagina bianca, e nella barra di stato del browser appare una clessidra e la dicitura "Sito web rilevato in attesa di risposta..." - Aspetto e dopo diversi minuti appare sempre nella barra di stato "operazione completata" sempre con pagina bianca e l'indirizzo di pagina sempre quello del form di inserimento - Aspetto e poco dopo qualche minuti appare pagina classica d'errore Impossibile trovare il server" e in fondo appare la seguente dicitura finale d'errore: "Impossibile trovare il server o errore DNS Internet Explorer " POI clicco AGGIORNA PAGINA e appare questo errore: Microsoft vb script:history.back(1)"">try again</a>" Response.End End If End If End Sub 'Check if version is uptodate Sub CheckPureUploadVersion(pau_version) Dim foundPureUploadVersion foundPureUploadVersion = getPureUploadVersion() if err or pau_version > foundPureUploadVersion then Response.Write "<b>You don't have latest version of ScriptLibrary/incPureUpload.asp uploaded on the server.</b><br/>" Response.Write "This library is required for the current page. It is fully backwards compatible so old pages will work as well.<br/>" Response.End end if End Sub 'Get fieldname function pau_Name(FormInfo) Dim PosBeg, PosLen PosBeg = InStr(FormInfo, "name=")+6 PosLen = InStr(PosBeg, FormInfo, Chr(34))-PosBeg pau_Name = Mid(FormInfo, PosBeg, PosLen) end function 'Get filename function pau_FileName(FormInfo) Dim PosBeg, PosLen PosBeg = InStr(FormInfo, "filename=")+10 PosLen = InStr(PosBeg, FormInfo, Chr(34))-PosBeg pau_FileName = Mid(FormInfo, PosBeg, PosLen) end function 'Get contentType function pau_ContentType(FormInfo) Dim PosBeg PosBeg = InStr(FormInfo, "Content-Type: ")+14 pau_ContentType = Mid(FormInfo, PosBeg) end function 'Compatibility with older versions Sub BuildUploadRequest(RequestBin,UploadDirectory,storeType,sizeLimit,nameConflict) pau_BuildUploadRequest RequestBin,UploadDirectory,storeType,sizeLimit,nameConflict End Sub Sub pau_BuildUploadRequest(RequestBin,UploadDirectory,storeType,sizeLimit,nameConflict) Dim Boundary, FormInfo, TypeArr, BoundaryArr, BoundaryPos, Pos, PosLen Dim PosFile, Name, PosBound, FileName, ContentType, Value, ValueBeg, ValueEnd, ValueLen 'Check content type TypeArr = Split(Request.ServerVariables("HTTP_Content_Type"), ";") if Trim(TypeArr(0)) <> "multipart/form-data" then riga 134 Response.Write "<b>Form was submitted with no ENCTYPE=""multipart/form-data""</b><br/>" Response.Write "Please correct and <a href=""java script:history.back(1)"">try again</a>" Response.End end if 'Get the boundary BoundaryArr = Split(Trim(TypeArr(1)), "=") Boundary = pau_getByteString(Trim(BoundaryArr(1))) BoundaryPos = InStrB(1, RequestBin, Boundary) 'Get all data inside the boundaries Do until (BoundaryPos = InStrB(RequestBin, Boundary & pau_getByteString("--"))) 'Members variable of objects are put in a dictionary object Dim UploadControl, CrLf CrLf = pau_getByteString(chr(13) & chr(10)) Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, CrLf & CrLf) PosLen = (InStrB(Pos, RequestBin, boundary)-2)-(pos+4) if Pos > 0 then FormInfo = pau_getString(MidB(RequestBin, BoundaryPos, Pos-BoundaryPos)) 'Get name Name = LCase(pau_Name(FormInfo)) 'Is it a file? if InStr(FormInfo, "filename=") > 0 then 'Get filename FileName = pau_FileName(FormInfo) FileName = pau_RemoveInvalidChars(Mid(FileName,InStrRev(FileName,"\")+1)) 'Add filename to dictionary object UploadControl.Add "FileName", FileName 'Get contenttype ContentType = pau_ContentType(FormInfo) 'Add content-type to dictionary object UploadControl.Add "ContentType", ContentType 'Get content Value = FileName ValueBeg = Pos+3 ValueLen = PosLen else Value = pau_getString(MidB(RequestBin, Pos+4, PosLen)) ValueBeg = 0 ValueLen = 0 end if 'Add content to dictionary object UploadControl.Add "Value", Value UploadControl.Add "ValueBeg", ValueBeg UploadControl.Add "ValueLen", ValueLen 'Add dictionary object to main dictionary if UploadRequest.Exists(Name) then UploadRequest(Name).Item("Value") = UploadRequest(Name).Item("Value") & "," & Value else UploadRequest.Add Name, UploadControl end if end if BoundaryPos = InStrB(BoundaryPos+LenB(Boundary), RequestBin, Boundary) Loop Dim GP_keys, GP_i, GP_curKey, GP_value, GP_valueBeg, GP_valueLen, GP_curPath, GP_FullPath Dim GP_CurFileName, GP_FullFileName, fso, GP_BegFolder, GP_RelFolder, GP_FileExist, Begin_Name_Num Dim orgUploadDirectory if InStr(UploadDirectory,"""") > 0 then on error resume next orgUploadDirectory = UploadDirectory UploadDirectory = eval(UploadDirectory) if err then Response.Write "<b>Upload folder is invalid</b><br/><br/>" Response.Write "Upload Folder: " & Trim(orgUploadDirectory) & "<br/>" Response.Write "Please correct and <a href=""java script:history.back(1)"">try again</a>" err.clear response.End end if on error goto 0 end if GP_keys = UploadRequest.Keys for GP_i = 0 to UploadRequest.Count - 1 GP_curKey = GP_keys(GP_i) 'Save all uploaded files if UploadRequest.Item(GP_curKey).Item("FileName") <> "" then GP_value = UploadRequest.Item(GP_curKey).Item("Value") GP_valueBeg = UploadRequest.Item(GP_curKey).Item("ValueBeg") GP_valueLen = UploadRequest.Item(GP_curKey).Item("ValueLen") 'Get the path if InStr(UploadDirectory,"\") > 0 then GP_curPath = UploadDirectory if Mid(GP_curPath,Len(GP_curPath),1) <> "\" then GP_curPath = GP_curPath & "\" end if GP_FullPath = GP_curPath else GP_curPath = Request.ServerVariables("PATH_INFO") GP_curPath = Trim(Mid(GP_curPath,1,InStrRev(GP_curPath,"/")) & UploadDirectory) if Mid(GP_curPath,Len(GP_curPath),1) <> "/" then GP_curPath = GP_curPath & "/" end if GP_FullPath = Trim(Server.mappath(GP_curPath)) end if if GP_valueLen = 0 then Response.Write "<b>An error has occured saving uploaded file!</b><br/><br/>" Response.Write "Filename: " & Trim(GP_curPath) & UploadRequest.Item(GP_curKey).Item("FileName") & "<br/>" Response.Write "File does not exists or is empty.<br/>" Response.Write "Please correct and <a href=""java script:history.back(1)"">try again</a>" response.End end if 'Create a Stream instance Dim GP_strm1, GP_strm2 Set GP_strm1 = Server.CreateObject("ADODB.Stream") Set GP_strm2 = Server.CreateObject("ADODB.Stream") 'Open the stream GP_strm1.Open GP_strm1.Type = 1 'Binary GP_strm2.Open GP_strm2.Type = 1 'Binary GP_strm1.Write RequestBin GP_strm1.Position = GP_ValueBeg GP_strm1.CopyTo GP_strm2,GP_ValueLen 'Create and Write to a File GP_CurFileName = UploadRequest.Item(GP_curKey).Item("FileName") GP_FullFileName = GP_FullPath & "\" & GP_CurFileName Set fso = CreateObject("Scripting.FileSystemObject") pau_AutoCreatePath GP_FullPath 'Check if the file already exist GP_FileExist = false If fso.FileExists(GP_FullFileName) Then GP_FileExist = true End If if nameConflict = "error" and GP_FileExist then Response.Write "<b>File already exists!</b><br/><br/>" Response.Write "Please correct and <a href=""java script:history.back(1)"">try again</a>" GP_strm1.Close GP_strm2.Close response.End end if if ((nameConflict = "over" or nameConflict = "uniq") and GP_FileExist) or (NOT GP_FileExist) then if nameConflict = "uniq" and GP_FileExist then Begin_Name_Num = 0 while GP_FileExist Begin_Name_Num = Begin_Name_Num + 1 GP_FullFileName = Trim(GP_FullPath)& "\" & fso.GetBaseName(GP_CurFileName) & "_" & Begin_Name_Num & "." & fso.GetExtensionName(GP_CurFileName) GP_FileExist = fso.FileExists(GP_FullFileName) wend UploadRequest.Item(GP_curKey).Item("FileName") = fso.GetBaseName(GP_CurFileName) & "_" & Begin_Name_Num & "." & fso.GetExtensionName(GP_CurFileName) UploadRequest.Item(GP_curKey).Item("Value") = UploadRequest.Item(GP_curKey).Item("FileName") end if on error resume next GP_strm2.SaveToFile GP_FullFileName,2 if err then err.clear Dim txt_stream, file_bin Set txt_stream = fso.CreateTextFile(GP_FullFileName, True) file_bin = pau_getString(MidB(RequestBin, GP_ValueBeg+1, GP_ValueLen)) txt_stream.Write file_bin txt_stream.Close if err then GP_strm1.Close GP_strm2.Close Response.Write "<b>An error has occured saving uploaded file!</b><br/><br/>" Response.Write "Filename: " & GP_FullFileName & "<br/><br/>" if fso.FileExists(GP_FullFileName) then Dim f Response.Write "File exists on server!<br/>" Set f = fso.GetFile(GP_FullFileName) Response.Write "Attributes(" & f.attributes & "|" & f.parentfolder.attributes & "): " if f.attributes and 1 then Response.Write "ReadOnly " end if if f.attributes and 2 then Response.Write "Hidden " end if if f.attributes and 4 then Response.Write "System " end if if f.attributes and 16 then Response.Write "Directory " end if Response.Write "<br/><br/>" end if Response.Write "Error # " & CStr(Err.Number) & " " & Err.Description & "<br/>" Response.Write "in " & Err.Source & "(" & GP_strm2.state & ")<br/>" response.End end if end if GP_strm1.Close GP_strm2.Close if storeType = "path" then UploadRequest.Item(GP_curKey).Item("Value") = GP_curPath & UploadRequest.Item(GP_curKey).Item("Value") end if on error goto 0 end if end if next End Sub 'Create folders if they do not exist Sub pau_AutoCreatePath(PAU_FullPath) Dim FL_fso, FL_EndPos, PAU_NewPath Set FL_fso = CreateObject("Scripting.FileSystemObject") if not FL_fso.FolderExists(PAU_FullPath) then FL_EndPos = InStrRev(PAU_FullPath,"\") if FL_EndPos > 0 then PAU_NewPath = Left(PAU_FullPath,FL_EndPos-1) pau_AutoCreatePath PAU_NewPath on error resume next FL_fso.CreateFolder PAU_FullPath if err.number <> 0 then Response.Write "<b>Can not create upload folder path: " & PAU_FullPath & "!</b><br/>" Response.Write "Maybe you don't have enough permissions<br/><br/>" Response.Write "Error # " & CStr(Err.Number) & " " & Err.Description & "<br/><br/>" Response.Write "Please correct and <a href=""java script:history.back(1)"">try again</a>" Response.End end if on error goto 0 end if end if Set FL_fso = nothing End Sub 'String to byte string conversion Function pau_getByteString(StringStr) Dim i, char For i = 1 to Len(StringStr) char = Mid(StringStr,i,1) pau_getByteString = pau_getByteString & chrB(AscB(char)) Next End Function 'Byte string to string conversion (with double-byte support now) Function pau_getString(StringBin) Dim intCount,get1Byte pau_getString = "" For intCount = 1 to LenB(StringBin) get1Byte = MidB(StringBin,intCount,1) pau_getString = pau_getString & chr(AscB(get1Byte)) Next End Function 'Replacement for the requests Function UploadFormRequest(name) Dim keyName keyName = LCase(name) if IsObject(UploadRequest) then if UploadRequest.Exists(keyName) then if UploadRequest.Item(keyName).Exists("Value") then UploadFormRequest = UploadRequest.Item(keyName).Item("Value") end if end if end if End Function 'Invalid characters 'Dollar sign ($) 'At sign (@) 'Angle brackets (< >), brackets ([ ]), braces ({ }), and parentheses (( )) 'Colon ( and semicolon ( 'Equal sign (=) 'Caret sign (^) 'Pipe (vertical bar) (|) 'Asterisk (*) 'Exclamation point (!) 'Forward (/) and backward slash (\) 'Percent sign (%) 'Question mark (?) 'Comma (,) 'Quotation mark (single or double) (' ") 'Tab Function pau_RemoveInvalidChars(str) Dim newStr, ci, curChar, Invalid Invalid = "$@<>[]{}():;=^|*!/\%?,'"" " for ci = 1 to Len(str) curChar = Mid(str,ci,1) if InStr(Invalid, curChar) = 0 then newStr = newStr & curChar end if next pau_RemoveInvalidChars = Trim(newStr) End Function 'Fix for the update record Function FixFieldsForUpload(GP_fieldsStr, GP_columnsStr) Dim GP_counter, GP_Fields, GP_Columns, GP_FieldName, GP_FieldValue, GP_CurFileName, GP_CurContentType GP_Fields = Split(GP_fieldsStr, "|") GP_Columns = Split(GP_columnsStr, "|") GP_fieldsStr = "" ' Get the form values For GP_counter = LBound(GP_Fields) To UBound(GP_Fields) Step 2 GP_FieldName = LCase(GP_Fields(GP_counter)) GP_FieldValue = GP_Fields(GP_counter+1) if UploadRequest.Exists(GP_FieldName) then GP_CurFileName = UploadRequest.Item(GP_FieldName).Item("FileName") GP_CurContentType = UploadRequest.Item(GP_FieldName).Item("ContentType") else GP_CurFileName = "" GP_CurContentType = "" end if if (GP_CurFileName = "" and GP_CurContentType = "") or (GP_CurFileName <> "" and GP_CurContentType <> "") then GP_fieldsStr = GP_fieldsStr & GP_FieldName & "|" & GP_FieldValue & "|" end if Next if GP_fieldsStr <> "" then GP_fieldsStr = Mid(GP_fieldsStr,1,Len(GP_fieldsStr)-1) else Response.Write "<b>An error has occured during record update!</b><br/><br/>" Response.Write "There are no fields to update ...<br/>" Response.Write "If the file upload field is the only field on your form, you should make it required.<br/>" Response.Write "Please correct and <a href=""java script:history.back(1)"">try again</a>" Response.End end if FixFieldsForUpload = GP_fieldsStr End Function 'Fix for the update record Function FixColumnsForUpload(GP_fieldsStr, GP_columnsStr) Dim GP_counter, GP_Fields, GP_Columns, GP_FieldName, GP_ColumnName, GP_ColumnValue,GP_CurFileName, GP_CurContentType GP_Fields = Split(GP_fieldsStr, "|") GP_Columns = Split(GP_columnsStr, "|") GP_columnsStr = "" ' Get the form values For GP_counter = LBound(GP_Fields) To UBound(GP_Fields) Step 2 GP_FieldName = LCase(GP_Fields(GP_counter)) GP_ColumnName = GP_Columns(GP_counter) GP_ColumnValue = GP_Columns(GP_counter+1) if UploadRequest.Exists(GP_FieldName) then GP_CurFileName = UploadRequest.Item(GP_FieldName).Item("FileName") GP_CurContentType = UploadRequest.Item(GP_FieldName).Item("ContentType") else GP_CurFileName = "" GP_CurContentType = "" end if if (GP_CurFileName = "" and GP_CurContentType = "") or (GP_CurFileName <> "" and GP_CurContentType <> "") then GP_columnsStr = GP_columnsStr & GP_ColumnName & "|" & GP_ColumnValue & "|" end if Next if GP_columnsStr <> "" then GP_columnsStr = Mid(GP_columnsStr,1,Len(GP_columnsStr)-1) end if FixColumnsForUpload = GP_columnsStr End Function </SCRIPT> Che cosa devo fare, cosa può servire da modificare nel codice. Funziona perfettamente con i file piccoli e quelli grandi niente. Premetto che io carico su aruba.it errore DNS il tempo l'ho aumentato mistero per me
  7. Grazie, sto ricaricando la pagina per incollareil tipo di errore Ma prima devo riuscire a capire se si può perchè è di fondamentale importanza fare in modo che l'upload vada in una specifica cartella di una sottocarla mi spiego meglio esempio oggi carico il file1.exe nella cartella /public/riv/bonifici/versione2007/ver 2.2.2 e questo deve essere non fisso voglio dire domani carico file2 .exe nella cartella /public/riv/bonifici/versione2007/ver 3.2.3 si potrà fare? una cosa non fissa inoltre la mia domanda è, durante l'inserimento riuscirà oltre a caricarlo nella sottocartella giusta a CREARLA anche? Grazie
  8. Ciao a tutti, ho necessità di caricare dei file all'interno di un database. l'estensione PURE ASP UPLOAD mi funziona ma fino ad una minima grandezza. Quando si tratta di file ad es. 15 - 20 entro i 30 megabyte, purtroppo non si caricano e così non riesco proprio a capire come poter applicare una variante al mio modulo d'inserimento. Grazie. Ciao.
  9. G r a z i e! Grande! Funziona e lo riconosce anche come .exe, grazie grazie sei un grande!
  10. Questa è la struttura del recordset dentro alla mia pagina <% Dim rs_bonifici Dim rs_bonifici_numRows Set rs_bonifici = Server.CreateObject("ADODB.Recordset") rs_bonifici.ActiveConnection = MM_Conn_Emera_STRING rs_bonifici.Source = "SELECT * FROM [GESTIONE BONIFICI BANC] ORDER BY ID DESC" rs_bonifici.CursorType = 0 rs_bonifici.CursorLocation = 2 rs_bonifici.LockType = 1 rs_bonifici.Open() rs_bonifici_numRows = 0 %> Questa è la tabella che contiene l'associazione al recordset <table width="764" border="1" cellpadding="2" cellspacing="1" bordercolor="#CCFFFF"> <tr bgcolor="#0066CC"> <td width="465" bgcolor="#003366"> <div align="center"><font color="#CCFFFF"><strong>Descrizione Prodotto</strong></font></div></td> <td width="184" height="40" bgcolor="#003366"> <div align="center"><font color="#CCFFFF"><strong>Versione</strong></font></div></td> <td width="85" valign="middle" bgcolor="#CC0000"> <div align="center"><font color="#CCCCCC"><font color="#FFFFFF"> <strong>Download</strong> </font></font></div></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT rs_bonifici.EOF)) %> <tr> <td width="465"> <div align="center"><strong><font color="#0066CC" size="3" face="Geneva, Arial, Helvetica, sans-serif"><%=(rs_bonifici.Fields.Item("DESCRIZIONE_PRODOTTO").Value)%></font></strong></div></td> <td width="184"><div align="center"><font color="#0066CC" size="3" face="Geneva, Arial, Helvetica, sans-serif"><strong><%=(rs_bonifici.Fields.Item("VERSIONE").Value)%></strong></font></div></td> <td valign="middle" bgcolor="#CCFFFF"> <div align="center"> <% var sql = "SELECT * FROM [GESTIONE BONIFICI BANC] WHERE ID=" + ID; var rs_bonifici = conn.Execute(sql); while (rs_bonifici.EOF) { %> <a href='<%=rs_bonifici.Fields("nome_file").Value'%>' type='application/octect-stream'><img src="icone_Emera/floppy_rosso.jpg" align="middle" width="40" height="40" border="0"></a><br> <% ris.MoveNext(); } conn.Close(); %> </div></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_bonifici.MoveNext() Wend %> </table> invece la tabella GESTIONE BONIFICI BANC ID DESCRIZIONE VERSIONE NOME_FILE grazie
  11. ciao mi sono accorta che la mia tabella si chiama GESTIONE BONIFICI BANC così ho corretto e non avevo capito di mettere il + ma non ci sono ancora mi da questo errore Microsoft VBScript compilation error '800a0401' Expected end of statement /download_bonifici.asp, line 226 var sql = "SELECT * FROM [GESTIONE BONIFICI BANC] WHERE ID=" + ID; -----------------------------------------------------------------^ così vedo di farti avere quello che mi dici ciao ho pensato anche di mettere la tabella tra le quadre ma come è possibile se ogni record è identificato dal campo ID perchè non capisce che l'ID è l'ID. ;-)
  12. grazie innanzittutto uso il linguaggio VBScript bonifici è un aggiornamento al programma una fix che c'è ogni tanto e volevo fare in modo di metterla on line in modo che gli utenti che usano il programma di contabilità se la scaricano da soli cliccando sull'icona floppy rosso. Così ho creato un database dove con password di protezione anche da un pannello di controllo si possa caricare in primis il file da rendere a disposizione per il download. Il pannello mi serve per fare in modo che si carichi il percorso al file che verrà successivamente caricato in sincronizzazione all'occorenza con Dreamweaver. Grazie, provo dopo le 22, prima ahimè non so se riesco. Ciao.
  13. Ciao mi da questo errore sull'ID Microsoft VBScript compilation error '800a0401' Expected end of statement /download_bonifici.asp, line 231 var sql = "SELECT * FROM rs_bonifici WHERE id="ID""; -----------------------------------------------^ non capisco il campo id del mio recordset re_bonifici è ID maiuscolo <% var sql = "SELECT * FROM rs_bonifici WHERE id="ID""; var rs_bonifici = conn.Execute(sql); while (!rs_bonifici.EOF) { %> <a href='<%=rs_bonifici.Fields("nome_file").Value'%>' type='application/octect-stream'><img src="icone/floppy_rosso.jpg" align="middle" width="40" height="40" border="0"></a><br> <% ris.MoveNext(); } conn.Close(); %> Ciao grazie.