<%@ Language=VBScript %>
" > ">
<% Session.LCID = 1040 On Error Resume Next mypage=Request.Form("targetpagenumber") if mypage="" then _ mypage=1 myaction=Request.Form("action") if myaction="view" or myaction="deleteimage" then _ myaction="edit" if myaction="add" then _ myaction="added" ' open database connection Set rs = server.CreateObject ("ADODB.Recordset") set dbConnection = server.CreateObject ("ADODB.Connection") dbConnection.ConnectionString = strConnection dbConnection.Open Call ReportError sMode = "Edit" strSQL="select " & AddWrappers("ID") & ", " & AddWrappers("Username") & ", " & AddWrappers("Password") & ", " & AddWrappers("accesso") & ", " & AddWrappers("lista") & ", " & AddWrappers("pin") & ", " if InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField)))<1 then strSQL = "select " & AddWrappers(strKeyField) & ", " & Mid(strSQL, 8) '1 if strKeyField2<>"" and InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField2)))<1 then strSQL = "select " & AddWrappers(strKeyField2) & ", " & Mid(strSQL, 8) if strKeyField3<>"" and InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField3)))<1 then strSQL = "select " & AddWrappers(strKeyField3) & ", " & Mid(strSQL, 8) if Right(strSQL,2)= ", " then strSQL = Left(strSQL, Len(strSQL)-2) '1 strSQL = strSQL & " from " & strTableName strSQL=strSQL & " where " & AddWrappers(strKeyField) & "=" & gstrQuote & Replace(request.form("editid"),"'","''") & gstrQuote if strKeyField2<>"" then _ strSQL=strSQL & " and " & AddWrappers(strKeyField2) & "=" & gstrQuote2 & Replace(request.form("editid2"),"'","''") & gstrQuote2 if strKeyField3<>"" then _ strSQL=strSQL & " and " & AddWrappers(strKeyField3) & "=" & gstrQuote3 & Replace(request.form("editid3"),"'","''") & gstrQuote3 Response.Write "

Visualizza il record [" & strKeyField & ": " & request.form("editid") & "]

" response.write "
" LogInfo(strSQL) rs.open strSQL, dbConnection Call ReportError Response.write "   Torna all'elenco

" Response.Write "" %> " > "> name=NeedQuotes<%=BuildFieldName(strKeyField)%> value="<%=Request.Form("NeedQuotes" & BuildFieldName(strKeyField))%>"> <% if strKeyField2<>"" then %> name=NeedQuotes<%=BuildFieldName(strKeyField2)%> value="<%=Request.Form("NeedQuotes" & BuildFieldName(strKeyField2))%>"> <% end if %> <% if strKeyField3<>"" then %> name=NeedQuotes<%=BuildFieldName(strKeyField3)%> value="<%=Request.Form("NeedQuotes" & BuildFieldName(strKeyField3))%>"> <% end if %>
<% Response.Write "" %> <% Response.Write "" %> <% Response.Write "" %> <% Response.Write "" %> <% Response.Write "" %> <% Response.Write "" %>
" & Label(rs.Fields("ID").Name) & " <% if IsBinaryField(rs.Fields("ID")) or Format("ID")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "ID", "") else strData = GetData(rs.Fields("ID"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Username").Name) & " <% if IsBinaryField(rs.Fields("Username")) or Format("Username")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Username", "") else strData = GetData(rs.Fields("Username"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Password").Name) & " <% if IsBinaryField(rs.Fields("Password")) or Format("Password")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Password", "") else strData = GetData(rs.Fields("Password"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("accesso").Name) & " <% if IsBinaryField(rs.Fields("accesso")) or Format("accesso")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "accesso", "") else strData = GetData(rs.Fields("accesso"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("lista").Name) & " <% if IsBinaryField(rs.Fields("lista")) or Format("lista")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "lista", "") else strData = GetData(rs.Fields("lista"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("pin").Name) & " <% if IsBinaryField(rs.Fields("pin")) or Format("pin")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "pin", "") else strData = GetData(rs.Fields("pin"), "") Response.Write ProcessLargeText(strData) end if %>
   Torna all'elenco