URGE Ayuda Por favor
Publicado por Ale (8 intervenciones) el 04/11/2002 11:19:56
Tengo un gran problema, despues de haber conseguido utilizar el ASPUpload, he de guardar el nombre del archivo en una bd y no lo consigo, por favor a ver si alguien me puede ayudar, aqui esta el codigo que no me funciona:
<HTML>
<BODY>
<%
Set oConexion=server.createobject("ADODB.connection")
oConexion.open "driver={SQL Server};server=ALE;database=EQS;uid=;pwd="
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("D:\XVRT\qmasterweb.com\Html\eqs\biblioteca")
' Obtain file object
Set File = Upload.Files("pepe")
If Not File Is Nothing Then
sqlstr="INSERT INTO BIBLIOTECA(nombre,autor) VALUES('"&Upload.Form("nombre")&"','"&Upload.Form("autor")&"')"
set oRsGeneric=oConexion.execute(sqlstr)
' Build SQL INSERT statement
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
%>
</BODY>
</HTML>
<HTML>
<BODY>
<%
Set oConexion=server.createobject("ADODB.connection")
oConexion.open "driver={SQL Server};server=ALE;database=EQS;uid=;pwd="
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("D:\XVRT\qmasterweb.com\Html\eqs\biblioteca")
' Obtain file object
Set File = Upload.Files("pepe")
If Not File Is Nothing Then
sqlstr="INSERT INTO BIBLIOTECA(nombre,autor) VALUES('"&Upload.Form("nombre")&"','"&Upload.Form("autor")&"')"
set oRsGeneric=oConexion.execute(sqlstr)
' Build SQL INSERT statement
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
%>
</BODY>
</HTML>
Valora esta pregunta
0