Original Data
Device ID (deviceid)	<%response.write(request("deviceid"))%>
Stripe1 (dataItem0)	<%response.write(request("dataItem0"))%>
Stripe2 (dataItem1)	<%response.write(request("dataItem1"))%>
Stripe3 (dataItem2)	<%response.write(request("dataItem2"))%>

<% stripe1 = request("dataItem0") 'check for format code = B if ucase(mid(stripe1, 2, 1)) = "B" then if len(stripe1) > 0 then%> <%end if else 'proprietary format%> <%end if%>

Stripe 1
Acct #	<% startPos = instr(1,stripe1,"^") if startPos > 3 then response.write(mid(stripe1,3, startPos - 3)) else response.write("Error") end if %>
Last Name	<%endPos = instr(startPos + 1,stripe1,"^") if endPos - startPos > 1 then name = mid(stripe1,startPos + 1,endPos - startPos - 1) if instr(name,"/") > 0 then Response.write(left(name,instr(name,"/") - 1)) else response.write("Error") end if else response.write("Error") end if %>
First Name	<%Response.write(right(name,len(name) - instr(name,"/")))%>
Exp Year	<%Response.write(mid(stripe1,endPos + 1,2))%>
Exp Month	<%Response.write(mid(stripe1,endPos + 3,2))%>
Acct #	<%response.write("Proprietary Format")%>

<% stripe2 = request("dataItem1") if len(stripe2) > 0 then%> <%else%> <%end if%>

Stripe 2
Acct #	<% startPos = instr(1,stripe2,"=") if startPos > 2 then response.write(mid(stripe2,2, startPos - 2)) else response.write("Error") end if %>
Exp Year	<%Response.write(mid(stripe2,startPos + 1,2))%>
Exp Month	<%Response.write(mid(stripe2,startPos + 3,2))%>
Acct #	<%response.write("No Data")%>