Haste Hjæp til Print funktion

Jeg er ved at afslutte et projekt, men magler at få en printfunktoin til at virke.

jeg får denne fejl, på min lokale server

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: 'Conn'
/webopg/jepsen2002/pumper.asp, line 2


men på  http://remo.lir.dk/jepsen  for jeg en fejl 500 og blank side.


****** pumper.asp *******

<% Set Query1 = Conn.Execute("SELECT * From jepsen Where emne = '" & emne & "' ")%>



<table border="0" cellpadding="0" cellspacing="0" width="100%" >
  <tr>
    <td width="100%">
    <table border="0" cellpadding="0" cellspacing="0"  width="100%" >
      <tr>
        <td width="100%" align="right">
       
        <a href="pumper.asp" onClick="printpage()"><img src="images\print3.gif" border="0" alt="klik for at printet ud"></a></td>
      </tr>
      <tr>
      <% Do until Query1.EOF %>
        <td width="100%">&nbsp;<b><%=Query1("overskrift")%></b></td>
      </tr>
      <tr>
        <td width="100%">&nbsp;</td>
      </tr>
      <tr>
        <td width="100%">
       
        <table border="0" cellpadding="0" cellspacing="0"  width="100%" >
          <tr>
            <td width="1%">&nbsp;</td>
            <td width="78%"><%=Replace(Query1("tekst"),vbcrlf,"<br>" & " ")%>&nbsp;</td>
            <td width="1%">&nbsp;</td>
            <td width="20%"><img src="<%=Query1("billede")%>"></td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>
        <td width="100%">&nbsp;</td>
      </tr>
      <tr>
        <td width="100%" align="center"><img src="<%=Query1("billede1")%>"></td>
      </tr>
      <tr>
        <td width="100%"><hr color="#FF5B35">&nbsp;</td>
      </tr>
        <%Query1.MoveNext%>
              <%loop%>
    </table>
    </td>
  </tr>
</table>


******* Print.asp ********

<script language="Javascript1.2">
        <!--
        function printpage() {
        window.print(); 
        }
        //-->
        </script>


some one pleas help :O)