<%@LANGUAGE="VBSCRIPT"%> <% Dim english__MMColParam english__MMColParam = "english" If (Request("MM_EmptyValue") <> "") Then english__MMColParam = Request("MM_EmptyValue") End If %> <% Dim english Dim english_numRows Set english = Server.CreateObject("ADODB.Recordset") english.ActiveConnection = MM_communicaidPDF_STRING english.Source = "SELECT * FROM pdfUpload WHERE area = '" + Replace(english__MMColParam, "'", "''") + "'" english.CursorType = 0 english.CursorLocation = 2 english.LockType = 1 english.Open() english_numRows = 0 %> <% Dim culture__MMColParam culture__MMColParam = "culture" If (Request("MM_EmptyValue") <> "") Then culture__MMColParam = Request("MM_EmptyValue") End If %> <% Dim culture Dim culture_numRows Set culture = Server.CreateObject("ADODB.Recordset") culture.ActiveConnection = MM_communicaidPDF_STRING culture.Source = "SELECT * FROM pdfUpload WHERE area = '" + Replace(culture__MMColParam, "'", "''") + "'" culture.CursorType = 0 culture.CursorLocation = 2 culture.LockType = 1 culture.Open() culture_numRows = 0 %> <% Dim communication__MMColParam communication__MMColParam = "communication" If (Request("MM_EmptyValue") <> "") Then communication__MMColParam = Request("MM_EmptyValue") End If %> <% Dim communication Dim communication_numRows Set communication = Server.CreateObject("ADODB.Recordset") communication.ActiveConnection = MM_communicaidPDF_STRING communication.Source = "SELECT * FROM pdfUpload WHERE area = '" + Replace(communication__MMColParam, "'", "''") + "'" communication.CursorType = 0 communication.CursorLocation = 2 communication.LockType = 1 communication.Open() communication_numRows = 0 %> <% Dim languages__MMColParam languages__MMColParam = "language" If (Request("MM_EmptyValue") <> "") Then languages__MMColParam = Request("MM_EmptyValue") End If %> <% Dim languages Dim languages_numRows Set languages = Server.CreateObject("ADODB.Recordset") languages.ActiveConnection = MM_communicaidPDF_STRING languages.Source = "SELECT * FROM pdfUpload WHERE area = '" + Replace(languages__MMColParam, "'", "''") + "'" languages.CursorType = 0 languages.CursorLocation = 2 languages.LockType = 1 languages.Open() languages_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 english_numRows = english_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 culture_numRows = culture_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 communication_numRows = communication_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 languages_numRows = languages_numRows + Repeat4__numRows %> Communicaid PDF Catalogue
Communicaid
home
PDF Product catalogue  
   
<% While ((Repeat1__numRows <> 0) AND (NOT english.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 english.MoveNext() Wend %>
<%=(english.Fields.Item("area").Value)%>
   
" target="_blank">
<%=(english.Fields.Item("category").Value)%>
  <% While ((Repeat2__numRows <> 0) AND (NOT culture.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 culture.MoveNext() Wend %>
<%=(culture.Fields.Item("area").Value)%>
   
" target="_blank">
<%=(culture.Fields.Item("category").Value)%>
 
<% While ((Repeat3__numRows <> 0) AND (NOT communication.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 communication.MoveNext() Wend %>
<%=(communication.Fields.Item("area").Value)%>
   
  <% While ((Repeat4__numRows <> 0) AND (NOT languages.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 languages.MoveNext() Wend %>
<%=(languages.Fields.Item("area").Value)%>
   
 
 
 
 

Contact us
Telephone icon+ 44 (0)20 3370 8580
Email iconinfo@communicaid.com


Site map | Terms and Conditions | Accessibility | Privacy © Communicaid Ltd. 2013 |
<% english.Close() Set english = Nothing %> <% culture.Close() Set culture = Nothing %> <% communication.Close() Set communication = Nothing %> <% languages.Close() Set languages = Nothing %>