kalender dato problemer

jeg har en kalender kørende ok hvor datoformatet på serveren gør at dato vises som f.eks 30-01-07 og det virker fint.
Nu vil jeg flytte koden over på en anden server og her vises datoen som 2/1/07 hvor måned står først, - altså formatet er mm/dd/åå.
Det skulle jeg gerne ha lavet om - her kommer hele kalenderkoden

<%
vardato =day(date) & "-" & month(date) & " - " & year(date)
if len(day(date))=2 then
vardag = day(date)
else
vardag = "0" & day(date)
end if
if len(month(date))=2 then
varmonth = month(date)
else
varmonth = "0" & month(date)
end if

if len(year(date))=4 then
varaar = right(year(date),2)
else
varaar = year(date)
end if

dtmdate = vardag & "-" & varmonth &  "-" & varaar

'response.write dtmdate



%>

<%
'session.LCID=1030
openconnection

'dtmDate = Request.QueryString("date")
dtmToday = Date

if request.querystring.Count=0 then
    dtmDate = date()

elseif request.querystring.Count > 1 then
    dtmDate = cdate( "01-" & request.querystring("mdr") & "-" & request.querystring("aar"))
else
    dtmDate    = cdate(request.querystring("date"))
   
       
end if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
<table border=0 width=150 align=center class=kalendertop cellSpacing=0 cellPadding=0>
<tr>
<td><FONT face=Verdana size=2>
<div align="center"><b>Aktivitets kalender</b></div></font>
</td>
</tr>
</table>

<TABLE cellSpacing=0 cellPadding=2 background="top2.gif" width=137 height=12 align=center border=0  bgcolor="#336799" class=kalender>
  <TR>
    <TD >
      <CENTER>
      <P><FONT face=Verdana size=1><A href="kalender1.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><img src="arrow_left.jpg" alt="" width="11" height="10" border="0" ></A>
      <font color="#FFFFFF">| </font><A href="kalender1.asp"><b><font color="#FFFFFF">I dag</font></b></A>
      <font color="#FFFFFF">| </font><A href="kalender1.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>"><img src="arrow_right.jpg" alt="" width="11" height="10" border="0" ></A></FONT></P></CENTER>
    </TD>
  </TR>
</TABLE>

<TABLE borderColor=#CCCCCC cellSpacing=0 width=137 align=center border=1 class=kalender1>
  <TR>
    <TD colSpan=7>
      <P align=center><FONT face=Verdana size=2><B><%=strMonth%>&nbsp;<%=intYear%></b></FONT></P></TD></TR>
  <TR>
    <TD>
      <P align=center><B><font face="Verdana" size="1">Ma</font></B></P></TD>    <TD>
      <P align=center><B><font face="Verdana" size="1">Ti</font></B></P></TD>    <TD>
      <P align=center><B><font face="Verdana" size="1">On</font></B></P></TD>    <TD>
      <P align=center><B><font face="Verdana" size="1">To</font></B></P></TD>    <TD>
      <P align=center><B><font face="Verdana" size="1">Fr</font></B></P></TD>    <TD>
      <P align=center><B><font face="Verdana" size="1">Lø</font></B></P></TD>    <TD>
      <P align=center><B><FONT face=Verdana size=1>Sø</FONT></B></P></TD></TR>
  <TR>

<%
dim aftaledage(31)

sql = "select distinct dato from kalender where dato between #" & month(dtmdate) & _
"-1-" & year(dtmdate)& "# and # "& month(dtmdate) &"-" & daysinmonth(cdate(dtmdate))&_
"-" & year(dtmdate) &"#"

getdata sql
counter=0

response.write dato



while not dbset.eof
   
    aftaledage(day(dbset(0)))=1
    dbset.movenext
   
wend



For y = 1 to 6
    If blnLast <> True Then
        Response.Write "<tr>"
        For x = 1 to 7
            intLoopDay = intLoopDay + 1
            If intLoopDay >= intFirstDay Then
                dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    If dtmCurDate = dtmToday Then
                        Response.Write "<td align=center bgcolor=#ffcccc><a  href=kalender1.asp?Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&aar=" & Year(dtmCurDate) & " ><font face=Verdana size=1 color=#4179b6>" & Day(dtmCurDate) & "</strong></font></a></td>"
                    Else ' Ny linie
                       
                        if aftaledage(day(dtmcurdate))=1 then
                       
                       
                        Response.Write "<td align=center><a href=kalender1.asp?Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&aar=" & Year(dtmCurDate) & " ><font face=Verdana size=1><b>" & Day(dtmCurDate) & "</b></font></a></td>"
                        else
                        Response.Write "<td align=center><a href=kalender1.asp?Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&aar=" & Year(dtmCurDate) & " ><font face=Verdana size=1>" & Day(dtmCurDate) & "</font></a></td>"
                        end if
                   
                   
                    End if ' Er flyttet
                    blnLast = False
                Else
                    Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
                    blnLast = True
                End If
            Else
                Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
                blnLast = True
            End if
        Next
    End If
Next
Response.Write "</font></td></tr>"