Ver Mensaje Individual
  #5 (permalink)  
Antiguo 29/06/2006, 03:51
NeoZ
 
Fecha de Ingreso: diciembre-2003
Mensajes: 141
Antigüedad: 21 años, 4 meses
Puntos: 0
Tal como comenta el compañero Myakire está perfecto. Incluso, más resumido.
Aún así, aprovechando tu código te comento una manera que utilizo a veces y es ir "montando" el string según que valores van tomando.

Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ LANGUAGE="VBSCRIPT" %>

<%
'Conectamos a la BD.
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./comentarios.mdb"))
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./comentarios.mdb")

'Con una sentencia SQL pedimos toda la BD.
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Comentario"
RS.Open sql, oConn

'Montamos el primer string de la sentencia INSERT
strSQL = "insert into comentario (Nombre, Correo, Tipo_Comentario, Comentario) values ("

%>

<html>
<head>
<title>Untitled</title>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
</head>

<body >
<form>
Nombre:
<%
nom = Request.Form("NombreUsuario")
If nom = "" then 
	Response.Redirect "formulario.htm"
Else
	Response.Write(nom)
	'Añadimos al string el valor
	strSQL = strSQL & "'" & nom & "', "
	RS.Requery
End If
%>
&nbsp;
<p>

Correo Electrónico:
<%
cor = Request.Form("correo")
If cor = "" then 
	Response.Redirect "formulario.htm"
Else
	Response.Write(cor)
	'Añadimos al string el valor
	strSQL = strSQL & "'" & cor & "', "
End If
%>

&nbsp;
<p>

Tipo de comentario:
<%
Tcomen = Request.Form("TipoMensaje")
If Tcomen = "" then
	'Añadimos al string al valor (OJO! verifica que el campo no es requerido, o acepte "null")
	strSQL = strSQL & "null, "
Else
	Response.Write(Tcomen)
	'Añadimos al string el valor
	strSQL = strSQL & "'" & Tcomen & "', "
End If
%>
&nbsp;</p>
<p>
Comentarios:
<%
comen = Request.Form("Comentarios")
If comen="" then 
	Response.Redirect"formulario.htm"
Else
	Response.Write(comen)
	'Añadimos al string el valor
	strSQL = strSQL & "'" & comen & "', "
End If

strSQL = strSQL & ")"

oConn.Execute(strSQL) 
oConn.Close 
set oConn = nothing
%>
</p>
</Form>
</body>
</html>
Pero fíjate como cambia la cantidad de código escrito entre el ejemplo anterior. No hay color (Gracias Myakire ;) )

Espero que te sirva de ayuda.
Saludos!