<%@LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Ingresar Comentario</TITLE>
</HEAD>
<BODY>
<%
'defino variables
dim oConn, rs,nv,co,sql
'recogo los valores del formulario.
nv = request.Form("NombredeVisitante")
co = request.Form("comentario")
'creo el objeto de conexion
set oConn= Server.CreateObject("ADODB.Connection")
oConn.open "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=C:\sites\content\p\a\b\pabje\database\Pablo Almada.mdb;"
'Abro el recordset(accedo a los datos de la BD)
Set rs= server.CreateObject("ADODB.RecordSet")
'abro la tabla
rs.open "Comentarios",oConn
'hago la consulta
sql="Insert Into Comentarios (pal_usu,pal_com) values ('"& nv &"','"& co &"')"
'Ejecuto la consulta
set rs = oConn.Execute(sql)
%>
<h1><div align="center">El comentario ha ingresado correctamente.</div></h1>
<%
'cierro la conexion.
oConn.close
%>
</BODY>
</HTML>