<% if (SESSION("login1")="") then response.write "Nem léptél be, vagy időtúllépés van!!!!" response.end end if Session("DEV1")="HUF" Dim cikkazon Dim strSQL rendazon=CStr(Request.QueryString("razon")) %> /<%=easy5css%>" type="TEXT/CSS" rel="STYLESHEET">
<% strsql="select gf.* from gold_rend_fej gf where rend_azon="+rendazon 'strSQL="select s.vevo_szemely_kod,s.vevo_szemely_vezeteknev, s.vevo_szemely_keresztnev,s.vevo_cime,s.vevo_szemely_email,s.vevo_kod,s.vevo_neve " _ ' & " from gold_vevo_szemely s where s.vevo_szemely_kod="+szemely 'response.write strsql Set r=cnnSearch.Execute(strSQL) %>

RendID	<%=r("rend_azon")%>
Rend. Kelte:	<%=r("rend_kelte")%>
Fizetési mód:	<%=r("fizetesi_mod")%>
Számla név	<%=r("szamla_nev")%>
Számla cím:	<%=r("szamla_irszam")%> <%=r("szamla_varos")%> <%=r("szamla_cim")%>
Szállítási név	<%=r("szallitas_nev")%> <%=r("szallitas_cegnev")%> - <%=r("szallitas_telefon")%>
Szállítási cím:	<%=r("szallitas_irszam")%> <%=r("szallitas_varos")%> <%=r("szallitas_cim")%>

Megjegyzes:
<%=r("megjegyzes")%>

Tételek: <% strsql="select gt.*,c.cikkmegnevezes, c.cikkszam from gold_rend_tet gt, gold_cikk c where c.cikk_azonosito=gt.cikk_azonosito and gt.rend_azon="+rendazon Set r=cnnSearch.Execute(strSQL) do while not r.eof %> <% r.movenext loop %>

cikkszám	cikknév	mennyiség	Ár
<%=r("cikkszam")%>	<%=r("cikkmegnevezes")%>	<%=r("mennyiseg")%>	<%=r("termek_ar")%>