Newsgroup: it.comp.www.asp
Titolo: ADOVBS e CDONTS

Ho fatto il guestbook per il mio sito in ASP rippando e modificando un po'
di codice esistente per capire come funziona. Perdonatemi ma sono abituato
ad imparare cosě ;p
Il problema č questo. Vorrei che ad ogni firma del gbook mi arrivasse un
email che mi dice chi l'ha scritto e a che ora prelevando questi dati dal
form.
Ci ho provato ma dev'esserci un errore. Se qualcuno puň aiutarmi vedrň di
inviargli il codice funzionante (del guestbook semplice) e quello non
funzionante (con il cdonts che non funziona...)
Grazie Ciao
Mauro
http://www.scimiapaza.com
ok dato che il msg č stato rifiutato, posto il codice... nn l'ho postato
solo per non incasinare il tutto.
-------------------------------
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
 Response.Buffer = True
    Dim gbnome
    Dim gbemail
    Dim gburl
    Dim gbicq
    Dim gbcommenti
    Dim OK
    'connection to the DB>>>>>>
    conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.Mappath("../database/gb.mdb") & ";"
    Set rs = Server.CreateObject("ADODB.Recordset")
    'connection to the DB<<<<<<
Sub insert_message()
  Set rs2 = Server.CreateObject("ADODB.Recordset")
        SQLStmt = "INSERT INTO guestbook (nome, email, url, icq, commenti,
