<% sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=ptmxhosting_; UID=member;PASSWORD=pass1234; OPTION=3" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open(sConnection) If Err <> 0 Then Response.Write "Database Open Error" Else Dim sqlstmt, id SqlStmt = "SELECT * FROM press order by Id desc" Set RS2 = objConn.Execute(SqlStmt) End If %>

POWERTEAM NEWS CENTER

If you have news releases about Powerteam International events in your area,
please submit them to kati@ptmx.net. Thank you.
<% RS2.movenext wend %>
<% while not RS2.EOF %>

><%=RS2("headline")%>

 <% =RS2("reldate")%>
<% SqlStmt = "SELECT * FROM press order by Id desc" Set RS = objConn.Execute(SqlStmt) %>
<% while not RS.EOF text = RS("text") %> >

<%=RS("headline")%>

Release Date: <% =RS("reldate")%>


For additional event dates and more information please call 866-238-5920 or visit the following web site(s).

target="_blank"><%=RS("website1")%>     <% If RS("website2") <> "" Then %> " target="_blank"><%=RS("website2")%> <% End If RS.movenext wend %>