Document Library

Back Back Up Advanced Editor

<% OPTION EXPLICIT %>
<%
if request.form("ACTION") = "PROCESS" then
   displayLabels
else
  MainForm
end if

sub displayLabels
  response.write "<!DOCTYPE HTML>" & vbcrlf
  response.write "<html>" & vbcrlf
  response.write " <head>" & vbcrlf
  response.write "   <meta charset=""utf-8"">" & vbcrlf
  response.write "   <title>Barcode Generator</title>" & vbcrlf
  response.write "   <meta name=""viewport"" content=""width=device-width, initial-scale=1.0"">" & vbcrlf
  response.write " </head>" & vbcrlf
  response.write " <body style=""font-family:Tahoma;"">" & vbcrlf
  response.write "     <script src=""JsBarcode.min.js""></script>" & vbcrlf
  response.write "     <script>" & vbcrlf
  response.write "" & vbcrlf
  response.write "      function gb() {" & vbcrlf
  response.write "      JsBarcode(""#barcodeA"", """ & request.form("username") & """);" & vbcrlf
  response.write "      JsBarcode(""#barcodeB"", """ & request.form("password") & """);" & vbcrlf  
  response.write "   }" & vbcrlf
  response.write "" & vbcrlf
  response.write "    </script>" & vbcrlf
  response.write "  <div style=""width:100%;padding:0px;margin:0px;text-align:center;"">" & vbcrlf
  response.write "  <img id=""barcodeA""></img><br><br><br>" & vbcrlf
  response.write "  <img id=""barcodeB""></img><br><br><br>" & vbcrlf & vbcrlf & vbcrlf & vbcrlf
  response.write "     <script>" & vbcrlf
  response.write "       gb();" & vbcrlf
  response.write "     </script>" & vbcrlf
  response.write "   </div>"  & vbcrlf
  response.write "  </body>" & vbcrlf
  response.write "</html>" & vbcrlf
  response.write "" & vbcrlf
  response.write "" & vbcrlf
end sub

sub MainForm
  response.write "<!DOCTYPE HTML>" & vbcrlf
  response.write "<html>" & vbcrlf
  response.write "  <head>" & vbcrlf
  response.write "    <meta charset=""utf-8"">" & vbcrlf
  response.write "    <title>Barcode Generator</title>" & vbcrlf
  response.write "    <meta name=""viewport"" content=""width=device-width, initial-scale=1.0"">" & vbcrlf
  response.write "  </head>" & vbcrlf
  response.write "  <body style=""font-family:Tahoma;"">" & vbcrlf
  response.write "    <form target=""_blank"" action ="""" method=""post"">" & vbcrlf
  response.write "     <input type=""hidden"" name = ""ACTION"" value = ""PROCESS"">" & vbcrlf
  response.write "        <div class=""container"">" & vbcrlf
  response.write "          <table style='width:98%; border:none;'>" & vbcrlf
  response.write "           <tr>" & vbcrlf
  response.write "            <td>" & vbcrlf
  response.write "               <span style='margin-left:0px;padding-left:0px;font-Size:24px;'>Barcode Generator</span>" & vbcrlf
  response.write "            </td>" & vbcrlf
  response.write "           </tr>" & vbcrlf
  response.write "          </table><br><br>" & vbcrlf
  response.write "     Enter username text:<br>" & vbcrlf
  response.write "     <input type=""text"" value="""" name=""username"" id=""username"" style=""margin-top:5px;font-size:20px;width:200px;height:30px""><br><br>" & vbcrlf
  response.write "     Enter password text:<br>" & vbcrlf
  response.write "     <input type=""text"" value="""" name=""password"" id=""password"" style=""margin-top:5px;font-size:20px;width:200px;height:30px""><br><br>" & vbcrlf
  response.write "     <button type=""submit"" onclick=""gb();"" style=""margin-top:-2px;height:35px;width:200px;font-weight:bold;font-size:16px;"">Generate Barcodes</button>" & vbcrlf
  response.write "     <br><br>" & vbcrlf
  response.write "  </div>" & vbcrlf
  response.write "</body>" & vbcrlf
  response.write "</html>" & vbcrlf
end sub
%>