<% response.redirect "../index.cfm" %> <% ProductCode = Request("PID") If ProductCode <> "" Then Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "[^a-zA-Z_0-9]" .IgnoreCase = True .Global = True End With productCheck = RegularExpressionObject.Test(ProductCode) 'response.write (productCheck) If productCheck = true Then Response.Redirect ("http://www.marygreen.com") End If Set RegularExpressionObject = nothing %> <% SQL = "p_ProductDetail @ProductCode = '" & ProductCode & "'" Set RS = Conn.Execute(SQL) If Not RS.EOF Then Do While Not RS.EOF ProductCode = RS("ProductCode") Title = RS("Title") PageTitle = RS("Title") HeaderDescription = RS("Description") RS.MoveNext Loop End If End if If (Request("CAT") = "M") OR (Left(Request("PID"),1) = "M") Then HeaderID = 2 ElseIf (Request("CAT") = "S") Then HeaderID = 3 Else HeaderID = 1 End If HeaderSQL = "SELECT image1, image2 FROM HeaderImages WHERE header_id = '" & HeaderID & "'" Set rsHeader = Conn.Execute(HeaderSQL) %>  
<%If Not rsHeader.EOF Then %> <%If Len(rsHeader("image2")) > 0 Then %> " width="100" height="25"> <% Else%>

 

<% End If %> <% End If %>
<%If Not rsHeader.EOF Then %> " width="101" height="131"> <% Else %> <% End If %>   <% Call HeaderTable() Call BodyTable() %> <% Sub BodyTable()%>
<% If Request("ErrMsg") <> "" Then %>
<%=Request("ErrMsg")%>
 
<% End If %> <% If Request("PID") <> "" Then Call ProductTable(Request("PID")) End IF %> <% End Sub %>