TNT Trophies n Toms

<% dim rs, vsComments strsql = "SELECT top 1 fdate, fname, lname, city, state, country, comments, email, filename FROM Feedback WHERE approved='M' order by fdate desc, lname, fname " set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, con if rs.EOF then 'Enter an empty array element blnNoRecs = true wrkMsg = "No stories at this time" else vsComments= rs.GetRows end if rs.Close Dim blnNoSurveyRecs, vSurvey strsql = "SELECT sid,question, answer1,answer2,answer3,answer4,answer5 from Survey order by sid desc" 'response.write strsql rs.Open strsql, con if rs.EOF then blnNoSurveyRecs = true else vSurvey = rs.getRows end if if rs.state = adstateopen then rs.Close end if con.close set rs = nothing set con = nothing %>

TNT Trophies & Toms

400 Trade Center Drive
St Peters, MO 63376

Phone: 636-272-1795
Toll Free: 1-888-909-4868

e-mail: support@tntremote.com

Home | Disclaimer | Laws | Directions | Contact

To open some files you must have Acrobat® Reader® installed. Click Here to Install.