data) VALUES('" & Request.form("gbnome")
  SQLStmt = SQLStmt & "', '" & Request.form("gbemail") & "', '" &
Request.form("gburl") & "', '"  & Request.form("gbicq")
  SQLStmt = SQLStmt & "', '" & Request.form("gbcommenti") & "', '"
  SQLStmt = SQLStmt & (day(now) & "/" & month(now) & "/" & year(now)) &"')"
  rs2.Open SQLstmt,Conn,1,2
  response.redirect("guestbook.asp")
End Sub
 if request("but")="Sputa" then
  insert_message
 end if
 SQLStmt = "SELECT * FROM guestbook ORDER BY id DESC"
 rs.Open SQLstmt,Conn,1,2
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../stile.css">
</head>
<body leftmargin=60 topmargin=10 bgcolor="#000000"
background="../immagini/sfondopagine.jpg">
<%
 'iPageSize= x    ( x = number messages per page )
 iPageSize = 20
 If Request.QueryString("page") = "" Then
   iPageCurrent = 1
  Else
   iPageCurrent = CInt(Request.QueryString("page"))
 End If
 rs.PageSize = iPageSize
 rs.CacheSize = iPageSize
 iPageCount = rs.PageCount
 maxpages = rs.PageCount
 If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
 If iPageCurrent < 1 Then iPageCurrent = 1
 rs.AbsolutePage = iPageCurrent
 to_show = to_show & "<table border=""0"" width=""100%"">"
 to_show = to_show & "<tr align=""left"" valign=""top"">"
 to_show = to_show & "<td width=""100%"">"
 to_show = to_show & "<table border=""0"" width=""100%""
bgcolor=""#990099"">"
 Do While iRecordsShown < iPageSize And Not rs.EOF
 to_show = to_show & "<tr bgcolor=""#6600CC"">"
 to_show = to_show & "<td width=""100%"" height=""44"">"
 to_show = to_show & "<center>"
 to_show = to_show & "<font color=""#E7F4D8"" size=2><strong>Postato il
</strong></font>"
 to_show = to_show & "<big><font color=""#00FF00"" size=2><em>" & rs("data")
& "&nbsp;&nbsp;&nbsp; "
 to_show = to_show & "</em></font></big> <font color=""#E7F4D8""
size=2><strong>spedito da&nbsp;</strong></font>"
 to_show = to_show & "<font color=""#00FF00"" size=2><em><a href=""mailto:"
& rs("email") & """><big>" & rs("nome") & "</big></a><br>"
 to_show = to_show & "</em></font>"
 to_show = to_show & "</center>"
 to_show = to_show & "<table border=""0"" width=""100%""
bgcolor=""#990099"">"
 to_show = to_show & "<p align=""left"">"
 to_show = to_show & "<tr align=""left"" valign=""top"">"
 to_show = to_show & "<td width=""100%"" height=""8""> "
 to_show = to_show & "<font color=""#000000""><strong><i>Il mio sito č sito
su: </i></strong><a href=""" & rs("url") & """>" & rs("url") &
"</a></font></td>"
 to_show = to_show & "</tr>"
 to_show = to_show & "<tr align=""left"" valign=""top""> "
 to_show = to_show & "<td width=""100%""> "
 to_show = to_show & "<font color=""#000000""><strong><i>Uso ICQ, ti prego
riempimi di messaggi al numero: </i></strong>" & rs("icq") & "</font></td>"
 to_show = to_show & "</tr>"
 to_show = to_show & "<tr align=""left"" valign=""top"">"
 to_show = to_show & "<td width=""100%"" height=""3""> "
 to_show = to_show & "<font color=""#000000""><strong><i>Superfluo dire che
questo sito č stupendo ma io ti dico lo stesso che: </i></strong>" &
rs("commenti") & "</font></td>"
 to_show = to_show & "</tr>"
 to_show = to_show & "</table>"
  iRecordsShown = iRecordsShown + 1
  rs.MoveNext
 Loop
    rs.close
    Set rs = Nothing
    If iPageCurrent < iPageCount Then
  options = "[<A HREF='"&Request.ServerVariables("PATH_INFO")&"?page="&
(iPageCurrent + 1) & "'>&nbsp;precedenti&nbsp;"&iPageSize&"
</A>]&nbsp;&nbsp;" & options
 End If
 If iPageCurrent <> 1 Then
     options = "[<A HREF='"&Request.ServerVariables("PATH_INFO")&"?page=" &
(iPageCurrent - 1) & "'>&nbsp;successivi&nbsp;"&iPageSize&"
</A>]&nbsp;&nbsp;" & options
    End If
 to_show = to_show & "</td>"
 to_show = to_show & "</tr>"
 to_show = to_show & "</table>"
 to_show = to_show & "</table>"
 Response.Write "<center>" & options & "&nbsp;&nbsp;<a
href=""#signgb""><br>Voglio firmare il guestbook</a></center>"
 Response.Write to_show
 Response.Write "<center>" & options & "</center>"
    gbnome=""
    gbemail="@"
    gburl="http://"
    gbicq=""
    gbcommenti=""
%>
<p>&nbsp;</p>
<a name="signgb">
<table width="580" border="0" cellspacing="0" cellpadding="0">
  <tr align="left" valign="top">
    <td height="700">
      <table cellpadding="0" cellspacing="0" border="0" height="250"
width="100%">
        <form name="gbsend" method="POST" action="guestbook.asp">
          <tr>
            <td width="50%" align="right" height="1">Non mi chiamo ma gli
altri
              mi chiamano:</td>
            <td width="50%" height="1">
              <input type="text" name="gbnome" size="30" value="<%=gbnome%>"
style="color: #FFFFFF; background-color: #0099FF; border: 4 ridge #0099FF">
            </td>
          </tr>
          <tr>
            <td width="50%" align="right" height="1">Abito virtualmente
all'email:</td>
            <td width="50%" height="1">
              <input type="text" name="gbemail" size="30"
value="<%=gbemail%>" style="color: #FFFFFF; background-color: #0099FF;
border: 4 ridge #0099FF">
            </td>
          </tr>
          <tr>
            <td width="50%" align="right" height="1">La mia casa č una
balena
              all'URL:</td>
            <td width="50%" height="1">
              <input type="text" name="gburl" size="30" value="<%=gburl%>"
style="color: #FFFFFF; background-color: #0099FF; border: 4 ridge #0099FF">
            </td>
          </tr>
          <tr>
            <td width="50%" align="right" height="1">ICQ non si mangia ed il
mio
              UIN č:</td>
            <td width="50%" height="1">
              <input type="text" name="gbicq" size="30" value="<%=gbicq%>"
style="color: #FFFFFF; background-color: #0099FF; border: 4 ridge #0099FF">
            </td>
          </tr>
          <tr>
            <td width="50%" valign="top" align="right" height="1">Commenti
Addizionali:</td>
            <td width="50%" valign="top" height="1">
              <textarea rows="5" name="gbcommenti" cols="25" style="color:
#FFFFFF; background-color: #0099FF; border: 4 ridge
#0099FF"><%=gbcommenti%></textarea>
            </td>
          </tr>
          <tr>
            <td colspan="2" height="1">
              <input type="submit" value="Sputa" name="but" style="color:
#00FF00; background-color: #0099FF; border: 6 ridge #0099FF">
              <input type="reset" value="Rimastica" name="Rimastica"
style="color: #FF0000; background-color: #6600CC; border: 6 ridge #6600CC">
            </td>
          </tr>
        </form>
      </table>
      </td>
  </tr>
</table>
<a href="
http://www.guestbook4free.com/en/75930/entries/
">Voglio vedere le
vecchie firme</a>
</body>
</html>

Senti io il codice per inviare le mail (CDONTS) non l'ho trovato all'interno
del tuo listato.
Caio e buon anno nuovo!
--
Lino Mari
Intermedia srl
http://www.intermedia2000.com