<%Set Conexion = Server.CreateObject("ADODB.Connection")
Set Comando = Server.CreateObject("ADODB.Command")
Conexion.Open "elbosquedelashadas.com.bosque"
Comando.ActiveConnection = Conexion
Comando.CommandType = adCmdText
IF request.Form("ACC")="BORRAR" and Request.Form("k")<>"" THEN
IF Request.Form("c2")<>"carmen2" then
mensaje=mensaje & "Falta la clave o la clave está mal escrita "%>
<%=mensaje%>
<%ELSE
sql = "DELETE FROM TIPO_CASAS WHERE "
For Each item In Request.Form("k")
sql = sql & "CODIGO=" & item & " OR "
Next
sql = mid(sql,1,len(sql)-4)
Comando.CommandText = sql
on error resume next
Comando.Execute
if Err<>0 then%>
BORRE PRIMERO SUS CASAS
<%end if
END IF
END IF
IF mid(request.Form("ACC"),1,3)="MOD" THEN
mensaje=""
codigo=mid(request.Form("ACC"),4,Len(request.Form("ACC")))
IF Request.Form("c2")<>"carmen2" then
mensaje=mensaje & "Falta la clave o la clave está mal escrita "
END IF
IF Request.Form("n" & codigo)="" THEN
mensaje=mensaje & "Falta el nombre de tipo de casa "
END IF
IF mensaje<>"" THEN%>
<%=mensaje%>
<%ELSE
sql = "UPDATE TIPO_CASAS SET NOMBRE='" & Replace(Request.Form("n" & codigo),"'","´") & "', FOTO='" & Replace(Request.Form("im" & codigo),"'","´") & "' WHERE CODIGO = " & codigo
Comando.CommandText = sql
Comando.Execute
END IF
END IF
IF request.Form("ACC")="ALTA" THEN
mensaje=""
IF Request.Form("c1")<>"carmen2" THEN
mensaje=mensaje & "Falta la clave o la clave está mal escrita "
END IF
IF Request.Form("m")="" THEN
mensaje=mensaje & "Falta el nombre de tipo de casa "
END IF
IF mensaje<>"" THEN%>
<%=mensaje%>
<%ELSE
sql = "SELECT MAX(CODIGO) FROM TIPO_CASAS"
Comando.CommandText = sql
Set RecordSet = Comando.Execute()
if RecordSet(0)<>0 THEN
codigo=RecordSet(0)
else
codigo=1
end if
sql = "INSERT INTO TIPO_CASAS VALUES (" & codigo + 1 & ",'" & replace(Request.Form("m"),"'","´") & "','" & replace(Request.Form("im"),"'","´") & "')"
Comando.CommandText = sql
on error resume next
Comando.Execute
if Err<>0 then%>
YA EXISTE ESTE
DATO O LOS DATOS ESTAN MAL ESCRITOS
<%end if
END IF
END IF%>
<%sql = "SELECT * FROM TIPO_CASAS ORDER BY NOMBRE"
Comando.CommandText = sql
Set RecordSet = Comando.Execute()
IF NOT RecordSet.Eof THEN%>
<%ELSE%>
