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 

Ok I found the proper way to call it! see below

GenerateGUID Conn, "CouponCode", "CCode"

But I still get an error of

SELECT CCode FROM CouponCode WHERE CCode = 'B7D25AA2-0BA5-4A7A-AFDF-FDE0030831CC'

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ExecuteQuery'

/test.asp, line 34

Line 34 is

Set RS = ExecuteQuery(Connection, SQL, False, True)

Phat wrote: Type mismatch has something to do with the data types. Make sure you're coparing the same thing to the same thing. E.g. String to string

Please explain when you say string to string do you mean the name of the field in the db to the one in the script? cause they match the one I still feel I am having trouble with is the one in red

GenerateGUID Conn, "CouponCode", "CCode"

Actually I was missing some functions.  I had forgotten to add an include at the beginning of the file to get the function of ExecuteQuery works great now!

Thanks for all the help though! It was greatly appreciated