Next Generation Networks - Suppliers of Telecom and Datacom Solutions

<%@ Language="VBScript" %> <% Option Explicit %> <% Dim sSQL, linkId, linkName, strLinks,rs sSQL = "getCustomerLinks " sSQL = sSQL + " @customerId = '" + CStr(customerId) + "'" Set rs = Server.CreateObject("ADODB.Recordset") 'Open the connection to the database connection.Open(sConnString) rs.open sSQL, connection strLinks = "" While Not rs.EOF linkId = rs("customerWebLinkId") linkName = rs("webLinkName") 'strLinks = strLinks + "" strLinks = strLinks + "" rs.MoveNext Wend strLinks = strLinks + "

" + linkName + "

" %> Next Generation Networks - Suppliers of Telecom and Datacom Solutions Untitled Document

Welcome <%=customerName%>

Here are your document links:

<%=strLinks%>

>>logout