<%
dim Email
Dim Nombre, Apellido, Comentarios, Edad, Profesion, Pais, News, barrio,seccion
dim OpenHTML
Dim Submited
Submited = Request.querystring("Submited")
If Submited = empty then Submited = False
If Submited then
Nombre = Request.Form("txtNombre") & ""
Apellido = Request.Form("txtApellido") & ""
Email = Request.Form("txtEmail") & ""
Pais = Request.Form("txtPais") & ""
Edad = Request.Form("txtEdad") & ""
Profesion = Request.Form("txtProfesion") & ""
COmentarios = Request.Form("txtComentarios") & ""
News = cdbl(request.Form("News"))
dim SINo
if News then
SiNo="Si"
else
SiNo="No"
end if
%>
<%
response.Redirect("gracias.asp")
end if
%>
Buenos Aires Safety