<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/Connessione_cartoline.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_Connessione_cartoline_STRING
  MM_editTable = "cartoline"
  MM_editRedirectUrl = "crea_p3.asp"
  MM_fieldsStr  = "image|value|data|value|IP|value|colore_sfondo|value|colore_bordo|value|colore_testi|value|music|value|nome_mitt|value|mail_mitt|value|nome_dest|value|mail_dest|value|titolo|value|testo|value|password|value"
  MM_columnsStr = "image|',none,''|data|',none,''|IP|',none,''|colore_sfondo|',none,''|colore_bordo|',none,''|colore_testi|',none,''|music|',none,''|nome_mitt|',none,''|mail_mitt|',none,''|nome_dest|',none,''|mail_dest|',none,''|titolo|',none,''|testo|',none,''|password|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set rsconfigurazione = Server.CreateObject("ADODB.Recordset")
rsconfigurazione.ActiveConnection = MM_Connessione_cartoline_STRING
rsconfigurazione.Source = "SELECT * FROM configurazione"
rsconfigurazione.CursorType = 0
rsconfigurazione.CursorLocation = 2
rsconfigurazione.LockType = 3
rsconfigurazione.Open()
rsconfigurazione_numRows = 0
%>
<%
Dim rsimmagine__MMColParam
rsimmagine__MMColParam = "1"
if (Request.QueryString("categoria") <> "") then rsimmagine__MMColParam = Request.QueryString("categoria")
%>
<%
set rsimmagine = Server.CreateObject("ADODB.Recordset")
rsimmagine.ActiveConnection = MM_Connessione_cartoline_STRING
rsimmagine.Source = "SELECT * FROM images WHERE categoria = '" + Replace(rsimmagine__MMColParam, "'", "''") + "' ORDER BY image ASC"
rsimmagine.CursorType = 0
rsimmagine.CursorLocation = 2
rsimmagine.LockType = 3
rsimmagine.Open()
rsimmagine_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsimmagine_numRows = rsimmagine_numRows + Repeat1__numRows
%>
<html>
<head>
<title><%=(rsconfigurazione.Fields.Item("nome_pagina").Value)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="stile.css" type="text/css">
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' deve contenere un indirizzo di posta valido.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' deve contenere un numero.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' deve contenere un numero tra '+min+' e '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' deve essere compilato.\n'; }
  } if (errors) alert('ERRORE:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body bgcolor="<%=(rsconfigurazione.Fields.Item("colore_pagina").Value)%>" text="<%=(rsconfigurazione.Fields.Item("colore_carattere").Value)%>" leftmargin="0" vlink="<%=(rsconfigurazione.Fields.Item("colore_visitato").Value)%>" link="<%=(rsconfigurazione.Fields.Item("colore_link").Value)%>" alink="<%=(rsconfigurazione.Fields.Item("colore_attivo").Value)%>">
<table width="750" border="1" cellspacing="0" cellpadding="4" align="center" bordercolor="<%=(rsconfigurazione.Fields.Item("colore_bordo").Value)%>">
  <tr bgcolor="<%=(rsconfigurazione.Fields.Item("colore_cella_intestazione").Value)%>"> 
    <td height="20" colspan="2"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="4" align="center" bordercolor="<%=(rsconfigurazione.Fields.Item("colore_bordo").Value)%>" height="100">
        <tr> 
          <td height="20" width="50%"> 
            <div align="center"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>"><img src="../public/<%=(rsconfigurazione.Fields.Item("immagine_intestazione").Value)%>"></font></div>
          </td>
          <td height="20" width="50%"> 
            <div align="center"><font size="<%=(rsconfigurazione.Fields.Item("carattere_intestazione").Value)%>" face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>"><b><font color="<%=(rsconfigurazione.Fields.Item("colore_pagina").Value)%>"><%=(rsconfigurazione.Fields.Item("nome_sito").Value)%><br>
              <font size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>">Servizio 
              di invio cartoline gratuito</font></font></b></font></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="400" width="180" bgcolor="<%=(rsconfigurazione.Fields.Item("colore_cella_menu").Value)%>" align="center" valign="top"> 
      <div align="center"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>"> 
        <!--#include file="menu.asp" -->
        </font></div>
    </td>
    <td height="400" width="570" valign="top" bgcolor="<%=(rsconfigurazione.Fields.Item("colore_cella").Value)%>"> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td class="cella">&nbsp;</td>
        </tr>
        <tr> 
          <td> 
            <div align="center"><b><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>">INVIA 
              UNA CARTOLINA </font></b></div>
          </td>
        </tr>
        <tr> 
          <td><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>"><b>Passo 
            2</b>: crea la cartolina</font></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td> 
            <form name="form1" method="POST" action="<%=MM_editAction%>" onSubmit="MM_validateForm('nome_mitt','','R','mail_mitt','','RisEmail','nome_dest','','R','mail_dest','','RisEmail','titolo','','R','testo','','R','password','','R');return document.MM_returnValue">
              <table width="480" border="1" cellspacing="0" cellpadding="4" align="center" bordercolor="<%=(rsconfigurazione.Fields.Item("colore_bordo").Value)%>">
                <tr> 
                  <td> 
                    <p> 
                      <INPUT TYPE="button" VALUE="Cambia Categoria" onClick="history.back()" class="pulsante" style="font-family: Verdana; font-size: 10 px; color: #FFFFFF; font-weight: bold; border: 1px solid #00763A; background-color: #84C225">
                    </p>
                    <p><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>"><b><a href="index.asp"><img src="images/spessore.gif" width="10" height="2" border="0"></a></b></font><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>"><b><span style="text-transform: uppercase"><%=(rsimmagine.Fields.Item("categoria").Value)%></span> (clicca sull'immagine per l'anteprima)</b></font></p>
                    <div align="center"> 
                      <% 
While ((Repeat1__numRows <> 0) AND (NOT rsimmagine.EOF)) 
%>
                      <input type="radio" name="image" value="../public/<%=(rsimmagine.Fields.Item("image").Value)%>" checked>
                      <a href="#"><img src="../public/small_<%=(rsimmagine.Fields.Item("image").Value)%>" width="100" height="100" onClick="MM_openBrWindow('anteprima.asp?image=<%=(rsimmagine.Fields.Item("image").Value)%>','Anteprima','width=300,height=300')" border="0"></a> 
                      <img src="images/spessore.gif" width="31" height="120"> 
                      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsimmagine.MoveNext()
Wend
%>
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td> 
                    <p class="cella"><span style="text-transform: uppercase"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>"><b>COLORI</b></font></span></p>
                    <p> 
                      <input type="hidden" name="data" value="<%= date %>">
                      <input type="hidden" name="IP" size="32" value="<%
IP= Request.ServerVariables ("remote_addr")
Response.Write("" & IP)
%>">
                    </p>
                    <table width="500" border="0" cellspacing="5" cellpadding="0" align="center">
                      <tr> 
                        <td width="20%" height="20"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>"><b>SFONDO</b></font></td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#FFFFFF" checked>
                        </td>
                        <td width="10%"> 
                          <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000">
                            <tr> 
                              <td class="cella" bgcolor="#FFFFFF" height="18">&nbsp;</td>
                            </tr>
                          </table>
                        </td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#FFC1C1">
                        </td>
                        <td width="10%" bgcolor="#FFC1C1">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#AAFFAA">
                        </td>
                        <td width="10%" bgcolor="#AAFFAA">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#B3B3FF">
                        </td>
                        <td width="10%" bgcolor="#B3B3FF">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td width="20%" height="20">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#FFFFB9">
                        </td>
                        <td width="10%" bgcolor="#FFFFB9">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#C7FEEF">
                        </td>
                        <td width="10%" bgcolor="#C7FEEF">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#DFBBFF">
                        </td>
                        <td width="10%" bgcolor="#DFBBFF">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_sfondo" value="#D8D8D8">
                        </td>
                        <td width="10%" bgcolor="#D8D8D8">&nbsp;</td>
                      </tr>
                    </table>
                    <hr noshade>
                    <table width="500" border="0" cellspacing="5" cellpadding="0" align="center">
                      <tr> 
                        <td width="20%" height="20"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>"><b>BORDI</b></font></td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#D8D8D8">
                        </td>
                        <td width="10%" bgcolor="#D8D8D8">&nbsp; </td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#F90000">
                        </td>
                        <td width="10%" bgcolor="#F90000">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#008000">
                        </td>
                        <td width="10%" bgcolor="#008000">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#0000B9" checked>
                        </td>
                        <td width="10%" bgcolor="#0000B9">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td width="20%" height="20">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#899401">
                        </td>
                        <td width="10%" bgcolor="#899401">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#735C33">
                        </td>
                        <td width="10%" bgcolor="#735C33">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#5800A8">
                        </td>
                        <td width="10%" bgcolor="#5800A8">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_bordo" value="#000000">
                        </td>
                        <td width="10%" bgcolor="#000000">&nbsp;</td>
                      </tr>
                    </table>
                    <hr noshade>
                    <table width="500" border="0" cellspacing="5" cellpadding="0" align="center">
                      <tr> 
                        <td width="20%" height="20"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>"><b>TESTO</b></font></td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#D8D8D8">
                        </td>
                        <td width="10%" bgcolor="#D8D8D8">&nbsp; </td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#F90000">
                        </td>
                        <td width="10%" bgcolor="#F90000">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#008000">
                        </td>
                        <td width="10%" bgcolor="#008000">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#0000B9" checked>
                        </td>
                        <td width="10%" bgcolor="#0000B9">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td width="20%" height="20">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#899401">
                        </td>
                        <td width="10%" bgcolor="#899401">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#735C33">
                        </td>
                        <td width="10%" bgcolor="#735C33">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#5800A8">
                        </td>
                        <td width="10%" bgcolor="#5800A8">&nbsp;</td>
                        <td width="10%" align="right"> 
                          <input type="radio" name="colore_testi" value="#000000">
                        </td>
                        <td width="10%" bgcolor="#000000">&nbsp;</td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <tr> 
                  <td height="37"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>"><b>SOTTOFONDO 
                    MUSICALE (se desiderato)<br>
                    </b> 
                    <div align="center"> 
                      <table width="100%" border="0" cellspacing="0" cellpadding="4">
                        <tr valign="bottom"> 
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/canyon.mid">
                            <a href="midi/canyon.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Canyon</font></td>
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/passport.mid">
                            <a href="midi/passport.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Passport</font></td>
                        </tr>
                        <tr valign="bottom"> 
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/candleinthewind.mid">
                            <a href="midi/candleinthewind.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Candle 
                            in the wind</font></td>
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/comesaprei.mid">
                            <a href="midi/comesaprei.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Come 
                            saprei</font></td>
                        </tr>
                        <tr valign="bottom"> 
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/emanuelle.mid">
                            <a href="midi/emanuelle.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Emanuelle</font></td>
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/gimmelove.mid">
                            <a href="midi/gimmelove.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Gimme 
                            love</font></td>
                        </tr>
                        <tr valign="bottom"> 
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/gloria.mid">
                            <a href="midi/gloria.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Gloria</font></td>
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/meandyou.mid">
                            <a href="midi/meandyou.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Me 
                            and you</font></td>
                        </tr>
                        <tr valign="bottom"> 
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/newyorknewyork.mid">
                            <a href="midi/newyorknewyork.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">New 
                            York New York</font></td>
                          <td height="60" width="50%"> 
                            <input type="radio" name="music" value="midi/quattroamici.mid">
                            <a href="midi/quattroamici.mid"><img src="images/spkru.gif" width="32" height="29" border="0"></a> 
                            <font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Quattro 
                            amici</font></td>
                        </tr>
                      </table>
                    </div>
                    </font></td>
                </tr>
                <tr> 
                  <td> 
                    <p class="cella"><span style="text-transform: uppercase"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>"><b>DATI<br>
                      </b></font></span></p>
                    <table width="80%" border="0" cellspacing="0" cellpadding="2" align="center">
                      <tr valign="middle"> 
                        <td height="40" align="right" width="50%"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Nome 
                          Mittente </font></td>
                        <td height="40" align="left" width="50%"> 
                          <input type="text" name="nome_mitt" size="40" maxlength="40">
                        </td>
                      </tr>
                      <tr valign="middle"> 
                        <td height="40" align="right" width="50%"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">E-mail 
                          Mittente</font></td>
                        <td height="40" align="left" width="50%"> 
                          <input type="text" name="mail_mitt" size="40">
                        </td>
                      </tr>
                      <tr valign="middle"> 
                        <td height="40" align="right" width="50%"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Nome 
                          Destinatario</font></td>
                        <td height="40" align="left" width="50%"> 
                          <input type="text" name="nome_dest" size="40" maxlength="40">
                        </td>
                      </tr>
                      <tr valign="middle"> 
                        <td height="40" align="right" width="50%"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">E-mail 
                          Destinatario</font></td>
                        <td height="40" align="left" width="50%"> 
                          <input type="text" name="mail_dest" size="40">
                        </td>
                      </tr>
                      <tr valign="middle"> 
                        <td height="40" align="right" width="50%"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Titolo</font></td>
                        <td height="40" align="left" width="50%"> 
                          <input type="text" name="titolo" size="40" maxlength="20">
                        </td>
                      </tr>
                      <tr valign="middle"> 
                        <td height="40" align="right" width="50%"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">Testo</font></td>
                        <td height="40" align="left" width="50%"> 
                          <textarea name="testo" cols="30" rows="6"></textarea>
                          <input type="hidden" name="password" size="40" value="<%
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize ' inizializza il generatore di numeri casuale
Do Until len(password) = 6 ' qui imposti la lunghezza della password
carattere = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e Z.
password = password & Mid(caratteri,carattere,1)
Loop
Response.Write ("" & password & "")
%>">
                        </td>
                      </tr>
                    </table>
                    <p class="cella"><span style="text-transform: uppercase"><font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>" size="<%=(rsconfigurazione.Fields.Item("carattere_titolo").Value)%>"><b> 
                      </b></font></span></p>
                    <p> 
                  </td>
                </tr>
              </table>
              <p align="center" onClick="MM_validateForm('nome_mitt','','R','mail_mitt','','RisEmail','nome_dest','','R','mail_dest','','NisEmail','titolo','','R','testo','','R');return document.MM_returnValue"> 
                <input type="submit" name="Submit" value="Crea Cartolina" style="color: #FFFFFF; font-size: 10 pt; font-family: Verdana; font-weight: bold; border: 1px solid #00763A; background-color: #84C225">
              </p>
              <input type="hidden" name="MM_insert" value="true">
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="20" colspan="2" bgcolor="<%=(rsconfigurazione.Fields.Item("colore_cella").Value)%>"> 
      <div align="center"><font size="<%=(rsconfigurazione.Fields.Item("carattere_normale").Value)%>">&nbsp;<font face="<%=(rsconfigurazione.Fields.Item("tipo_carattere").Value)%>">Servizio offerto da
         <a href="http://www.valledeisanti.it" target="_blank">ValledeiSanti.it 
        </a></font></font></div>
    </td>
  </tr>
</table>
</body>
</html>
<%
rsconfigurazione.Close()
%>
<%
rsimmagine.Close()
%>