hola vereis tengo un codigo de Vbscript en mi pagina ASP para conectarme a una base de datos, ver si el registro que me han metido y aexiste y si no existe darlo de alta. Si ya existe de momento lo tengo para que me muestre en otra pagina un texto con un Response.Write ...
ahora lo que quiero hacer es mostrar un msgbox pero no me deja, cada vez que me intento sacar algo parecido a esto
MSGBOX ("Mensaje")
me da este error:
Permiso denegado: 'msgbox'
¿me podeis ayudar por favor? ¿como saco aqui un msgbox?
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("bd.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From bd Where UCase(Nombre)='" & UCase(Request("Dato1")) &"'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("Ocupacion") = Request("Dato2")
Tabla("Ciudad") = Request("Dato3")
Tabla("Telefono") = Request("Dato4")
Tabla("Email") = Request("Dato5")
Tabla.Update
'cerramos y volvemos a la pagina
Tabla.Close
Conexion.Close
Response.Redirect "socios.asp?Dato=Nombre"
else
Tabla.Close
Conexion.Close
Response.Write "El nombre ya existe"
end if
%>
