<%@ Language=VBScript %> <%Option Explicit%> <% if session("UserID") & "" = "" then server.transfer("default.asp") dim SQL, oConn, oRs, AllAddresses, CountAllAddresses, i, k dim AllCompanies, CountAllCompanies set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("ConStr") set oRs = Server.CreateObject("ADODB.Recordset") '====== Addresses ====================================== SQL = "Select AddrressID, Name, Surname, Address, TK, Town, Tel, CountryID from UserAddresses where Show=1 AND UID=" & session("UserID") &" order by UserDefault asc" oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then AllAddresses = oRs.GetRows() CountAllAddresses = oRs.RecordCount end if oRs.close '====== Companies ====================================== SQL = "Select CompID, CompName, CompActivity, CompVAT, CompDOY, CompAddress, CompTK, CompTown, CompTel, CountryID, CompFax from UserCompanies where Show=1 AND UID=" & session("UserID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then AllCompanies = oRs.GetRows() CountAllCompanies = oRs.RecordCount end if oRs.close '====== Companies ====================================== '====== Countries ======================================== dim Addr1Countries, Addr2Countries, Comp1Countries, Comp2Countries ,temp :temp = "" SQL = "Select CountryID, Country"&lang&" from Countries where CountryZone=1 order by Country"&lang oRs.open SQL, oConn, 3,1,1 while NOT oRs.EOF temp = temp & "" oRs.MoveNext wend oRs.close '====== Countries ======================================== ' ============== FTIAXNW TA SELECT TWN XWRWN ================================================================================================================================================================================================================= Addr1Countries = "" Addr2Countries = "" Comp1Countries = "" Comp2Countries = "" ' ============== FTIAXNW TA SELECT TWN XWRWN ================================================================================================================================================================================================================= ' ======== Creating Javascript address data arrays ===============%> <% ' ======== Creating Javascript address data arrays ===============%> <%=PageTitle%>
ΕΛΛΑΔΑ (ΑΘΗΝΑ)<%else%>GREECE (ATHENS)<%end if%>"> ΕΛΛΑΔΑ (ΑΘΗΝΑ)<%else%>GREECE (ATHENS)<%end if%>"> ΕΛΛΑΔΑ (ΑΘΗΝΑ)<%else%>GREECE (ATHENS)<%end if%>"> ΕΛΛΑΔΑ (ΑΘΗΝΑ)<%else%>GREECE (ATHENS)<%end if%>">
<%=BaskTitle25(lg)%>
  
<%=Basketpay(lg)%>   
<%=BName2(lg)%> <%=BName3(lg)%>
<%=BAddr(lg)%> <%=BZipCode(lg)%>
<%=BTown(lg)%> <%=BTel(lg)%>
<%=BCountry(lg)%>   
<%=BName(lg)%> <%=BActivity(lg)%>
<%=BAFM(lg)%> <%=BDOY(lg)%>
<%=BAddr(lg)%> <%=BZipCode(lg)%>
<%=BTown(lg)%> <%=BTel(lg)%>
<%=BCountry(lg)%> <%=BFAX(lg)%>
<%=BasketSend(lg)%>      
<%=BName2(lg)%> <%=BName3(lg)%>
<%=BAddr(lg)%> <%=BZipCode(lg)%>
<%=BTown(lg)%> <%=BTel(lg)%>
<%=BCountry(lg)%>   
<%=BName(lg)%> <%=BActivity(lg)%>
<%=BAFM(lg)%> <%=BDOY(lg)%>
<%=BAddr(lg)%> <%=BZipcode(lg)%>
<%=BTown(lg)%> <%=BTel(lg)%>
<%=BCountry(lg)%> <%=BFAX(lg)%>
<%=BasketWayofpay(lg)%>