Nome:
E-Mail:
País:
<% dim conexao dim SelPais Dim sql %> <% set conexao = server.createobject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\home\sacomunicacao1\Dados\BD_Paises.mdb" Set SelPais = server.createobject("ADODB.Recordset") sql="SELECT * FROM Pais" SelPais.open(sql), conexao %>
Selecione o País
<% while not SelPais.eof %>
"> <%= SelPais("País") %>
<% SelPais.movenext wend %>
Estado:
Selecione o Estado
Cidade:
Selecione a Cidade
Tel.:
somente números
Assunto:
Informação
Sugestão
Doação
Texto:
