dotNetHell.it - Forum - Codice Sorgente

Dim con As New System.Data.OleDb.OleDbConnection(Session("CONSTR"))
                            con.Open()
                            Dim com3 As New System.Data.OleDb.OleDbCommand()
                            com3.Connection = con
                            com3.CommandText = "select * from INSERIMENTI WHERE USER ='" + Session("USERNAME") + "'"
                            Dim dr3 As System.Data.OleDb.OleDbDataReader
                            dr3 = com3.ExecuteReader()
                            Response.Write("<html> <head> <div> <title> Risultati della ricerca: </title> </head> <body>")
                            Response.Write("<table border=1 bordercolor=white cellspacing=1 align=center>")
                            Response.Write("<tr> <th>DATA</th><th>TIPO CONTRATTO</th><th>TIPO CLIENTE</th><th>COGNOME</th><th>NOME</th><th>STATO</th></tr>")
                            While (dr3.Read())
                                Response.Write("<tr>")
                                Response.Write("<td>" & dr3("DATA_INSERIMENTO") & "</td>")
                                Response.Write("<td>" & dr3("TIPO") & "</td>")
                                Response.Write("<td>" & dr3("TIPO_CLT") & "</td>")
                                Response.Write("<td>" & dr3("COGNOME") & "</td>")
                                Response.Write("<td>" & dr3("NOME") & "</td>")
                                If dr3("stato") = 1 Then
                                    Response.Write("<td> <img src=images\yellow.gif> </td>")
                                End If
                                If dr3("stato") = 2 Then
                                    Response.Write("<td> <img src=images\orange.gif> </td>")
                                End If
                                If dr3("stato") = 3 Then
                                    Response.Write("<td> <img src=images\green.gif> </td>")
                                End If
                                If dr3("stato") = 4 Then
                                    Response.Write("<td> <img src=images\red.gif> </td>")
                                End If
                                Response.Write("</tr>")
                            End While
                            Response.Write("</table> </div>")
                            Response.Write("</body> </html>")
                            dr3.Close()
                            con.Close()
                        %>