19/07/2002, 16:10
|
 | | | Fecha de Ingreso: abril-2001
Mensajes: 203
Antigüedad: 24 años Puntos: 0 | |
| Re: Importar ficheros txt
Sql1 = "Insert into base("
Sql1 = Sql1 & "campo1,pieza,campo2,marca,motivo) values("
Sql1 = Sql1 & " '" & campo1& "',"
Sql1 = Sql1 & " '" & pieza1& "',"
Sql1 = Sql1 & " '" & campo2& "',"
Sql1 = Sql1 & " '" & marca& "',"
Sql1 = Sql1 & " '" & motivo& "')"
'Sql1 = Sql1 & " '" & campo3 & "')"
on error resume next
Conn.Execute Sql1 , registros
Sql = "Insert into envioca("
Sql = Sql & "pieza,ayn,calle,localidad,cod_post) values("
Sql = Sql & " '" & pieza& "',"
Sql = Sql & " '" & nombre& "',"
Sql = Sql & " '" & domi& "',"
Sql = Sql & " '" & loca& "',"
Sql = Sql & " '" & cod & "')"
On error resume next
Conn.Execute Sql , registros
elerror = CStr(Err.Number)
if elerror = "-2147467259" then
canterror=canterror+1
end if
cantregistros=cantregistros+1
'else
'end if
'end if
cantnoimportados=cantnoimportados+1
Loop
archivo.Close'cierro el archivo
cantarchivos=cantarchivos+1
Set amover = fso.GetFile (Server.MapPath("\XXXXXX"&chr(47)&am p; nombrearchivo))
amover.Move (Server.MapPath("\XXXXXX\importados"& ;chr(47)& nombrearchivo&day(date())&month(date())&am p;year(date())))
end if
'next
set archivo = nothing
set CarpetaOrigen = nothing
set archivos = nothing
set amover = nothing
set fso = nothing
%>
<html>
<!-- creation date: 20/03/2001 -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>IMPORTAR</title>
<meta name="Description" content="">
<meta name="Keywords" content="">
<meta name="Author" content="juansan">
</head>
<body>
<%
if cantarchivos=0 then
Response.Write ("No hay Archivos a Importar"&"<br>")
Response.Write date()&" "& time()
else
Response.Write ("Registros importados = "&cantregistros-canterror&"<br>")
end if
Response.Write "<br><br><input type='button' onclick='document.location=" & chr(34) & "admmenu.asp" & chr(34) & "' value='<< Regresar al inicio' >"
%>
</body>
</html>
Saludos |