Tengo un problema al intentar actualizar mi BD... cual es el problema??
Si sois tan amables rogaria le echarais un vistazo a ver q tal.. gracias!!!
Código:
El error q me dá es el siguiente: <%
dim oConn,SQL,rs
dim sTarget,sProv,Id
dim sLogin, sPassword, sNombre, sDireccion1, sDireccion2
dim sCP, sLocalidad, sTelefono1, sTelefono2, sEmail, sLogotipo
dim sFoto, sAnimacion
dim objUpload,objFoto
on error resume next
if Session("user")="" then
Response.Write("<h4>Usted no está autorizado para acceder a esta página.")
Response.End
end if
sTarget=Request.QueryString("target")
sProv=Request.QueryString("prov")
Response.Write("<center>")
Response.Write("<h1><font face=""arial"" color=""#205080"">w w w . a l q u i l a l o t o d o . c o m</font></h1>")
Response.Write("<br><font face=""verdana"" color=""#2060F0"">panel de control</font><br><br><br>")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DSN=granada2000.net.inmo"
'lee el antiguo registro para obtener los archivos
if sTarget<>"new" then
SQL="SELECT FOTO, ANIMACION, LOGOTIPO FROM "&sProv&" WHERE Id="&sTarget&";"
rs.Open SQL,oConn
sFoto=rs.Fields("FOTO")
sAnimacion=rs.Fields("ANIMACION")
sLogotipo=rs.Fields("LOGOTIPO")
rs.Close
end if
set objUpload = Server.CreateObject("Persits.Upload.1")
objUpload.OverwriteFiles = False
count=objUpload.SavetoMemory
for each file in objUpload.Files
select case file.Name
case "logotipo"
set objLogotipo=objUpload.files("logotipo")
sTemp=objLogotipo.ExtractFileName
sTemp=validaExt(sTemp)
if len(sTemp) then
objLogotipo.Saveas("D:\xvrt\granada2000.net\Html\alquilalotodo\images\logotipos\"&sTemp)
sLogotipo=objLogotipo.ExtractFileName
else
sLogotipo=""
end if
case "foto"
set objFoto=objUpload.files("foto")
sTemp=objFoto.ExtractFileName
sTemp=validaExt(sTemp)
if len(sTemp) then
objFoto.Saveas("D:\xvrt\granada2000.net\Html\alquilalotodo\images\fachadas\"&sTemp)
sFoto=objFoto.ExtractFileName
else
sFoto=""
end if
case "animacion"
set objAnimacion=objUpload.files("animacion")
sTemp=objAnimacion.ExtractFileName
sTemp=validaExt(sTemp)
if len(sTemp) then
objAnimacion.Saveas("D:\xvrt\granada2000.net\Html\alquilalotodo\images\animaciones\"&sTemp )
sAnimacion=objAnimacion.ExtractFileName
else
sAnimacion=""
end if
end select
next
sLogin=trim(objUpload.Form("login"))
sPassword=trim(objUpload.Form("password"))
sNombre=trim(objUpload.Form("nombre"))
sDireccion1=trim(objUpload.Form("direccion1"))
sDireccion2=trim(objUpload.Form("direccion2"))
sCP=trim(objUpload.Form("cp"))
sLocalidad=trim(objUpload.Form("localidad"))
sTelefono1=trim(objUpload.Form("telefono1"))
sTelefono2=trim(objUpload.Form("telefono2"))
sEmail=trim(objUpload.Form("email"))
'Validamos los campos
if (len(sLogin)=0) or (len(sPassword)=0) or (len(sTelefono1)=0) or (len(sNombre)=0) then
Response.Write("<h4><font color=""#E03010"">ERROR: Los campos <b>Login, Password, Nombre y Teléfono</b> son obligatorios.</font></h4>")
Response.Write("<br><br><a href=""admeditainmo.asp?target=" & sTarget & "&prov=" & sProv & """><font face=""verdana"" size=""5"" color=""#4040F0"">volver</a>")
Response.End
end if
if sTarget<>"new" then
'comprueba que el login no est ocupado
SQL="SELECT Id,LOGIN FROM " & sProv & " WHERE LOGIN='" & sLogin & "';"
rs.Open SQL,oConn
if not rs.EOF then
if sTarget<>cstr(rs.Fields("Id")) then
Response.Write("<h4><font color=""#E03010"">ERROR: El login " & sLogin & " está ocupado.</font></h4>")
Response.Write("<br><br><a href=""admeditainmo.asp?target=" & sTarget & "&prov=" & sProv & """><font face=""verdana"" size=""5"" color=""#4040F0"">volver</a>")
Response.End
end if
end if
rs.Close
SQL="UPDATE " & sProv & " SET LOGIN='"&sLogin&"', PASSWORD='"&sPassword&"', "
SQL=SQL&"NOMBRE='"&sNombre&"', DIRECCION1='"&sDireccion1&"', "
SQL=SQL&"DIRECCION2='"&sDireccion2&"', CP='"&sCP&"', "
SQL=SQL&"LOCALIDAD='"&sLocalidad&"', TELEFONO1='"&sTelefono1&"', "
SQL=SQL&"TELEFONO2='"&sTelefono2&"', EMAIL='"&sEmail&"', "
SQL=SQL&"LOGOTIPO='"&sLogotipo&"', FOTO='"&sFoto&"', "
SQL=SQL&"ANIMACION='"&sAnimacion&"' WHERE Id="&trim(cstr(sTarget))&";"
oConn.Execute(SQL)
else
'comprueba que el login no est ocupado
SQL="SELECT Id,LOGIN FROM " & sProv & " WHERE LOGIN='" & sLogin & "';"
rs.Open SQL,oConn
if not rs.EOF then
Response.Write("<h4><font color=""#E03010"">ERROR: El login " & sLogin & " está ocupado.</font></h4>")
Response.Write("<br><br><a href=""admeditainmo.asp?target=" & sTarget & "&prov=" & sProv & """><font face=""verdana"" size=""5"" color=""#4040F0"">volver</a>")
Response.End
end if
'Inserta nueva inmobiliaria
SQL="INSERT INTO " & sProv & " (LOGIN, PASSWORD, NOMBRE, DIRECCION1, DIRECCION2, "
SQL=SQL & "CP, LOCALIDAD, TELEFONO1, TELEFONO2, EMAIL"
if len(sLogotipo) then SQL=SQL & ", LOGOTIPO"
if len(sFoto) then SQL=SQL & ", FOTO"
if len(sAnimacion) then SQL=SQL & ", ANIMACION"
SQL=SQL & ") VALUES ('" & sLogin & "', '"
SQL=SQL & sPassword & "', '"
SQL=SQL & sNombre & "', '"
SQL=SQL & sDireccion1 & "', '"
SQL=SQL & sDireccion2 & "', '"
SQL=SQL & sCP & "', '"
SQL=SQL & sLocalidad & "', '"
SQL=SQL & sTelefono1 & "', '"
SQL=SQL & sTelefono2 & "', '"
SQL=SQL & sEmail & "'"
if len(sLogotipo) then SQL=SQL & ", '"&sLogotipo&"'"
if len(sFoto) then SQL=SQL & ", '"&sFoto&"'"
if len(sAnimacion) then SQL=SQL & ", '"&sAnimacion & "'"
SQL=SQL & ");"
'Response.Write("SQL="&SQL&"<br>")
oConn.Execute(SQL)
end if
'cierra todo
rs.Close
oConn.Close
Response.Write("<br><font face=""verdana"" size=""+1"" color=""#205080"">")
Response.Write("La inmobiliaria ha sido actualizada.<br><br><br></font>")
Response.Write("<br><br><form method=""POST"" action=""adminmoblist.asp""><input type=""hidden"" name=""provincia"" value=""" & sProv & """><input type=""submit"" value="" Volver ""></form>")
Response.Write("<br><br><hr><i>")
Response.Write("<font size=2 color=""#802020""></center>(c) Jamsoft, 2001. ")
Response.Write("Todos los derechos reservados</font></i>")
function validaExt (filename)
dim ext,matriz,i,temp,found
temp=filename
matriz=split("gif,jpg,jpeg,png,bmp",chr(44))
filename=lcase(filename)
ext=right(filename,len(filename)-InStrRev(filename,"."))
for i=0 to ubound(matriz)
if ext=matriz(i) then
found=1
exit for
end if
next
if found then
validaExt=temp
else
validaExt=""
end function
%>
Error de compilación de Microsoft VBScript error '800a03f4'
Se esperaba 'If'
/alquilalotodo/admupinmo.asp, line 180
end function
