ASP - print code

Molio bih za pomoć :

- trebao bih unutar navedenog koda' ispisati sadržaj stavaka od Ime
FIRME do Ukupno tako da imam 'button' Print (što bih možda i uspio)
ali trebao bih i kod' koji bi navedeni sadržaj ispsiao na pisać ili u
drugi prozor IE-a ???

hvala unaprijed ...

LS.
==========================================================
<%
'
' e-commerce ASP Open Source
' Developed by Rodrigo S. Alhadeff, contributions of Ricardo Fuga
' 2005
' http://www.comersus.com
%>

   
 

  




<%
on error resume next

dim mySQL, conntemp, rstemp

' get settings
pCurrencySign         = getSettingKey("pCurrencySign")
pDecimalSign         = getSettingKey("pDecimalSign")
pCompany         = getSettingKey("pCompany")
pOrderPrefix        = getSettingKey("pOrderPrefix")

pIdOrder         = getUserInput(request("idOrder"),12)

if pIdOrder="" then
  response.redirect "comersus_backoffice_message.asp?message="&
Server.Urlencode("Please enter a valid order")
end if

mySQL="SELECT orders.idOrder, name, lastName, orderstatus, phone,
email, viewed, orders.address AS address, orders.state AS state,
orders.stateCode as stateCode, orders.zip AS zip, orders.city AS city,
orders.countryCode AS countryCode, taxAmount, orderDate,
ShipmentDetails, paymentDetails, discountDetails, obs, total, details,
orders.shippingAddress, orders.shippingCity, orders.shippingState,
orders.shippingStateCode, orders.shippingZip,
orders.shippingCountryCode FROM orders, customers WHERE
orders.idCustomer=customers.idCustomer AND orders.idOrder=" &pIdOrder

call getFromDatabase(mySQl, rstemp, "showOrder")

if  rstemp.eof then
  response.redirect "comersus_backoffice_message.asp?message="&
Server.Urlencode("Cannot get order details")
end if
 
   ' contact
   pName        = rstemp("name")
   pLastName        = rstemp("lastName")
   pEmail        = rstemp("email")
   pPhone        = rstemp("phone")  
  
   ' order
   pOrderDate        = rstemp("orderDate")
   pDetails        = rstemp("details")
   pTotal        = rstemp("total")
   pPaymentDetails    = rstemp("paymentDetails")
   pShipmentDetails    = rstemp("ShipmentDetails")
   pDiscountDetails    = rstemp("discountDetails")
   pTaxAmount        = rstemp("taxAmount")
   pAddress        = rstemp("address")
   pZip            = rstemp("zip")
   pState        = rstemp("state")
   pStateCode        = rstemp("stateCode")
   pCity        = rstemp("city")
   pCountryCode        = rstemp("countryCode")
   pShippingaddress    = rstemp("shippingAddress")
   pShippingzip        = rstemp("shippingzip")
   pShippingstate    = rstemp("shippingstate")
   pShippingstateCode    = rstemp("shippingstateCode")
   pShippingcity    = rstemp("shippingcity")
   pShippingcountryCode    = rstemp("shippingCountryCode")
   pOrderStatus        = rstemp("orderstatus")
   pViewed        = rstemp("viewed")  

' change viewed mark
if pViewed=0 and pBackOfficeDemoMode=0 then

 mySQL="UPDATE orders SET viewed=-1 WHERE idOrder=" &pIdOrder
 
 call updateDatabase(mySql, rsTemp, "showOrder")

end if

pPaymentDetails=replace(pPaymentDetails,"$0.00","")

%>
<meta http-equiv="Content-Type" content="text/html;
charset=Windows-1250" />


  


<br><b>Ime FIRME Grad, Narudžbenica:</b><br>
<table width="595" border="0">
  <tr bgcolor="#CCCCCC">
    <td height="14" colspan="3"><img
src="images/smallIcoBackOffice2.gif" width="11" height="11">
      <font color="#FFFFFF"><b><%= pOrderPrefix&pIdOrder%></b></font>,
Date <%=pOrderDate%> </td>
  </tr>
  <tr>
    <td colspan="2" height="20">Ime i prezime:</td>
    <td><%=pName&" "&pLastName%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Korisnik:</td>
    <td><a href="mailto:<%=pEmail%>"><%= pEmail%></a></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Telefon:</td>
    <td><%=pPhone%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Adresa:</td>
    <td><%=pAddress & " (" &pZip& ") " &pState&pStateCode& " - "
