Cita:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "bd_mariluan"
if (fecha = "") then
fecha = date()
end if
'if rs.bof and rs.eof then
sSQL="Insert Into fichaobra (obra,itemm,fecha,guia,nomprov,cantidad,precio,tot al,uso) values ('" & obra & "','" & itemm & "','" & fecha & "'," & guia & ",'" & nomprov & "'," & cantidad & "," & precio & "," & total & ",'" & uso & "')"
set RS = Conn.Execute(sSQL)
%>
<%
'else
'response.write "El Registro ya Existe"
'end if
Conn.Open "bd_mariluan"
if (fecha = "") then
fecha = date()
end if
'if rs.bof and rs.eof then
sSQL="Insert Into fichaobra (obra,itemm,fecha,guia,nomprov,cantidad,precio,tot al,uso) values ('" & obra & "','" & itemm & "','" & fecha & "'," & guia & ",'" & nomprov & "'," & cantidad & "," & precio & "," & total & ",'" & uso & "')"
set RS = Conn.Execute(sSQL)
%>
<%
'else
'response.write "El Registro ya Existe"
'end if