<%@LANGUAGE="VBSCRIPT"%>
<%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
%>
<%
on error resume next
if (trim(request("provincia")) = "")then
iRecarga = "0"
cProvincia = 29
else
cProvincia = trim(request("provincia"))
iRecarga = "1"
end if
if (trim(cProvincia) = "29")then
cMunicipio = 72
else
cMunicipio = "0"
end if
set oRSProvincia = Server.CreateObject("ADODB.Recordset")
oRSProvincia.ActiveConnection = oConex
cSql = "SELECT * FROM provincia ORDER BY des_provi ASC"
oRSProvincia.Source = cSql
oRSProvincia.CursorType = 0
oRSProvincia.CursorLocation = 2
oRSProvincia.LockType = 3
oRSProvincia.Open()
if (Err <> 0) then
response.write "Error al cargar las provincias - 0001"
response.end
end if
set oRSMunicipio = Server.CreateObject("ADODB.Recordset")
oRSMunicipio.ActiveConnection = oConex
cSql = "SELECT * FROM municipio where cod_provi = " _
& cProvincia & " ORDER BY des_munic ASC"
oRSMunicipio.Source = cSql
oRSMunicipio.CursorType = 0
oRSMunicipio.CursorLocation = 2
oRSMunicipio.LockType = 3
oRSMunicipio.Open()
if (Err <> 0) then
response.write "Error al cargar las municipios - 0002"
response.end
end if
%>
.:: Ayuntamiento de Mollina ::.
Buzón de Sugerencias