How to use this function

I am having trouble with calling the following function?

'Generates a GUID
Function GenerateGUID()
 GenerateGUID = Mid(Server.CreateObject("Scriptlet.TypeLib").GUID, 1, 38)
End Function

'Generate a unique OIK
Function GenerateGUID(ByRef Connection, ByVal TableName, ByVal GUIDFieldName)
 Dim GUID, IsOk, SQL, RS
 IsOk = False
 
 Dim Counter
 Counter = 0
 
 'loop round generating new GUIDs until we've found one that hasn't been used yet!
 While Not IsOk
  Counter = Counter + 1
  
  GUID = GenerateGUID()
  
  SQL = "SELECT [" & GUIDFieldName & "] FROM [" & TableName & "] WHERE [" & GUIDFieldName & "]='" & GUID & "'"
  'Response.Write SQL & "<BR>"
  'Response.Flush
  
  Set RS = ExecuteQuery(Connection, SQL, False, True)
  
  If RS.EOF Then
   'No matching GUID found, so it really *is* unique
   IsOk = True
  End If

  Kill RS
 Wend
 
 'Response.Write "GenerateGUID took " & Counter & " attempts to generate a new GUID.<BR>"
 GenerateGUID = GUID
End Function

I thought you would call it like so

response.write GenerateGUID(Conn, CouponCode, CCode)

but it seems that I am incorrect!

Is there some code I am missing?

Ok I changed it to this

<%

'Generates a GUID
Function MakeGUID()
 MakeGUID = Mid(Server.CreateObject("Scriptlet.TypeLib").GUID, 1, 38)
End Function

'Generate a unique OIK
Function GenerateGUID(ByRef Connection, ByVal TableName, ByVal GUIDFieldName)
 Dim GUID, IsOk, SQL, RS
 IsOk = False
 
 Dim Counter
 Counter = 0
 
 'loop round generating new GUIDs until we've found one that hasn't been used yet!
 While Not IsOk
  Counter = Counter + 1
  
  GUID = MakeGUID()
  
  SQL = "SELECT [" & GUIDFieldName & "] FROM [" & TableName & "] WHERE [" & GUIDFieldName & "]='" & GUID & "'"
  Response.Write SQL & "<BR>"
  'Response.Flush
  
  Set RS = ExecuteQuery(Connection, SQL, False, True)
  
  If RS.EOF Then
   'No matching GUID found, so it really *is* unique
   IsOk = True
  End If

  Kill RS
 Wend
 
 'Response.Write "GenerateGUID took " & Counter & " attempts to generate a new GUID.<BR>"
 GenerateGUID = GUID
End Function

Response.write GenerateGUID("Conn, CouponCode, CCode") '1

GenerateGUID("Conn, CouponCode, CCode") '2

%>

And now I get the following error useing number 1

SELECT [] FROM [] WHERE []='{8DA1D6A9-1C0F-4227-A211-550C4C747932}'

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ExecuteQuery'

/test.asp, line 33

And Line 33 is   Set RS = ExecuteQuery(Connection, SQL, False, True)

so I know that there is a problem with

Mart wrote: Its because your not providing all the arguments. Try GenerateGUID(Conn, CouponCode, CCode)

I tried that and forgot to add it :( lol it gives me

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/test.asp, line 49

GenerateGUID(Conn, CouponCode, CCode)
-------------------------------------^

thats replacing 

GenerateGUID("Conn, CouponCode, CCode")

for

GenerateGUID(Conn, CouponCode, CCode) right?

Then I try

Call GenerateGUID(Conn, CouponCode, CCode) and I get this error

SELECT [] FROM [] WHERE []='F2D4F72B-52B5-4CF9-B23B-E3ECB08F163B'
Microsoft VBScript runtime error '800a000d' 
Type mismatch: 'ExecuteQuery' 
/test.asp, line 34