Tengo un fomulario este ingresa :
La categoria
El titulo
EL copete
La noticia
La url de la imagen
Este va a una pagina asp que agrega la noticia a la base de datos
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("noticias.mdb"))
sqltext = "SELECT * FROM noticias"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia, imagen, imagen2
Categoria=Request.Form("Categoria")
titulo = Request.Form("titulo")
copete = Request.Form("copete")
noticia = Request.Form("noticia")
imagen = Request.Form("imagen")
imagen2 = Request.Form("imagen2")
if copete = "" or categoria ="" or titulo ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("Categoria")= Categoria
rst("titulo") = titulo
rst("copete") = copete
rst("noticia") = noticia
rst("imagen") = imagen
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "La noticia se ha ingresado con exito"
%>
<html>
<head>
<title>Página nueva </title>
</head>
<body>
</body>
</html>
despues creo una lista previa que me muestra la imagen con el titulo y la introduccion a la noticia .
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("Noticias.mdb")
'Conectamos a la conexion a la base de datos.
sql ="SELECT TOP 5 * FROM Noticias WHERE Categoria=1 ORDER BY id DESC"
'Abrimos la tabla pidiendo todos sus registros.
RS.Open sql, oConn %>
<table width="560" border="1,00" align="center" bordercolor="#CCCC99" bgcolor="#FFFFFF">
<%Do While not RS.EOF %>
<tr>
<td width="88" height="23" valign="middle"> <div align="left">
<%Response.Write "<IMG SRC="""&RS("imagen")&""">" %>
</div></td>
<td width="443"><div align="justify">
<p> <font color="#000000" size="2" face="Arial, Helvetica, sans-serif">
<strong>
<%Response.Write "<a href='noticia.asp?id="& RS.Fields("id") &"'>"&RS.Fields("titulo")&"</a></b><br><font color=""#696969"">"& RS.Fields("copete") &" "
Response.Write "<P>"
%>
</strong> </font> </p>
</div></td>
</tr>
<%RS.MoveNext
Loop
'Cerramos y eliminamos todo.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
</table>
El tema es el siguiente si ven en este ultimo codigo que es el que me hace la lista que despues me va a llevar a la pagina de cada noticia la sequencia sql =
sql ="SELECT TOP 5 * FROM Noticias WHERE Categoria=1 ORDER
me lee la categoria 1 y asi me crea toda la lista con la categoria 1
Como hago para hacer que desde una sola hoja asp pueda introducir datos a las distintas categorias sin tener que armar una hoja de codigo asp por cada categoria .
Yo supongo que donde le puse categoria=1 deberia ser una variable , pero como armo esta variable desde donde y como la arrastro ?
Estoy un poco perdido en este tema alguien me puede dar una mano