&pCity& " " &pCountryCode%>
    </td>
  </tr> 
  <tr>
    <td colspan="2" height="20">Adresa isporuke:</td>
    <td>
    <%if pShippingAddress<>"" then%>
     <%=pShippingaddress &" (" &pShippingzip&") "
&pShippingstate&pShippingStateCode& " - " &pShippingcity& " " &
pShippingcountryCode%>
    <%else%>
     Same as billing
    <%end if%>
    </td>
  </tr> 
  <tr>
    <td colspan="2" height="20">Stavke:</td>
    <td><%=pDetails%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Isporuka:</td>
    <td><%=pShipmentDetails%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Plaćanje:</td>
    <td><%=pPaymentDetails%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Popust:</td>
    <td><%=pDiscountDetails%></td>
  </tr>
  <tr>
    <td colspan="2" valign="top" height="20">Status:</td>
    <td>
    <form method="post"
action="comersus_backoffice_updateOrderStatus.asp">
   
    <input type="hidden" name="idOrder" value="<%=pIdOrder%>">
    <input type="hidden" name="oldOrderStatus"
value="<%=pOrderStatus%>">
   
      <select name="orderStatus">
        <option value="1"
        <%if pOrderStatus=1 then
        response.write "selected"
        end if%>
        >Naručeno</option>
               
        <option value="4"
        <%if pOrderStatus=4 then
        response.write "selected"
        end if%>>Plaćeno</option>
       
        <option value="2"
        <%if pOrderStatus=2 then
        response.write "selected"
        end if%>>Isporučeno</option>
       
        <option value="3"
        <%if pOrderStatus=3 then
        response.write "selected"
        end if%>>Otkazano</option>    
       
        <option value="5"
        <%if pOrderStatus=5 then
        response.write "selected"
        end if%>>Povrat</option>    
          
      </select>
        <input alt="Change status" border=0 height=15 name=update
src="images/yellow_arrow.gif" type=image width=18>       
        <br>
        <%if pOrderStatus=4 then%>
         <br><a
href="comersus_backoffice_rollbackorder.asp?idOrder=<%=pIdOrder%>">Povrat</a>
<i>Ako otkažete narudžbu količina na zalihi će se povećati.</i>
        <%end if%>
       
      </form>     
    </td>
  </tr>
<%if pUseComersusOLPayment=-1 then%>
  <tr>
    <td colspan="2"></td>
    <td>        
     <%if pUseSslOLPayment=-1 then%>
     <a
href='<%="https://"&pStoreLocation&"/backofficeLite/"%>comersus_backoffice_showCreditCardData.asp?idOrder=<%=pIdOrder%>'>
     View credit card</a>
    <%else%>   
     <a
href='comersus_backoffice_showCreditCardData.asp?idOrder=<%=pIdOrder%>'>
      </a> <i></i>
    <%end if%>             
      </td>
  </tr>
<%end if%>
  <tr>
    <td height="21" colspan="2">Porez:</td>
    <td><%= pCurrencySign & money(pTaxAmount)%></td>
  </tr>
  <tr>
    <td height="16" colspan="3"><hr>
      <div align="right"><b>Ukupno: <%=pCurrencySign &
money(pTotal)%></b></div>
    </td>
  </tr>
</table>
<%call closeDb()%>

- kako bi to onda moglo izgledati za ovaj drugi slučaj 'print.asp' ??? to bi mi odgovaralo, klik na button i ispis na drugoj stranici ....

tako je... pozoves link na print.asp?id=xxx kao popup, tu u pozadini imas ASP kod koji ti slaze podatke koje zelis isprintat u format koji ti je pogodan za printanje (dakle sirina stranice, boje, fontovi bla bla)... Samo je problem printati iz Internet explorera i slicno jer ti dole pri dnu stranice printa i koji je link, to treba u IE-u namistit da to ne printa.

- riješeno ; brisanjem u tablici baze CR/LF sign-a tj. postavljanje <br> iza svake stavke, konkretno :

pTemp = Replace (pDetails, vbcrlf, "<br>")

- znači u igri je i VB naredba koju smo zamijenili ...

lp.

- thnx. da da tako nešto sam i napravio ...

- da li mozda imaš ideju kako ispisati u novom prozoru ovo:

<%
' 2005
' http://www.comersus.com
%>

   
 

  




<%
on error resume next

dim mySQL, conntemp, rstemp

