Fil skal laves om til funktion

Jeg kører et lille galleri med en masse billeder. Jeg bruger AspImage til at danne de små billeder.

Når jeg skal vise et lille billede sætter jeg src=inc_crtthumb.asp?id=" & "ID'et fra databasen"

inc_crtthumb.asp ser således ud:
If Request.QueryString("id") = "" Then
    Response.write "FEJL"
Else
    Set rsConfig = Conn.Execute("SELECT * FROM " & cDB_Config_Name & " WHERE id='1'")
    Set rsBilleder = Conn.Execute("SELECT * FROM " & rsConfig("db_billeder") & " WHERE id = " & Request.QueryString("id"))
   
    Set MyImage = Server.CreateObject("AspImage.Image")
    MyImage.LoadImage Server.MapPath(Replace(rsBilleder("ref"),rsConfig("adresse"),""))

    If MyImage.MaxY < MyImage.MaxX Then
        MyImage.Resize 120,90
    ElseIf MyImage.MaxY = MyImage.MaxX Then
        MyImage.Resize 90,90
    Else
        MyImage.Resize 60,90
    End If

    MyImage.ImageFormat        = 1
    MyImage.JPEGQuality        = 60
    ProgressiveJPEGEncoding    = True

    Response.BinaryWrite MyImage.Image
   
    Set MyImage = Nothing
End If

Det hele virker jo sådan set meget fint, men mit statistiksystem registrerer en hulens masse hits på filen inc_crtthumb.asp. Derfor ville jeg gerne have lavet det om så jeg bare kaldet en funktion istedet. Men vil ikke rigtig lykkes for mig. Ved ikke om det kan have noget med Response.BinaryWrite at gøre??

Håber der er nogen der kan hitte ud af det...