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

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 (sì, server non hosting).

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>

Post Correlati

1. Domini web: chi prima arriva prima alloggia
2. Domini .eu in arrivo
3. Libro Ruby Cookbook con elementi di Rails
4. Yahoo! Blog Search in arrivo
5. PHP vs Ruby