Salve a tutti come faccio ad implementare il captcha di questo sito http://www.u229.no/stuff/Captcha/
in questo file sign del mio guestbook
ve lo includo

codice:
<%
'--------------------------------
'This is the main script which will
'show all the signed entry
'--------------------------------

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Path 
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from guest", Conn, 1,3

if not len(trim(LogoImage))>0 then logo="" else logo="[img]" & LogoImage & "[/img]"
if not len(trim(BackImage))>0 then back="" else back="background='" & BackImage & "'"	

Rs.Close
Conn.Close 
set Rs=nothing
set Conn=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>- .:: Benvenuti nel sito web  ::.</title>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
 ho levato tutto il superfluo...		

	<td>
			<p align="center">Lasciate un messaggio nel nostro guestbook</td>
		</tr>
		<tr>
			<td>
			</td>
		</tr>
		<tr>
			<td>
			<form method="POST" action="add.asp">
  <p align="center"></p>
  <div align="center">
    <center>
    <table border="0" width="428" bgcolor="#ECD0AA" style="border-style: ridge" cellspacing="1">
      <tr>
        <td width="17%" nowrap><font size="1">Nome</font></td>
        <td width="81%"><font size="1" face="Verdana,Arial,sans-serif">
		<input type="text" name="txtname" size="47"></font></td>
      </tr>
      <tr>
        <td width="17%" nowrap><font size="1">Email </font> </td>
        <td width="81%"><font size="1" face="Verdana,Arial,sans-serif">
		<input type="text" name="txtemail" size="47"></font></td>
      </tr>
      <tr>
        <td width="17%" nowrap><font size="1">URL</font></td>
        <td width="81%"><font face="Verdana" size="1">
		<input type="text" name="txturl" size="47" value="http://"></font></td>
      </tr>
      <tr>
        <td width="17%" nowrap valign="top"><font size="1">Commento</font></td>
        <td width="81%">
		<font size="1" face="Verdana,Arial,sans-serif">
		<textarea name="txtnote" cols="40" rows="6" wrap="VIRTUAL"></textarea></font></td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="Firma il guestbook" name="B1"><input type="reset" value="Cancella" name="B2"></p>
</form>
ora vi includo il file include

codice:
 <%
'This script holds the necessary information such as path of the database, images, etc.

'Path of the database
Path=server.mappath("/mdb-database/dbsec/guest.mdb")

'Images used by guest book
'Divider image
const DivImage="divider.jpg"
'Background image
const BackImage="back.jpg"
'Logo/Banner image
const LogoImage="logo.jpg"

'If you dont want to use the image, assign the variable with empty string
'e.g
'BackImage="" if u dont want to use the background image

'For View.asp
const RsPage=7 'records per page

%>
di seguito vi includo il file add
codice:
<%

'------------------------------
'This script just add new entry
'------------------------------
name=Request.Form ("txtname")
email=Request.Form ("txtemail")
url=Request.Form ("txturl")
note=Request.Form ("txtnote")

if len(name)<1 then 
	Response.Write "Inserite il nome"
	Response.End
end if

if len(note)<1 then 
	Response.Write "Inserite il Commento"
	Response.End
end if


if trim(url)="http://" then url=""

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Path 
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from guest", Conn, 1,3

rs.AddNew 
rs("name")=name
rs("email")=email
rs("url")=url
rs("note")=note
rs.Update

Rs.Close
Conn.Close 
set rs=nothing
set conn=nothing

Response.Redirect "view.asp"
%>
grazie a tutti! sono una frana in asp!!