<% 'Incio do codigo ASP---------------------------------------------------------------- Response.Expires = 0 '------------- Declaracao de Variaveis ---------------------- Dim Conn, RS, SQL '------------- Fim Declaracao de Variaveis ---------------------- 'Efetuando a conexão com a base de dados criada ----------------------- 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ '& "Data Source=c:\sites\Single50\washingtoninst\database\practitioners.mdb;" _ '& "Jet OLEDB:Database Password=healthcenter;" 'Fim Efetuando a conexão com a base de dados criada ----------------------- 'Criacao dos objetos Record Set -------------------------- Set RS = Server.CreateObject("adodb.recordset") 'Fim Criacao dos objetos Record Set -------------------------- 'SQL Statements ----------------------------- SQL = "SELECT idpra, titles, fname, lname, email FROM info WHERE ((active=Yes) AND (group<>'staff') AND (email<>'')) ORDER BY fname ASC" 'Fim SQL Statements ----------------------------- 'Abrindo Record Set --------------------------- RS.Open SQL,Conn,3,3 'Fim Abrindo Record Set --------------------------- %>
Washington Institute of Natural Medicine
 
 

write a testimonial

Testimonial for: 
   
From: 
   
Testimonial: 
   
 

 

 

 

 

 

 

 


 
 
 
©Washington Institute of Natural Medicine