In principio era l'ASP... poi arrivò Ruby e nulla fu più come prima

by Simone Carletti — Leave a Comment

Dopo il sito di ASP Stats Generator, sto rimettendo mano a Weppos.com per convertire l’ultimo progetto ancora in ASP che mi obbliga a tenere in piedi un server Windows.

Non so a voi, ma dopo aver gustato PHP, Java e soprattutto Ruby devo dire che ASP non mi manca per nulla.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<!--#include file="../common.asp"-->
<!--#include file="../../functions/utils.feed.asp"-->
<!--#include file="../../functions/utils.asp-error.asp"-->
<%

Dim strPageName
Dim dtmErrorDate
Dim strErrorTitle
'Dim strErrorSummary
Dim strFunctionSyntax
Dim strErrorContent
Dim strErrorMessageEn
Dim strErrorMessageIt
Dim intErrorViews
Dim strLayout

' Ricava nome pagina e funzione
strPageName = getPageName()
strErrorTitle = convertPageToError(strPageName)
intErrorID = 0
ii = 1

' Richiama informazioni funzione
strSQL = "SELECT * " &_
"FROM tbl_asp_error " &_
"WHERE Showitem = 1 AND Error_title = '" & strErrorTitle & "' "
objRs.Open strSQL, objConn
if not objRs.EOF then
    intErrorID = Cint(objRs("Error_ID"))
    strErrorTitle = objRs("Error_title")
    dtmErrorDate = Cdate(objRs("Error_date"))
    strErrorSummary = objRs("Error_summary")
    strErrorContent = objRs("Error_content")
    strErrorMessageEn = objRs("Error_message_en")
    strErrorMessageIt = objRs("Error_message_it")
    intErrorViews = Clng(objRs("No_of_views"))
end if
objRs.Close

'
if intErrorID <> 0 then

    ' Aggiornamento letture
    strSQL = "UPDATE tbl_asp_error SET No_of_views = No_of_views + 1 WHERE Error_ID = " & intErrorID
    objConn.Execute(strSQL)

else

    Set objRs = Nothing
    objConn.Close
    Set objConn = Nothing
    Response.Redirect("default.asp")

end if

' Titolo
strLayout = vbCrLf & "<h2><img src=""/images/icons/folder.gif"" alt=""" & strErrorTitle & """ /> " & strErrorTitle & "</h2>"

' Informazioni
strLayout = strLayout & vbCrLf & "<small>Inserito il " & FormatDateTime(dtmErrorDate, vbShortDate) &_
" - letto " & intErrorViews & " volte</small>"

' Messaggi di errore
if Len(strErrorMessageEn) > 0 then
    strLayout = strLayout & vbCrLf & "<div id=""error-message-en"">" &_
    "<h3>Messaggio di errore in Inglese</h3>" &_
    "<code>" & strErrorMessageEn & "</code></div>"
end if
if Len(strErrorMessageIt) > 0 then
    strLayout = strLayout & vbCrLf & "<div id=""error-message-en"">" &_
    "<h3>Messaggio di errore in Italiano</h3>" &_
    "<code>" & strErrorMessageIt & "</code></div>"
end if

' Contenuto
strLayout = strLayout & vbCrLf &_
"<h3>Da cosa dipende e come risolvere il problema...</h3>" &_
"<p>" & strErrorContent & "</p>"

strPageTitle = strErrorTitle & " | " & arySectionsAsp(1, 5)
strPageTitle2 = strErrorTitle
strPageContent = strLayout
strNavinfoMenu = navyHome("/", true) & navySection("", true, arySections(1, 4), arySections(3, 4)) & navyLevel("default.asp", true, arySectionsAsp(1, 5))  

%>
<!--#include file="includes/template.inc.asp"-->

… ad oggi.

def show
  @error = Error.find(params[:id])
  @error.increment!(:nof_views)
end

<div id="asperror" class="item">

<!-- start content -->
<div class="item-content">
  ...
</div>
<!-- end content -->
<div class="item-footer">
  ...
  Views: <strong></strong>
  Date:  <strong></strong>
</div>

</div>

Related Posts