COMO HAGO UN INSERT

VIRFEL
13 de Agosto del 2002
HE INTENTADO HACER UN INSERT A UNA TABLA DE SQL PERO NO LO HE LOGRADO, ALGUIEN PUEDE AYUDARME.
EL INSERT SOLO SE HARA SI SE CUMPLE UNA CONDICION.
EJEMPLO.


TENGO UN FORMULARIO CON LOS NOMBRES
USER Y PASSWORD. POR LO QUE.

X=request.form("user")
y=request.form("password)"
if x="nombre" and y="patito" then

Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.recordset")
Dim Temp
Conexion.Open ("DSN=noms;UID=vera;PWD=vera")
Tabla.Open "tabla1",Conexion
AQUI YA ABRI LA TABLA PERO COMO INSERTO EL DATO.

SE QUE ES CON UN INSERT Y YA LO HE INTENTADO PERO NO SE CUAL ES LA SINTAXIS EXACTA.

GRACIAS.



ME TARDE 3 DIAS EN PODERME CONECTAR A LA BASE DE DATOS SQL 200O SERVER. POR LO QUE SE QUE SE SUFRE ENSERIO ASI QUE AQUI ESTA EL CODIGO PARA CONECTARSE.
<%
Dim Conexion,Tabla


Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.recordset")
Dim Temp
Conexion.Open ("DSN=noms;UID=vera;PWD=vera")
Tabla.Open "tabla1",Conexion
Temp="Select * From tabla1 Where usuario='" & Request("Dato1") & "' And nombre='" & Request("Dato5") & "'"
Tabla.Close
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("usuario") = Request("Dato1")
Tabla("id_centro_servicio") = Request("Dato2")
Tabla("Tipo_usuario") = Request("Dato3")
Tabla("origen") = Request("Dato4")
Tabla("nombre") = Request("Dato5")
Tabla("password") = Request("Dato6")
Tabla("activo") = Request("Dato7")
Tabla.Update

%>

VIRFEL
13 de Agosto del 2002
ASI LO HICE PERO NO PUEDO INSERTAR EL SEGUNDO VALOR ME DICE QUE FALTA UN END O "" ' NO SE??? CUAL ES LA SINTAXIS DE LAS COMILLAS.

ssqltext = "INSERT INTO bitacora ( usuario, motivo )" & _
"VALUES ( '" & Request("user") & " Request("motivo")"' & "')"
conexion.execute ssqltext
conexion.Close

VIRFEL
13 de Agosto del 2002
ya pude y lo hice asi
insert into TABLA (cod_usuario, fecha) values ("&session("codigo_user")&", '"&now()&"')