questa è la pagina elenco.asp :
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' technocurve arc 3 asp vb bv block1/3 start
Dim myColor1, myColor2, myColor
myColor1 = "#FFFFFF"
myColor2 = "#F1FAF7"
myColor = myColor1
' technocurve arc 3 asp vb bv block1/3 start
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="amministratore"
MM_authFailedURL="/login/accesso_negato.htm"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "%"
If (Request.QueryString("sviluppatore") <> "") Then
Recordset1__MMColParam = Request.QueryString("sviluppatore")
End If
%>
<%
Dim Recordset1__MMColParam1
Recordset1__MMColParam1 = "%"
If (Request.QueryString("commessa") <> "") Then
Recordset1__MMColParam1 = Request.QueryString("commessa")
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "%"
If (Request.QueryString("tipo_lavoro") <> "") Then
Recordset1__MMColParam2 = Request.QueryString("tipo_lavoro")
End If
%>
<%
Dim Recordset1__MMColParam3
Recordset1__MMColParam3 = "1/1/0000"
If (Request.QueryString("dat_apertura") <> "") Then
Recordset1__MMColParam3 = Request.QueryString("dat_apertura")
End If
%>
<%
Dim Recordset1__MMColParam4
Recordset1__MMColParam4 = "1/1/2058"
If (Request.QueryString("dat_apertura2") <> "") Then
Recordset1__MMColParam4 = Request.QueryString("dat_apertura2")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connessione_STRING
Recordset1.Source = "SELECT * FROM T_attivita_edp WHERE sviluppatore LIKE '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND commessa LIKE '" + Replace(Recordset1__MMColParam1, "'", "''") + "' AND tipo_lavoro LIKE '" + Replace(Recordset1__MMColParam2, "'", "''") + "' and dat_apertura >= #" + Replace(Recordset1__MMColParam3, "'", "''") + "# and dat_apertura <= #" + Replace(Recordset1__MMColParam4, "'", "''") + "# ORDER BY dat_apertura DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 25
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
chiedo scusa ma inizio a non capirci + nulla.
Vi prego aiutatemi voi.