<%@LANGUAGE="VBSCRIPT"%> <% Dim rsOpinion__MMColParam rsOpinion__MMColParam = "y" If (Request("MM_EmptyValue") <> "") Then rsOpinion__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsOpinion Dim rsOpinion_numRows Set rsOpinion = Server.CreateObject("ADODB.Recordset") rsOpinion.ActiveConnection = MM_vipinfo_STRING rsOpinion.Source = "SELECT id, name, email, display, rating, opinion, other, City, State, Country, show FROM dbo.vip_opinions WHERE show = '" + Replace(rsOpinion__MMColParam, "'", "''") + "' AND subject = 'SC' ORDER BY id DESC" rsOpinion.CursorType = 0 rsOpinion.CursorLocation = 2 rsOpinion.LockType = 1 rsOpinion.Open() rsOpinion_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsOpinion_numRows = rsOpinion_numRows + Repeat1__numRows %> Star Chronicles Opinion Poll
Star Chronicles Home Page

 

Leave Feedback Read FeedbackStar Chronicles Home PageAbout Star ChroniclesContactVideo GalleryStills GalleryMArs InteractivePrint ShopOrder VideoprivacystatementCopy right Notice

 Star Chronicles Home Page

 

 

Journeys In Imagination

<% While ((Repeat1__numRows <> 0) AND (NOT rsOpinion.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsOpinion.MoveNext() Wend %>

Opinion Poll
 


<%=(rsOpinion.Fields.Item("rating").Value)%>
<% IF (rsOpinion.Fields.Item("Opinion").Value) <> "" Then %> <%=(rsOpinion.Fields.Item("opinion").Value)%>
<% End if %> <% IF (rsOpinion.Fields.Item("other").Value) <> "" Then %> <%=(rsOpinion.Fields.Item("other").Value)%>

<% End if %> <% IF (rsOpinion.Fields.Item("name").Value) <> "" Then %> <%=(rsOpinion.Fields.Item("name").Value)%>
<% End if %> <% IF (rsOpinion.Fields.Item("City").Value) <> "" Then %> <%=(rsOpinion.Fields.Item("City").Value)%> <% End if %> <% IF (rsOpinion.Fields.Item("State").Value) <> "" Then %> , <%=(rsOpinion.Fields.Item("State").Value)%>
<% End if %> <% IF (rsOpinion.Fields.Item("Country").Value) <> "" Then %> <%=(rsOpinion.Fields.Item("Country").Value)%>
<% End if %> <% IF (rsOpinion.Fields.Item("display").Value) = "yes" Then %> "><%=(rsOpinion.Fields.Item("email").Value)%>
<% End if %>


Copyrights 2001 - 2005 Video Image Productions Inc.
<% rsOpinion.Close() Set rsOpinion = Nothing %>