<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProd_Title__MMColParam rsProd_Title__MMColParam = "1" If (Request.QueryString("Product_No") <> "") Then rsProd_Title__MMColParam = Request.QueryString("Product_No") End If %> <% Dim rsProd_Title, Title Dim rsProd_Title_numRows Set rsProd_Title = Server.CreateObject("ADODB.Recordset") rsProd_Title.ActiveConnection = MM_GabbString_STRING rsProd_Title.Source = "SELECT * FROM Products WHERE Product_No = " + Replace(rsProd_Title__MMColParam, "'", "''") + "" rsProd_Title.CursorType = 0 rsProd_Title.CursorLocation = 2 rsProd_Title.LockType = 1 rsProd_Title.Open() rsProd_Title_numRows = 0 Title = rsProd_Title.Fields.Item("Product_Name").Value rsProd_Title.Close() Set rsProd_Title = Nothing %> <% Dim rsProduct_Dets__MMColParam rsProduct_Dets__MMColParam = "1" If (Request.QueryString("Product_No") <> "") Then rsProduct_Dets__MMColParam = Request.QueryString("Product_No") End If %> <% Dim rsProduct_Dets Dim rsProduct_Dets_numRows Set rsProduct_Dets = Server.CreateObject("ADODB.Recordset") rsProduct_Dets.ActiveConnection = MM_GabbString_STRING rsProduct_Dets.Source = "SELECT * FROM Product_Details WHERE Product_No = " + Replace(rsProduct_Dets__MMColParam, "'", "''") + " ORDER BY Product_Det_No ASC" rsProduct_Dets.CursorType = 0 rsProduct_Dets.CursorLocation = 2 rsProduct_Dets.LockType = 1 rsProduct_Dets.Open() rsProduct_Dets_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsProduct_Dets_numRows = rsProduct_Dets_numRows + Repeat1__numRows %> <%=Title%> Support from gabb and co
gabb and co solicitors
 
welcome to gabb and co >> <%=Title%>  
  <% While ((Repeat1__numRows <> 0) AND (NOT rsProduct_Dets.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsProduct_Dets.MoveNext() Wend rsProduct_Dets.MoveFirst() If rsProduct_Dets.Fields.Item("Email1").Value <> "" Then %> <% End If%>

<%If(rsProduct_Dets.Fields.Item("Product_Det_Title").Value)<> "" Then Response.Write(rsProduct_Dets.Fields.Item("Product_Det_Title").Value) End If %>

<%=Replace(rsProduct_Dets.Fields.Item("Product_Det_Desc").Value, chr(13), "
")%>

Please Contact: "><%=rsProduct_Dets.Fields.Item("Email1").Value%>  <%If rsProduct_Dets.Fields.Item("Email2").Value <> "" Then%> OR "><%=rsProduct_Dets.Fields.Item("Email2").Value%> <%End If%>  for further details...

<< back
 
<% rsProduct_Dets.Close() Set rsProduct_Dets = Nothing %>