Function ShowBigPic(id)
    'ThisReturnValue = showModalDialog ("ShowForm.asp?System=" & Timer() & "&ID=" & id,"" ,"dialogWidth:550px;dialogHeight:600px;status:no;help:no;resizable:no;scroll:no;")
    'IF Not Trim(ThisReturnValue) = "" Then
    '   Location.href="Checkin.asp?cpbm=" & ThisReturnValue
    'End IF
    
    location.href = "./?set=sp&ID=" & id
    
    'IF Not Trim(ThisReturnValue) = "" Then
    '   Location.href="Checkin.asp?cpbm=" & ThisReturnValue
    'End IF
    
End Function

Function Buy(ProductID)
    IF Not Trim(ProductID) = "" Then
       Location.href="Checkin.asp?cpbm=" & ProductID
    End IF
End Function