HOME                  ABOUT US                  EDUCATION                  CONTACT US
Buy Now Health Watch Special Events Updates in Africa
<% Dim connStr1 connStr1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" connStr1 = connStr1 & Server.MapPath("admin/FileDB.mdb") Set rstemp = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") Set rs3 = Server.CreateObject("ADODB.Recordset") str = "SELECT * FROM Party where id<>0" rstemp.Open str, connStr1 while Not rstemp.eof %>
&id1=<%=rstemp.fields("id")%>/"><%=rstemp.fields("Eventname")%>
<%=rstemp.fields("Event_dec")%>
<%=rstemp.fields("Event_dtd")%>
<%rstemp.movenext wend %>
   
  Donate  
   
Copyright 2006 Soul Vegetarian Cookbook. All rights reserved.
Buy Now Health Watch Special Events Updates in Africa Contact Us