# Help with reference number for payment system!

**URL:** <https://forum.kirupa.com/t/help-with-reference-number-for-payment-system/96448>\
**Category:** Uncategorized\
**Created:** [December 9, 2003, 3:59pm UTC](https://forum.kirupa.com/t/help-with-reference-number-for-payment-system/96448 "2003-12-09T15:59:06Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![SBUH](https://avatars.discourse-cdn.com/v4/letter/s/4bbf92/32.png) [@SBUH](https://forum.kirupa.com/u/SBUH)\
**Post date:** [December 9, 2003, 3:59pm UTC](https://forum.kirupa.com/t/help-with-reference-number-for-payment-system/96448/1 "2003-12-09T15:59:06Z")

</div>

Hello, I have code for making a reference number for payment. But it is not working now. Could any one take a look at it and give some suggestion how to modify so that it works. Or if there is some other way to make it, I do appreciate. Thanks a lot!

```php

<script LANGUAGE="VBScript" >
    Function referencenumber()
    	Randomize
    	
         Ref=1234567890
			
		i = Len(Ref)
    	weightTable = Array(7, 3, 1)
    	tmpRef = 0
    	n = 0
    	Do While i > 0
    		tmpRef = tmpRef + Mid(Ref, i, 1) * weightTable(n)
    		i = i - 1
    		n = n + 1
    		If n > 2 Then n = 0
    	Loop
    	tmpRef = Int(Left(tmpRef, Len(tmpRef) - 1) & "0") + 10 - tmpRef
    	refTemp = Ref & Right(tmpRef, 1)
    End Function
    </script>

 <%
 dim referencenumber
     response.write (Ref)
  
	referencenumber = referencenumber()
	
	Response.write (referencenumber)
    a = Mid(refTemp, 1, 5) 
    	
    b = Mid(refTemp, 6, 5) 
    	
    c = Mid(refTemp, 10, 5) 
    Response.Write a & "&nbsp;" & b & "&nbsp;" & c 
%>

```