<%@LANGUAGE = VBScript%>
<!--#include file="config.asp"-->
<%
Function CAPTCHA()
Dim caratteri, codice
caratteri = ""
caratteri = caratteri & "0123456789"
caratteri = caratteri & "abcdefghijklmnopqrstuvwxyz"
caratteri = caratteri & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize()
Do Until Len(codice) = 7
carattere = Int((Len(caratteri) * Rnd()))
codice = codice & Mid(caratteri, carattere, 1)
Loop
CAPTCHA = codice
End Function
Session("captcha") = CAPTCHA()
%>
<%
Dim id, add
id = Request.QueryString("id")
If IsNumeric(id) = False Or id < 1 Then
Response.Redirect "default.asp"
End If
add = Server.HTMLEncode(Request.QueryString("add"))
Call CnOpen()
%>
<html>
<head>
<title>Una Directory in ASP</title>
</head>
<body>
<h1>Una Directory in ASP</h1>
<h2>Segnala il tuo sito</h2>
<form method="post" action="segnala.asp?id=<%=id%>&add=OK">
Titolo<br>
<input type="text" name="titolo" maxlength="50"><br><br>
URL<br>
<input type="text" name="url" maxlength="100"><br><br>
Descrizione<br>
<input type="text" name="descrizione" maxlength="255"><br><br>
<b>Codice di sucirezza da copiare</b><br><br>
<%=Session("captcha")%>
<input type="text" name="captcha">
<input type="submit" value="Segnala">
</form>
<p>
<%
If add = "OK" Then
Dim titolo, url, descrizione, captcha
captcha = Request.Form("captcha")
titolo = Server.HTMLEncode(Request.Form("titolo"))
url = Server.HTMLEncode(Request.Form("url"))
descrizione = Server.HTMLEncode(Request.Form("descrizione"))
If titolo = "" Or url = "" Or descrizione = "" or Len(captcha) < 7 Or captcha <> Session("captcha") Then
Response.Write "Tutti i campi sono obbligatori!"
Else
rs.Open "directory", cn, 3, 3
rs.AddNew
rs("dir_sub") = id
rs("dir_titolo") = titolo
rs("dir_url") = url
rs("dir_descrizione") = descrizione
rs("dir_accettato") = False
rs.Update
Response.Write "Segnalazione effettuata con successo!"
End If
End If
%>
</p>
</body>
</html>
<%
Call CnClose()
%>