Les cuento, tengo 2 archivos, uno
IngresaArticulo.asp y otro
FrmArcticulo.asp.
Lo que quiero realizar es poder subir una noticia a travez del sgte. formulario:
Código HTML:
<%
conecta= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("productos.mdb")
Set oconn = Server.CreateObject("ADODB.Connection")
oconn.Open conecta
Sql = "SELECT * from noticias"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
%>
<head>
<!--#include file="clsUpload.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title></title>
<link rel="stylesheet" type="text/css" href="style.css" media="screen" />
</head>
<body>
<div id="wrapper">
</div>
<div id="banner"><img src="images/9280noticias.jpg" width="667" height="118" alt="" /></div>
</div>
<div id="menu" class="container">
<ul>
<li class="active"><a href="indexinicio.asp">Noticias</a></li>
<li><a href="indexavisos.asp">Avisos</a></li>
</ul>
</div>
<div id="top-bar" class="container">
<div class="bar">
<div class="text">Bienvenido(a) <%= Request.Form("name")%>, te has conectado desde la dirección IP: <% Response.Write Request.ServerVariables("REMOTE_ADDR") %> </div>
<div id="search">
<form nmethod="get" action="">
<fieldset>
<input type="text" name="query" value="" class="input-text" />
<input type="submit" value="Search" class="input-submit" />
</fieldset>
</form>
</div>
</div>
</div>
<div id="page" class="container">
<div id="content">
<p> </p>
<form name="frmIngreso" action="IngresaArticulo.asp" method="POST" ENCTYPE="multipart/form-data">
<table width="300" border="1">
<tr>
<td colspan="2" bgcolor="#000000">
<div align="center"><span class="style2"><font color="#FF0000">INGRESE SU NOTICIA AQUÍ</font><strong><span class="style3"></span></strong></span> </div></td>
<tr>
<td>Encabezado</td>
<td><input name="encabezado" type="text" size="60" /></td>
</tr>
<tr>
<td>Resumen</td>
<td><textarea name="resumen" cols="40" rows="2"></textarea></td>
</tr>
<tr>
<td>Cuerpo</td>
<td><textarea name="cuerpo" cols="50" rows="4"></textarea></td>
</tr>
<tr>
<td>fecha</td>
<td><input name="fecha" type="text" size="10" maxlength="10" /></td>
</tr>
<tr>
<td>Archivo: </td><td><INPUT TYPE=FILE NAME="txtFile"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" value="Aceptar"/>
<input type="reset" value="Borrar"/>
</div></td>
</tr>
</table>
</form>
<div class="post"></div>
</div>
<div class="clearfix"> </div>
</div>
</div>
<div id="footer" class="container">
</div>
</body>
</html> , luego tengo el sgte. codigo para la insercion de la imagen:
Código HTML:
<%
conecta= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("productos.mdb")
Set oconn = Server.CreateObject("ADODB.Connection")
oconn.Open conecta
Sql = "SELECT * from noticias"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
%>
<head>
<!--#include file="clsUpload.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title></title>
<link rel="stylesheet" type="text/css" href="style.css" media="screen" />
</head>
<body>
<div id="wrapper">
<div id="header" class="container">
<div id="logo">
<h1><a href="#">Newz+cias<sup></sup></a></h1>
</div>
<div id="banner"><img src="images/9280noticias.jpg" width="667" height="118" alt="" /></div>
</div>
<div id="menu" class="container">
<ul>
<li class="active"><a href="indexinicio.asp">Noticias</a></li>
<li><a href="indexavisos.asp">Avisos</a></li>
</ul>
</div>
<div id="top-bar" class="container">
<div class="bar">
<div class="text">Bienvenido(a) <%= Request.Form("name")%>, te has conectado desde la direccin IP: <% Response.Write Request.ServerVariables("REMOTE_ADDR") %> </div>
<div id="search">
<form nmethod="get" action="">
<fieldset>
<input type="text" name="query" value="" class="input-text" />
<input type="submit" value="Search" class="input-submit" />
</fieldset>
</form>
</div>
</div>
</div>
<div id="page" class="container">
<div id="content">
<p> </p>
<%
set o = new clsUpload
if o.Exists("cmdSubmit") then
'get client file name without path
sFileSplit = split(o.FileNameOf("txtFile"), "\")
sFile = sFileSplit(Ubound(sFileSplit))
archivo = split(sFile,".")
extension = archivo(Ubound(archivo))
'response.Write "archivo=" & noticia & "<br>"
if extension<>"jpg" then
response.Write "no puede subir archivos que no sean jpg"
else
o.FileInputName = "txtFile"
o.FileFullPath = Server.MapPath(".") & "\archivo\" & sFile
o.save
end if
conecta= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("productos.mdb")
Set oconn = Server.CreateObject("ADODB.Connection")
oconn.Open conecta
Sql = "insert into noticias(" & _
"encabezado" & _
",resumen" & _
",cuerpo" & _
",fecha" & _
",fotografia" & _
") values(" & _
"'" & o.ValueOf("encabezado") & "'" & _
",'" & o.ValueOf("resumen") & "'" & _
",'" & o.ValueOf("cuerpo") & "'" & _
",'" & o.ValueOf("fecha") & "'" & _
",'" & sFile & "'" & _
")"
oconn.execute(sql)
'response.Write(sql)
Oconn.Close
set oconn = nothing
end if
%>
Registro Insertado <a href="indexinicio.asp">Regresar</a>
<div class="post"></div>
</div>
<div id="sidebar">
<ul>
<li>
<h2>Administrar</h2>
</li>
<li><a href="indexinicio.asp">Volver</a></li>
<li> </li>
<li>
<div id="footer" class="container">
</div>
</body>
</html>
<body>
</body>
</html> ¿Entonces cual es mi duda?
Se supone que al rellenar el formulario, y buscar el archivo de imagen y darle en el boton aceptar, deberia registrarse la noticia. Pues claro, me aparece en pantalla
"registro ingresado", pero para mi sorpresa cuando voy a ver mi index, no sea registrado mi nueva noticia y tampoco en mi base de datos acces.
Todo esto esta atraves del include clsUpload Help me!!