Justere antallet af decimaler

Hey.

Jeg har efterfølgende kode. Hvordan justerer jeg antallet af decimaler på mit output, så resultatet bliver f.eks. 7,1 i stedet for 7,135536536?

Her er koden jeg bruger:

    <%
  '******************************
  '*** ÅBN DATABASE
  '******************************
  Set DATABASE = Server.CreateObject("ADODB.Connection")
  DATABASE.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../log/ibyen.mdb") 'Access databasen!

  '******************************
  '*** SQL QUERY
  '******************************
  SQLStr = "select AVG(prisniveau) as gennemsnit1 from tabel where Stednavn='Rosie McGees'"
  Set RSDatabase = DATABASE.Execute(SQLStr)
  If RSDatabase.EOF Then
    %><LINK REL="stylesheet" HREF="../menu" TYPE="text/css">
Ingen point<%
  End If
  If Not RSDatabase.EOF Then
    gennemsnit1 = RSDatabase("gennemsnit1")
   
 
  End If

  '******************************
  '*** LUK DATABASE
  '******************************
  RSDatabase.Close
  Set RSDatabase = Nothing
%>