<div>
try this: 
 

<pre><code class="code-1 nolinks" id="code-20-42726466-1">&lt;%
dim uid : uid = rs(&quot;UserID&quot;)
if Len( uid ) &lt;&gt; 6 then uid = &quot;0&quot; &amp; uid
Response.Write uid
%&gt;
</code></pre>
this ONLY works if the userID is 5 chars, if it is less than 5, it will still only add 1 zero to the beginning
</div>

<div>
<pre><code class="code-10 nolinks" id="code-20-42726467-1">Module Module1

 Sub Main()
 For Counter As Integer = 999 To 1000
 Console.WriteLine(ZeroPad(Counter))
 Next
 Console.ReadLine()

 End Sub

 Function ZeroPad(num)
 Const charCount = 6

 If IsNumeric(num) Then
 If Len(num) &gt; charCount Then
 ZeroPad = &quot;Error&quot;
 Else
 ZeroPad = Right(Replace(Space(charCount), &quot; &quot;, &quot;0&quot;) &amp; num, charCount)
 End If
 Else
 ZeroPad = &quot;Error&quot;
 End If

 End Function
End Module
</code></pre>
 
Output 
000999 
001000 
PAQ: <a href="https://www.experts-exchange.com/questions/27495010/000-Zero-Padding-in-vbs.html" rel="ugc">https://www.experts-exchange.com/questions/27495010/000-Zero-Padding-in-vbs.html</a>
</div>

<div>
Thank you Monty, 
This solved the problem with UserIDs that are 5 characters long. 
Unfortunately it only inserts 1 zero in front of the record. 
Sometimes the UserID is 3 or 4 characters long. The record has to be 6 characters, e.g. 000456 when UserID is 456. 
In Management Studio I can do it like this: 
select RIGHT('000000' + UserID,6) from myTable
</div>

<div>
<pre><code class="code-10 nolinks" id="code-20-42726524-1">&lt;%
dim uid : uid = rs(&quot;UserID&quot;)
dim numChars : numChars = 6
dim isPadded : isPadded = false

if Len( uid ) &lt; 6 then
 dim index
 do while isPadded is true
 if Len( uid ) = 6 then
 isPadded = true
 else
 uid = &quot;0&quot; &amp; uid
 end if
 loop
end if
 
Response.Write uid
%&gt;
</code></pre>
</div>

<div>
It gives me the following error: 
 
Microsoft VBScript runtime &nbsp;error '800a01a8' 
Object required 
index.asp, line 209 
 
Line 209 is the following: 
do while isPadded is true
</div>

<div>
just do 
 
do while isPadded
</div>

IT Developer

Stefan Motz

<div>
Thank you Monty, it's perfect now. 
 
David, I'm sorry but I was not able to customize your code, but thank you very much for your response.
</div>

<div>
<div class="content wysiwyg-content">
Hi Experts, 
On my classic ASP page I'm displaying a record like this: 
&lt;%=rs(&quot;UserID&quot;)%&gt; 
 
UserID always has to be 6 characters, e.g. 123456 
When it's less than 6 characters I would like to display zeroes in front of it, e.g. when UserID is 23456 I would like to display it as 023456 
Thank you for your help
</div>
</div>

Hi Experts,
On my classic ASP page I'm displaying a record like this:
<%=rs("UserID")%>

UserID always has to be 6 characters, e.g. 123456
When it's less than 6 characters I would like to display zeroes in front of it, e.g. when UserID is 23456 I would like to display it as 023456
Thank you for your help

Insert 0 in front of recordset when recordset is less than 6 characters

Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.