<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("trsa_ConnectionString2") MySQL = "Select * from MohenisECoupons" set cts = conn.execute(MySQL) %> <% Dim FontSize1a Dim FontSize1b Dim FontSize1c Dim FontSize1d Dim FontType1a Dim FontType1b Dim FontType1c Dim FontType1d Dim FontFace1a Dim FontFace1b Dim FontFace1c Dim FontFace1d FontSize1a = cts("Size1a") if FontSize1a = "3/8" then FontSize1a = "2" end if if FontSize1a = "7/16" then FontSize1a = "4" end if if FontSize1a = "1/2" then FontSize1a = "6" end if FontSize1b = cts("Size1b") if FontSize1b = "3/8" then FontSize1b = "2" end if if FontSize1b = "7/16" then FontSize1b = "4" end if if FontSize1b = "1/2" then FontSize1b = "6" end if FontSize1c = cts("Size1c") if FontSize1c = "3/8" then FontSize1c = "2" end if if FontSize1c = "7/16" then FontSize1c = "4" end if if FontSize1c = "1/2" then FontSize1c = "6" end if FontSize1d = cts("Size1d") if FontSize1d = "3/8" then FontSize1d = "2" end if if FontSize1d = "7/16" then FontSize1d = "4" end if if FontSize1d = "1/2" then FontSize1d = "6" end if if cts("Font1a") = "Full Block Upper" or cts("Font1a") = "Plain Block Upper" or cts("Font1a") = "Roman Block Upper" then FontType1a = "Upper" End If if cts("Font1a") = "Script" Then FontType1a ="Script" FontFace1a = "Brush Script MT" End If if cts("Font1a") = "Full Block Upper" or cts("Font1a") = "Full Block Mixed" Then FontFace1a = "Bodoni-DTC" End If if cts("Font1a") = "Plain Block Upper" or cts("Font1a") = "Plain Block Mixed" Then FontFace1a = "Arial" End If if cts("Font1a") = "Roman Block Upper" or cts("Font1a") = "Roman Block Mixed" Then FontFace1a = "Times New Roman" End If if cts("Font1b") = "Full Block Upper" or cts("Font1b") = "Plain Block Upper" or cts("Font1b") = "Roman Block Upper" then FontType1b = "Upper" End If if cts("Font1b") = "Script" Then FontType1b ="Script" FontFace1b = "Brush Script MT" End If if cts("Font1b") = "Full Block Upper" or cts("Font1b") = "Full Block Mixed" Then FontFace1b = "Bodoni-DTC" End If if cts("Font1b") = "Plain Block Upper" or cts("Font1b") = "Plain Block Mixed" Then FontFace1b = "Arial" End If if cts("Font1b") = "Roman Block Upper" or cts("Font1b") = "Roman Block Mixed" Then FontFace1b = "Times New Roman" End If if cts("Font1c") = "Full Block Upper" or cts("Font1c") = "Plain Block Upper" or cts("Font1c") = "Roman Block Upper" then FontType1c = "Upper" End If if cts("Font1c") = "Script" Then FontType1c ="Script" FontFace1c = "Brush Script MT" End If if cts("Font1c") = "Full Block Upper" or cts("Font1c") = "Full Block Mixed" Then FontFace1c = "Bodoni-DTC" End If if cts("Font1c") = "Plain Block Upper" or cts("Font1c") = "Plain Block Mixed" Then FontFace1c = "Arial" End If if cts("Font1c") = "Roman Block Upper" or cts("Font1c") = "Roman Block Mixed" Then FontFace1c = "Times New Roman" End If if cts("Font1d") = "Full Block Upper" or cts("Font1d") = "Plain Block Upper" or cts("Font1d") = "Roman Block Upper" then FontType1a = "Upper" End If if cts("Font1d") = "Script" Then FontType1d ="Script" FontFace1d = "Brush Script MT" End If if cts("Font1d") = "Full Block Upper" or cts("Font1d") = "Full Block Mixed" Then FontFace1d = "Bodoni-DTC" End If if cts("Font1d") = "Plain Block Upper" or cts("Font1d") = "Plain Block Mixed" Then FontFace1d = "Arial" End If if cts("Font1d") = "Roman Block Upper" or cts("Font1d") = "Roman Block Mixed" Then FontFace1d = "Times New Roman" End If %>
<% if FontType1a = "Upper" Then %> <% end if %> <% if FontType1a = "Script" Then %> <% end if %>
<% response.write cts("Coupon1a") %> <% if FontType1a = "Upper" Then %> <% end if %> <% if FontType1a = "Script" Then %> <% end if %>
<% if FontType1b = "Upper" Then %> <% end if %> <% if FontType1b = "Script" Then %> <% end if %>
<% response.write cts("Coupon1b") %> <% if FontType1b = "Upper" Then %> <% end if %> <% if FontType1b = "Script" Then %> <% end if %>
<% if FontType1c = "Upper" Then %> <% end if %> <% if FontType1c = "Script" Then %> <% end if %>
<% response.write cts("Coupon1c") %> <% if FontType1c = "Upper" Then %> <% end if %> <% if FontType1c = "Script" Then %> <% end if %>
<% if FontType1d = "Upper" Then %> <% end if %> <% if FontType1d = "Script" Then %> <% end if %>
<% response.write cts("Coupon1d") %> <% if FontType1d = "Upper" Then %> <% end if %> <% if FontType1d = "Script" Then %> <% end if %>