' get settings
pCurrencySign         = getSettingKey("pCurrencySign")
pDecimalSign         = getSettingKey("pDecimalSign")
pCompany         = getSettingKey("pCompany")
pOrderPrefix        = getSettingKey("pOrderPrefix")

pIdOrder         = getUserInput(request("idOrder"),12)

if pIdOrder="" then
  response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Please enter a valid order")
end if

mySQL="SELECT orders.idOrder, name, lastName, orderstatus, phone, email, viewed, orders.address AS address, orders.state AS state, orders.stateCode as stateCode, orders.zip AS zip, orders.city AS city, orders.countryCode AS countryCode, taxAmount, orderDate, ShipmentDetails, paymentDetails, discountDetails, obs, total, details, orders.shippingAddress, orders.shippingCity, orders.shippingState, orders.shippingStateCode, orders.shippingZip, orders.shippingCountryCode FROM orders, customers WHERE orders.idCustomer=customers.idCustomer AND orders.idOrder=" &pIdOrder

call getFromDatabase(mySQl, rstemp, "showOrder")

if  rstemp.eof then
  response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Cannot get order details")
end if
 
   ' contact
   pName        = rstemp("name")
   pLastName        = rstemp("lastName")
   pEmail        = rstemp("email")
   pPhone        = rstemp("phone")  
  
   ' order
   pOrderDate        = rstemp("orderDate")
   pDetails        = rstemp("details")
   pTotal        = rstemp("total")
   pPaymentDetails    = rstemp("paymentDetails")
   pShipmentDetails    = rstemp("ShipmentDetails")
   pDiscountDetails    = rstemp("discountDetails")
   pTaxAmount        = rstemp("taxAmount")
   pAddress        = rstemp("address")
   pZip            = rstemp("zip")
   pState        = rstemp("state")
   pStateCode        = rstemp("stateCode")
   pCity        = rstemp("city")
   pCountryCode        = rstemp("countryCode")
   pShippingaddress    = rstemp("shippingAddress")
   pShippingzip        = rstemp("shippingzip")
   pShippingstate    = rstemp("shippingstate")
   pShippingstateCode    = rstemp("shippingstateCode")
   pShippingcity    = rstemp("shippingcity")
   pShippingcountryCode    = rstemp("shippingCountryCode")
   pOrderStatus        = rstemp("orderstatus")
   pViewed        = rstemp("viewed")  

' change viewed mark
if pViewed=0 and pBackOfficeDemoMode=0 then

 mySQL="UPDATE orders SET viewed=-1 WHERE idOrder=" &pIdOrder
 
 call updateDatabase(mySql, rsTemp, "showOrder")

end if

pPaymentDetails=replace(pPaymentDetails,"$0.00","")

%>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1250" />


  


<br><b>Ime Firme, Grad, Narudžbenica:</b><br>
<table width="595" border="0">
  <tr bgcolor="#CCCCCC">
    <td height="14" colspan="3"><img src="images/smallIcoBackOffice2.gif" width="11" height="11">
      <font color="#FFFFFF"><b><%= pOrderPrefix&pIdOrder%></b></font>, Date <%=pOrderDate%> </td>
  </tr>
  <tr>
    <td colspan="2" height="20">Ime i prezime:</td>
    <td><%=pName&" "&pLastName%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Korisnik:</td>
    <td><a href="mailto:<%=pEmail%>"><%= pEmail%></a></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Telefon:</td>
    <td><%=pPhone%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Adresa:</td>
    <td><%=pAddress & " (" &pZip& ") " &pState&pStateCode& " - " &pCity& " " &pCountryCode%>
    </td>
  </tr> 
  <tr>
    <td colspan="2" height="20">Adresa isporuke:</td>
    <td>
    <%if pShippingAddress<>"" then%>
     <%=pShippingaddress &" (" &pShippingzip&") " &pShippingstate&pShippingStateCode& " - " &pShippingcity& " " & pShippingcountryCode%>
    <%else%>
     Same as billing
    <%end if%>
    </td>
  </tr> 
  <tr>
    <td colspan="2" height="20">Stavke:</td>
    <td><%=pDetails%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Isporuka:</td>
    <td><%=pShipmentDetails%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Plaćanje:</td>
    <td><%=pPaymentDetails%></td>
  </tr>
  <tr>
    <td colspan="2" height="20">Popust:</td>
    <td><%=pDiscountDetails%></td>
  </tr>
  <tr>
    <td colspan="2" valign="top" height="20">Status:</td>
    <td>
    <form method="post" action="comersus_backoffice_updateOrderStatus.asp">
   
    <input type="hidden" name="idOrder" value="<%=pIdOrder%>">
    <input type="hidden" name="oldOrderStatus" value="<%=pOrderStatus%>">
   
      <select name="orderStatus">
        <option value="1"
        <%if pOrderStatus=1 then
        response.write "selected"
        end if%>
        >Naručeno</option>
               
        <option value="4"
        <%if pOrderStatus=4 then
        response.write "selected"
        end if%>>Plaćeno</option>
       
        <option value="2"
        <%if pOrderStatus=2 then
        response.write "selected"
        end if%>>Isporučeno</option>
       
        <option value="3"
        <%if pOrderStatus=3 then
        response.write "selected"
        end if%>>Otkazano</option>    
       
        <option value="5"
        <%if pOrderStatus=5 then
        response.write "selected"
        end if%>>Povrat</option>    
          
      </select>
        <input alt="Change status" border=0 height=15 name=update src="images/yellow_arrow.gif" type=image width=18>       
        <br>
        <%if pOrderStatus=4 then%>
         <br><a href="comersus_backoffice_rollbackorder.asp?idOrder=<%=pIdOrder%>">Povrat</a> <i>Ako otkažete narudžbu količina na zalihi će se povećati.</i>
        <%end if%>
       
      </form>     
    </td>
  </tr>
