Welcome to Top Eye View

<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_Topeye_STRING 'MM_Topeye_STRING = "Driver={MySQL ODBC 3.51 Driver}; Server=76.163.252.4; Port=3306; Option=0; Socket=; Stmt=; Database=harjit_topeye;uid=harjit_teye;pwd=teyeview;" MM_Topeye_STRING = "Driver={MySQL ODBC 3.51 Driver}; Server=h41mysql53.secureserver.net; Port=3306; Option=0; Socket=; Stmt=; Database=TopEyeView;uid=TopEyeView;pwd=Tev7950;" %> <% Dim rsnews__MMColParam rsnews__MMColParam = "1" If (Request.QueryString("NID") <> "") Then rsnews__MMColParam = Request.QueryString("NID") End If %> <% Dim rsnews Dim rsnews_cmd Dim rsnews_numRows Set rsnews_cmd = Server.CreateObject ("ADODB.Command") rsnews_cmd.ActiveConnection = MM_Topeye_STRING rsnews_cmd.CommandText = "SELECT * FROM Newsletter WHERE NewsLID = ?" rsnews_cmd.Prepared = true rsnews_cmd.Parameters.Append rsnews_cmd.CreateParameter("param1", 5, 1, -1, rsnews__MMColParam) ' adDouble Set rsnews = rsnews_cmd.Execute rsnews_numRows = 0 %> Welcome to Top Eye View

Details

<%=(rsnews.Fields.Item("Title").Value)%>
Date: <%=(rsnews.Fields.Item("Date").Value)%>
Posted by: <%=(rsnews.Fields.Item("PostedBy").Value)%>
Location: <%=(rsnews.Fields.Item("Locations").Value)%>
<%= Replace(rsnews.Fields.Item("Details").Value,vbCrLf,"
") %>

Back to Previous Page

| | | | | | |

<% rsnews.Close() Set rsnews = Nothing %>