Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/12/2002, 17:07
Acostag
 
Fecha de Ingreso: noviembre-2002
Ubicación: Monterrey N.L. Mexico
Mensajes: 141
Antigüedad: 22 años, 6 meses
Puntos: 0
Error en Insert

Alguien me puede decir donde esta el ERROR... Please!!!!

Tengo este IF, el cual saca de una Tabla un Valor Numerico (Guia)
y si es el Ultimo Registro.. el Suma 1 y despues lo Inserta en la
mism a Tabla... Va el Codigo..

<%
dim parcial
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Trans_Cantu.mdb")

sql = "SELECT Guias FROM Datos"
RS.Open sql, oConn, 1,3

If RS.EOF then

Else
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("guias")&"</B>"
parcial=rs("guias")+1
rs("guias")=parcial
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("guias")&"</B>"
sql="insert into datos (guias) values ("&request.form("Guias")&")"
oConn.Execute(sql)
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("guias")&"</B>"
End IF

rs.close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

podrian Ayudarme.. ???

Saludos
Luis.R.Acosta