<% Dim objConn Dim objRS Dim strID Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};DriverID=277;Dbq=/home/sites/site1/web/CONSIGN.DBF;DefaultDir=/home/sites/site1/web/" objConn.Open objRS.Open "SELECT * FROM CONSIGN.DBF ORDER BY NAME", objConn %>

Welcome to the Kids Exchange Tag Printing Page

If you are a first time consignor, you must register by emailing: blazejulie@aol.com You will then be able to print your tags off of this page. You will need Adobe Acrobat Reader to print the tags, which can be downloaded for free HERE.
Please remember to print your tags on card stock paper.
Make sure to use the Print button on the left side of the screen:
Your printout should consist of a page with 10 tags that look like the sample below. If they look different than this, try downloading the latest version of Adobe Acrobat Reader HERE.

Select your name from the list below:

<% Do Until objRS.EOF strID = objRS.Fields("ID").Value If Len(strID) < 4 Then strID = Left("000", 3 - Len(strID)) & strID Response.Write "
" & objRS.Fields("Name").Value & " - " & strID & "
" objRS.MoveNext Loop objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %>

Welcome to the Kids Exchange Tag Printing Page

If you are a first time consignor, you must register by emailing: blazejulie@aol.com You will then be able to print your tags off of this page. You will need Adobe Acrobat Reader to print the tags, which can be downloaded for free HERE.

Please remember to print your tags on card stock paper.

Make sure to use the Print button on the left side of the screen:

Your printout should consist of a page with 10 tags that look like the sample below. If they look different than this, try downloading the latest version of Adobe Acrobat Reader HERE.