vbscript

Hello

I have a problem i have a function to get some data and with that data create a link to a page the problem is im not expert in vb and i dont know how to do it! can someone helpe me

 Set UserRS = Server.CreateObject("ADODB.RecordSet")
 
 'Posterplaats gegevens ophalen'
        Dim p(2), i
        UserRS.Open "SELECT * FROM Posterplaatsen ORDER BY id",  ConnStr
 
        i = 0
 
        If Not (UserRS.BOF Or UserRS.EOF) Then
            UserRS.MoveFirst
            Do While Not UserRS.EOF and i<3
                i = i + 1
                If (UserRS("datum")<Now) Then
                    If Not (IsNull(UserRS("posterplaats"&i)) Or IsNull(UserRS("Image"&i))) Then
                        p(i) = "<a href=""programmaDetail.asp?DataId=" & UserRS("posterplaats"&i) & """ target=""content_frame""><img src=""" & UserRS("Image"&i) & """ style=""border:1px""  /></a>"
                    End If
                End If
                UserRS.MoveNext
            Loop
        End If
 
        UserRS.Close : Set UserRS = Nothing
 

and is call here

    <%
 
                        =p(0)
                        
                    %>
 

Kind regards im waiting for your hel i realy need


Ps: sometimes appear this error

Microsoft VBScript runtime error '800a000d'
Type mismatch