<%@ Language=VBScript %>
" > ">
<% Session.LCID = 2064 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("Cod") & ", " & AddWrappers("Nome") & ", " & AddWrappers("Descrizione") & ", " & AddWrappers("Prezzo") & ", " & AddWrappers("Foto") & ", " & AddWrappers("Marca") & ", " & AddWrappers("Classe") & ", " & AddWrappers("Dispo") & ", " & AddWrappers("prenotato") & ", " 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 "

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

" response.write "
" LogInfo(strSQL) rs.open strSQL, dbConnection Call ReportError Response.write "   Back to list

" 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 "" %> <% 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("Cod").Name) & " <% if IsBinaryField(rs.Fields("Cod")) or Format("Cod")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Cod", "") else strData = GetData(rs.Fields("Cod"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Nome").Name) & " <% if IsBinaryField(rs.Fields("Nome")) or Format("Nome")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Nome", "") else strData = GetData(rs.Fields("Nome"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Descrizione").Name) & " <% if IsBinaryField(rs.Fields("Descrizione")) or Format("Descrizione")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Descrizione", "") else strData = GetData(rs.Fields("Descrizione"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Prezzo").Name) & " <% if IsBinaryField(rs.Fields("Prezzo")) or Format("Prezzo")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Prezzo", "") else strData = GetData(rs.Fields("Prezzo"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Foto").Name) & " <% if IsBinaryField(rs.Fields("Foto")) or Format("Foto")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Foto", "") else strData = GetData(rs.Fields("Foto"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Marca").Name) & " <% if IsBinaryField(rs.Fields("Marca")) or Format("Marca")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Marca", "") else strData = GetData(rs.Fields("Marca"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Classe").Name) & " <% if IsBinaryField(rs.Fields("Classe")) or Format("Classe")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Classe", "") else strData = GetData(rs.Fields("Classe"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("Dispo").Name) & " <% if IsBinaryField(rs.Fields("Dispo")) or Format("Dispo")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Dispo", "") else strData = GetData(rs.Fields("Dispo"), "") Response.Write ProcessLargeText(strData) end if %>
" & Label(rs.Fields("prenotato").Name) & " <% if IsBinaryField(rs.Fields("prenotato")) or Format("prenotato")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "prenotato", "") else strData = GetData(rs.Fields("prenotato"), "") Response.Write ProcessLargeText(strData) end if %>
   Back to list