<% 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
%>