Image \"submit\" i form

Jeg har kæmpet temmelig meget med denne her: Jeg har lavet en side der bruger paging, det virker på den måde at når man trykker på f.eks. \"næste\" knappen der er lavet ved hjælp af en form, bliver value læst af en case, problemet er at hvis jeg prøver at bruge et billede i stedet for den kønne grå knap, sender den ikke value-værdien med, og min paging virker ikke. Er der nogen der har et godt forslag til hvordan man løser dette?
Her er koden jeg har brugt:

<%
Const intPageSize = 5
Dim intCurrentPage, objConn, rs, strSQL, strconnection, mellemrum, beskrivelse
Dim intTotalPages, intI

If Request.ServerVariables(\"CONTENT_LENGTH\") = 0 Then
  intCurrentPage = 1
Else
  intCurrentPage = CInt(Request.Form(\"CurrentPage\"))
  Select Case Request.Form(\"Submit\")
      Case \"Forrige\"
        intCurrentPage = intCurrentPage - 1
      Case \"Næste\"
        intCurrentPage = intCurrentPage + 1
  End Select
  Set rs = Session(\"MyRecordset\")
End If

mellemrum = \"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\"

\'Databaseforbindelse
Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConnection = \"DSN=asp;Database=test;\"
strConnection = strConnection  & \"UID=test;PWD=test;\"
objConn.Open strConnection
  Set rs = Server.CreateObject(\"ADODB.Recordset\")
  rs.CursorLocation = adUseClient
  rs.CursorType = adOpenStatic
  rs.CacheSize = intPageSize
strSQL = \"Select * From ba Where kategori like \'%trommer%\' order by navn\"
  rs.Open strSQL, objConn, , , adCmdText
  Set rs.ActiveConnection = Nothing
  objConn.Close
  Set objConn = Nothing
  Set Session(\"MyRecordset\") = rs
rs.PageSize = intPageSize
If Not(rs.EOF) Then rs.AbsolutePage = intCurrentPage
intTotalPages = rs.PageCount
intI = 0
Do While ((Not rs.EOF) And (intI < rs.PageSize))
 
Response.Write rs(\"test\")
  intI = intI + 1
  rs.MoveNext
Loop
%>
<BR>
Side <%= intCurrentPage %> af <%= intTotalPages %><P>
<FORM ACTION=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\" METHOD=\"POST\">
<INPUT TYPE=\"Hidden\" NAME=\"CurrentPage\" VALUE=\"<%= intCurrentPage %>\">
<%
If intCurrentPage > 1 Then %>
<INPUT TYPE=\"Submit\" NAME=\"Submit\" VALUE=\"Forrige\">
<% End If
If intCurrentPage <> intTotalPages Then %>
<INPUT TYPE=\"Submit\" NAME=\"Submit\" VALUE=\"Næste\">
<% End If %>
</FORM>