05 febbraio 2004 alle 23:49:44

Case 2 :
CreateTopTable "Visubox", "MiniChat"%>
<!--#include file='../visubox/box.asp'-->
<%CreateBottomTable ""
End Select
End If
End Sub
%>

07 febbraio 2004 alle 18:56:41

<%
' ************************************************************************
' * ASP-Nuke: Free web portal in ASP *
' ************************************************************************
' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) *
' * http://www.asp-nuke.com *
' * *
' * This program is free software. You can redistribute it and/or modify *
' * it under the terms of the GNU General Public License as published by *
' * the Free Software Foundation; either version 2 of the License, or *
' * (at your option) any later version. *
' * *
' ************************************************************************
%>
<%
' Display a custom block
' IN : iBlockNumber (int) : superior to 0 (exemple 1, 2 ...)
' OUT : -
Sub DisplayCustomBlock(iBlockNumber)
' Exemple for one block
' Add also a translation for the title of the block, for pattern.asp pages (as LANG_BLOCK_1 ...)
If iBlockNumber > 0 Then
Select Case iBlockNumber
Case 1 :
Dim sPreviousPage, iPos, sMemo

if sPseudo="" then

CreateTopTable "login", "Log in"

If Request.Form("urlpage") <> "" Then
sPreviousPage = Request.Form("urlpage")
Else
sPreviousPage = Request.ServerVariables("HTTP_REFERER")
iPos = InstrRev(sPreviousPage, "/")
If iPos > 0 and iPos > 7 Then
sPreviousPage = Mid(sPreviousPage, iPos+1)
Else
sPreviousPage = "Default.asp"
End If
End If

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write "<form name=""Authentication"" method=""post"" action=""" & GLOBAL_SITE_PATH & "authent.asp"">" & vbCRLF
Response.Write "<input type=""hidden"" name=""Do"" value=""authent"">" & vbCRLF
Response.Write "<input type=""hidden"" name=""urlpage"" value=""" & sPreviousPage & """>" & vbCRLF
Response.Write " <tr class=""myTD"">" & vbCRLF
Response.Write " <td><font class=""small"">" & GetTranslation("LANG_LOGIN") & "</font></td>" & vbCRLF
Response.Write " <td align=""right"">" & vbCRLF
Response.Write " <input name=""pseudo"" maxlength=""20"" size=""9"" value=""" & vbCRLF
If Request.Form("pseudo") <> "" Then
Response.Write Server.HTMLEncode(Request.Form("pseudo"))
Else
Response.Write GetTranslation("LANG_LOGIN")
End If
sMemo = GetTranslation("LANG_MEMORIZE_SHORT")
if sMemo = "LANG_MEMORIZE_SHORT" then sMemo = "Memorizza i tuoi dati :"
Response.Write """ onFocus=""this.value='';"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""myTD"">" & vbCRLF
Response.Write " <td><font class=""small"">" & GetTranslation("LANG_PASSWORD") & "</font></td>" & vbCRLF
Response.Write " <td align=""right""><input name=""mdp"" type=""password"" maxlength=""20"" size=""8"" onFocus=""this.value='';"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</table>" & vbCRLF
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""myTD"">" & vbCRLF
Response.Write " <td><font class=""small"">" & sMemo & "</font></td>" & vbCRLF
Response.Write " <td align=""right""><input name=""memo"" type=""checkbox"" checked></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""myTD"">" & vbCRLF
Response.Write " <td colspan=""2"" align=""center""><input name=""bsubmit"" type=""submit"" value=""" & GetTranslation("LANG_VALIDATE") & """ class=""button""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write "</form>" & vbCRLF
Response.Write "</table>" & vbCRLF
CreateBottomTable ""
End if
Case 2 :
CreateTopTable "Visubox", "MiniChat"
%>
<!--#include file='../visubox/box.asp'-->
<%
CreateBottomTable ""
End Select
End If
End Sub
%>