Para modificar las promociones y productos, creas páginas asp que permiten leer/modificar/borrar los datos de una base de datos, y para lo de que se bajen la lista de precios, bastará con ponerla en una página detrás de una acceso con clave. Puedes hacerlo también con una base de datos cliente-clave y un asp que la comprueba.
Echa un ojo a estos posteos:
http://www.forosdelweb.com/f15/registro-usuarios-con-access-271826/
Y aqui tienes un mini-manual asp:
Abrir bases de datos:
'Creamos las variables para guardar los datos
Dim conexion,tabla
'Creamos la conexion a la BD
Set conexion=Server.CreateObject("adodb.connection")
'Abrimos la conexión con el driver de access (No es necesario hacer DSN)
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-base.mdb")
'Le decimos que abra la tabla que queremos usar para la base
Set tabla=Server.CreateObject("adodb.recordset")
'hacer la selección de la tabla ordenándola por fecha descendente
ssql = "SELECT * FROM tabla ORDER BY fecha desc;"
'aquí abre la tabla ordenándola
Tabla.Open ssql,Conexion
Mostrar bases de datos:
<table border="0" width="280">
'Hasta que la tabla no acabe
do while not tabla.eof
'El response.write se usa para escribir código dentro del ASP
'(Todo lo que escribamos no puede llevar comillas)
'(El principio del response se define abriendo comillas y para cerrarlo cerrando las
'comillas)
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>De</u>: <b><a href=mailto:" & tabla ("mail") & ">" & tabla ("nombre") & "</a></b></font></td></tr>"
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>Mensaje</u>:<br><b>" & tabla ("comentario") & "</b></font></td></tr>"
'Nos vamos al registro siguiente de la tabla
tabla.movenext
'Hacemos el loop
loop
'Cerramos la tabla de HTML
response.write "</table>"
'Cerramos la tabla de la base de datos
tabla.close
'Cerramos la conexión a la BD
conexion.close
Meter registros en la BD:
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
Set tabla=Server.CreateObject("adodb.recordset")
'Hay que poner lo de ,3,3 para que podamos escribir en la BD
Tabla.Open "tabla",Conexion,3,3
'Le decimos a la BD que vamos a meter cosas
tabla.addnew
'Ahora sacamos del formulario lo que vamos a meter y le decimos en qué campos
'de la tabla vamos a hacerlo
tabla ("titulo") = request.form ("titulo")
tabla ("direccion") = request.form ("direccion")
tabla ("descripcion") = request.form ("descripcion")
tabla ("imagen") = request.form ("imagen")
tabla ("id") = request.form ("id")
tabla ("pass") = request.form ("pass")
'Hacemos que la base se actualice
tabla.update
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close
Borrar registros de la base de datos:
Dim conexion,tabla,ide
'Recogemos de un formulario el campo ID y lo guardamos en una variable
ide = Request.form("id")
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
'Hacemos el SQl para borrar los registros de la BD los cuales el ID sea igual al ID
'que hemos recogido del formulario
sSQL = "delete * from tabla where nombre like '" & ide & "';"
'Ejecutamos el SQL en la BD
conexion.execute (sSQL)
response.write "Se han borrado todos los mensajes <br><center><a href=# onclick=window.close()>Pulsa aqui para cerrar esta ventana</a></center>"
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close
Login:
Hacer un formulario en el que cada campo tenga un name, por ejemplo
<form action="registro.asp" method="post">
<input type="text" name="id">
<input type="text" name="pass">
<input type="submit">
</form>
Ya en el ASP:
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
Set tabla=Server.CreateObject("adodb.recordset")
'Hay que poner lo de ,3,3 para que podamos escribir en la BD
Tabla.Open "tabla",Conexion,3,3
'Le decimos a la BD que vamos a meter cosas
tabla.addnew
'Ahora sacamos del formulario lo que vamos a meter y le decimos en qué campos
'de la tabla vamos a hacerlo
tabla ("id") = request.form ("id")
tabla ("pass") = request.form ("pass")
'Hacemos que la base se actualice
tabla.update
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close
Hasta aquí es para que el usuario se registre
Ahora vamos a hacer que pueda identificarse:
<form action="identificate.asp" method="get">
<input type="text" name="id">
input type="text" name="pass">
<input type="submit">
</form>
Ya en el ASP:
'Hacemos que el ID lo coja de la barra de dirección del navegador
id= reqest.querystring
'Creamos las variables para guardar los datos
Dim conexion,tabla
'Creamos la conexión a la BD
Set conexion=Server.CreateObject("adodb.connection")
'Abrimos la conexión con el driver de acces (No es necesario hacer DSN)
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-base.mdb")
'Le decimos que abra la tabla que queremos usar para la base
Set tabla=Server.CreateObject("adodb.recordset")
'hacemos que compruebe que en la base de datos haya un usuario con la ID que pedimos
ssql = "SELECT * FROM tabla where id like '" & id & "';"
'aquí abre la tabla con la instrucción SQL
Tabla.Open ssql,Conexion
'Sacamos la contraseña del usuario de la base de datos y la guardamos en una variable
pass = tabla ("pass")
'Hacemos una estructura If Then Else
if reqest.form ("pass") = pass then
response.write "Ya puedes continuar navegando"
else
response.write "O no estás identificado o has escrito mal la contraseña<br>"
response.write "<a href=registrate.asp>Pulsa aquí si no estás registrado"
end if