<% Dim strDatabaseType strDatabaseType = "Access" strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\webdatabase\alpdb.mdb;" & _ "Mode=16;" & _ "Persist Security Info=False" strConnect1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\webdatabase\locs.mdb;" & _ "Mode=16;" & _ "Persist Security Info=False" %> Printing Terms - Advanced Litho Printing <% snum = Int(Request.QueryString("s")) If snum > 1 Then plink = true Else snum = 0 plink = false End If nlink = false headalt = "Color Printing Services Printing Terms - Advanced Litho Printing" %>
<% = headalt %>E-Mail Sales - Advanced Litho PrintingE-Mail Sales - Advanced Litho Printing

Printing Terms


<% Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open "SELECT * FROM print_term_alpha_q", strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText cnt = 0 If snum > 1 Then For i = 1 to snum * 3 objRS.MoveNext Next End If While Not objRS.EOF AND cnt < 20 cnt = cnt + 1 val1l = objRS("link") val1t = objRS("term") val1b = objRS("blank") objRS.MoveNext If Not objRS.EOF Then val2l = objRS("link") val2t = objRS("term") val2b = objRS("blank") objRS.MoveNext If Not objRS.EOF Then val3l = objRS("link") val3t = objRS("term") val3b = objRS("blank") Else val3l = "" val3t = "" val3b = "" End If Else val2l = "" val2t = "" val2b = "" val3l = "" val3t = "" val3b = "" End If %> <% Else If val1b = true Then %> <% Else %> <% End If End If %> <% Else If val2b = true Then %> <% Else %> <% End If End If %> <% Else If val3b = true Then %> <% Else %> <% End If End If %> <% If NOT objRS.EOF Then objRS.MoveNext End If Wend If NOT objRS.EOF Then nlink = true End If %>
<% If IsNull(val1l) Then %>
<% =val1t%>
<% If IsNull(val2l) Then %>
<% =val2t %>
<% If IsNull(val3l) Then %>
<% =val3t %>
<% If plink = true And nlink = true Then %> <% End If %><% If plink = true And nlink = false And (snum-20) > 0 Then %> <% End If %><% If plink = true And nlink = false And (snum-20) = 0 Then %> <% End If %><% If plink = false And nlink = true Then %> <% End If %>