<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim ContatolistagemAssunto Dim ContatolistagemAssunto_numRows Set ContatolistagemAssunto = Server.CreateObject("ADODB.Recordset") ContatolistagemAssunto.ActiveConnection = MM_MundialEditora_STRING ContatolistagemAssunto.Source = "SELECT * FROM dbo.ContatoAssunto ORDER BY Assunto" ContatolistagemAssunto.CursorType = 0 ContatolistagemAssunto.CursorLocation = 2 ContatolistagemAssunto.LockType = 1 ContatolistagemAssunto.Open() ContatolistagemAssunto_numRows = 0 %> Mundial Editora
Contato
Nome:
E-mail:
Telefone:
Assunto:
Mensagem:
 
   
Página Anterior
<% ContatolistagemAssunto.Close() Set ContatolistagemAssunto = Nothing %>