<%if pUseComersusOLPayment=-1 then%>
  <tr>
    <td colspan="2"></td>
    <td>        
     <%if pUseSslOLPayment=-1 then%>
     <a href='<%="https://"&pStoreLocation&"/backofficeLite/"%>comersus_backoffice_showCreditCardData.asp?idOrder=<%=pIdOrder%>'>
     View credit card</a>
    <%else%>   
     <a href='comersus_backoffice_showCreditCardData.asp?idOrder=<%=pIdOrder%>'>
      </a> <i></i>
    <%end if%>             
      </td>
  </tr>
<%end if%>
  <tr>
    <td height="21" colspan="2">Porez:</td>
    <td><%= pCurrencySign & money(pTaxAmount)%></td>
  </tr>
  <tr>
    <td height="16" colspan="3"><hr>
      <div align="right"><b>Ukupno: <%=pCurrencySign & money(pTotal)%></b></div>
    </td>
  </tr>
</table>
<%call closeDb()%>

- onako u drugom prozoru kao običan text za ispis ... najvažnije bi mi bilo u stvari (Ime, adresa, stavke, iznos, pdv itd. sa zaglavljem Ime Firme, Grad itd.) tako da sve okolo izostane osim sadržaja ...

Također se pridružujem  savjetu iznad ,prelazak na kodiranje ASP.NET . Puno bolje i lakše.

Skini si Microsoft Visual Web developer... on ima svoj "web server" koji omogucava debbugiranje (kad se naucis koristit debuggerom preporodit ces se), ne treba ti IIS... IntelliSense ce ti omoguciti puuuno brze tipkanje sintakse, klase, metode itd ce ti omoguciti jednostavnije i brze razvijanje koda. Ako si tek poceo programirati onda ti je bolje odmah uciti na ASP.Netu jer ASP lagano umire. mozes slobodno raditi u VB.Netu koji ima skoro identicnu sintaksu kao i VB u ASP-u, ako nikada nisi radio u C# nemoj se sekirat oko toga, VB i C# u konacnici daju istu stvar kada se kompajliraju. Malo ce ti biti u pocetku tesko dok ne skuzis kako to sve funkcionira, ali poslije ces se preporoditi... Pocmi od dummy stvari kao sto je botun na formi koji radi nekakvu akciju, nakon toga kad skuzis kako funkcioniraju objekti u ASP.Netu (totalno drugacije nego asp jer se vise ne koriste html kontrole vec asp.net kontrole) onda prijedji na komunikaciju sa bazom (moja preporuka tije mySQL ili nativni MS SQL server kojeg takodjer mozes skinut kao SQL Server Express i to sve besplatno sa MS sajta)

Takodjer imas prednost da mozes prakticki koristiti sve mogucnosti .Net frameworka kod uploada dokumenata, resizea slika i slicno. Kada time ovladas onda mozes slobodno malo cackati oko Ajaxa... samo strpljenje... ako si skuzio ASP skuzit ces i ovo, jest da je filozofija dosta razlicita ali prijelaz nije toliko tezak.