<%
sub form_status_entidade(name, class1, class2)
with Response
.Write ""
.Write " "
end with
end sub
sub form_combo(name, att,valor, compare)
arr = split(valor,"|")
with Response
.Write ""
end with
end sub
' mensagem (
dim msg
sub form_msg(str)
msg = msg & "
"&str&"
"
end sub
' ) mensagem
sub form_cidade(name,param,att)
set cn_form_cidade = server.createObject("adodb.connection")
cn_form_cidade.open "provider=microsoft.jet.oledb.4.0; data source = C:\Leonardo\Clientes\iPeso\Aplicativo\cidade.mdb"
set rs_form_cidade = cn_form_cidade.execute("select cidade, estado, sistema from cidade order by estado, cidade")
response.Write("")
cn_form_cidade.close
'rs_form_cidade.close
set cn_form_cidade = nothing
set rs_form_cidade = nothing
end sub
sub form_estado(name,param,att)
dim str_estado(26)
str_estado(0) = "AC,Acre"
str_estado(1) = "AL,Alagoas"
str_estado(2) = "AP,Amapá"
str_estado(3) = "AM,Amazonas"
str_estado(4) = "BA,Bahia"
str_estado(5) = "CE,Ceará"
str_estado(6) = "DF,Distrito Federal"
str_estado(7) = "ES,Espírito Santo"
str_estado(8) = "GO,Goiás"
str_estado(9) = "MA,Maranhão"
str_estado(10) = "MG,Mato Grosso"
str_estado(11) = "MS,Mato Grosso do Sul"
str_estado(12) = "MG,Minas Gerais"
str_estado(13) = "PA,Pará"
str_estado(14) = "PB,Paraíba"
str_estado(15) = "PR,Paraná"
str_estado(16) = "PE,Pernambuco"
str_estado(17) = "PI,Piauí"
str_estado(18) = "RJ,Rio de Janeiro"
str_estado(19) = "RN,Rio Grande do Norte"
str_estado(20) = "RS,Rio Grande do Sul"
str_estado(21) = "RO,Rondônia"
str_estado(22) = "RR,Roraima"
str_estado(23) = "SC,Santa Catarina"
str_estado(24) = "SP,São Paulo"
str_estado(25) = "SE,Sergipe"
str_estado(26) = "TO,Tocantins"
response.Write("")
end sub
sub form_list(str_sql, param, name, att, lines, conn)
'Response.Write(str_sql) : response.End()
set rs_local = conn.execute(str_sql)
if not rs_local.eof then
response.Write("")
else
response.Write("")
end if
rs_local.close
set rs_local = nothing
end sub
sub form_select(str_sql, param, name, att, conn)
'Response.Write(str_sql) : response.End()
set rs_local = conn.execute(str_sql)
if not rs_local.eof then
response.Write("")
else
response.Write("")
end if
rs_local.close
set rs_local = nothing
end sub
sub form_print(n)
if n = 1 then
for each item in request.Form()
response.Write(item&" ")
next
elseif i = 2 then
for each item in request.Form()
response.Write(item&" = " & request.Form() & " ")
next
end if
end sub
sub form_alert(msg)
Response.Write("")
end sub
sub form_redir(url)
Response.Write("")
end sub
sub form_back()
Response.Write("")
end sub
sub form_script(str)
Response.Write("")
end sub
%>