Problema con codigo
Publicado por Ale (8 intervenciones) el 04/11/2002 17:53:56
Que es lo que esta mal, es aspupload y una insercion en una tabla:
<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