<% 'This code is copyright (c) Internet Business Solutions SL, all rights reserved. 'The contents of this file are protect under law as the intellectual property 'of Internet Business Solutions SL. Any use, reproduction, disclosure or copying 'of any kind without the express and written permission of Internet Business 'Solutions SL is forbidden. 'Author: Vince Reid, vince@virtualred.net if storesessionvalue="" then storesessionvalue="virtualstore" if Session("loggedon") <> storesessionvalue OR disallowlogin=TRUE then response.end Dim sSQL,rs,cnn,success,showaccount,addsuccess,alldata,index,allcountries,rowcounter,sd,ed,errmsg addsuccess = true success = true showaccount = true dorefresh = false if dateadjust="" then dateadjust=0 thedate = DateAdd("h",dateadjust,Now()) thedate = DateSerial(year(thedate),month(thedate),day(thedate)) Set rs = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN alreadygotadmin = getadminsettings() if request.form("act")="domodify" then sSQL = "UPDATE dropshipper SET dsEmail='"&replace(trim(request.form("Email")),"'","''") & "'," & _ "dsName='"&replace(trim(request.form("Name")),"'","''") & "'," & _ "dsAddress='"&replace(trim(request.form("Address")),"'","''") & "'," & _ "dsCity='"&replace(trim(request.form("City")),"'","''") & "'," & _ "dsState='"&replace(trim(request.form("State")),"'","''") & "'," & _ "dsCountry='"&replace(trim(request.form("Country")),"'","''") & "'," & _ "dsZip='"&replace(trim(request.form("Zip")),"'","''") & "'," & _ "dsAction="&replace(trim(request.form("dsAction")),"'","''") & " " & _ "WHERE dsID=" & replace(trim(request.form("dsID")),"'","") cnn.Execute(sSQL) dorefresh=true elseif request.form("act")="doaddnew" then sSQL = "INSERT INTO dropshipper (dsEmail,dsName,dsAddress,dsCity,dsState,dsCountry,dsZip,dsAction) VALUES (" & _ "'"&replace(trim(request.form("Email")),"'","''") & "'," & _ "'"&replace(trim(request.form("Name")),"'","''") & "'," & _ "'"&replace(trim(request.form("Address")),"'","''") & "'," & _ "'"&replace(trim(request.form("City")),"'","''") & "'," & _ "'"&replace(trim(request.form("State")),"'","''") & "'," & _ "'"&replace(trim(request.form("Country")),"'","''") & "'," & _ "'"&replace(trim(request.form("Zip")),"'","''") & "'," & _ ""&replace(trim(request.form("dsAction")),"'","''") & ")" cnn.Execute(sSQL) dorefresh=true elseif request.form("act")="delete" then sSQL = "DELETE FROM dropshipper WHERE dsID=" & trim(request.form("id")) cnn.Execute(sSQL) dorefresh=true end if if dorefresh then response.write "" end if if dorefresh then %>

<%=yyUpdSuc%>

<%=yyNowFrd%>

<%=yyNoAuto%> <%=yyClkHer%>.

<% elseif trim(request.form("act"))="modify" OR trim(request.form("act"))="addnew" then if trim(request.form("act"))="modify" then dsID=trim(request.form("id")) sSQL = "SELECT dsName,dsAddress,dsCity,dsState,dsZip,dsCountry,dsEmail,dsAction FROM dropshipper WHERE dsID="&dsID rs.Open sSQL,cnn,0,1 if NOT rs.EOF then dsName = rs("dsName") dsAddress = rs("dsAddress") dsCity = rs("dsCity") dsState = rs("dsState") dsZip = rs("dsZip") dsCountry = rs("dsCountry") dsEmail = rs("dsEmail") dsAction = rs("dsAction") end if rs.Close end if %>

<% if trim(request.form("act"))="modify" then %> <% else %> <% end if %>

<%=yyDSAdm%>
*<%=yyName%>:		*<%=yyEmail%>:
*<%=yyAddress%>:		*<%=yyCity%>:
*<%=yyState%>:		*<%=yyCountry%>:
*<%=yyZip%>:		<%=yyActns%>:
<%=yyDSInf%>

<% else if Request("sd") = "" then sd=DateSerial(DatePart("yyyy",thedate),DatePart("m",thedate),1) else sd=Request("sd") end if if Request("ed") = "" then ed=thedate else ed=Request("ed") end if on error resume next sd = DateValue(sd) ed = Datevalue(ed) if err.number <> 0 then sd = DateSerial(DatePart("yyyy",thedate),DatePart("m",thedate),1) ed = thedate success=false errmsg=yyDatInv end if on error goto 0 tdt = DateValue(sd) tdt2 = DateValue(ed)+1 if mysqlserver=true then sSQL = "SELECT dsID,dsName,dsEmail,SUM(cartProdPrice*cartQuantity) FROM dropshipper LEFT JOIN orders ON dropshipper.dsID=orders.ordAffiliate WHERE ordStatus>=3 AND ordDate BETWEEN "&datedelim&VSUSDate(tdt)&datedelim&" AND "&datedelim&VSUSDate(tdt2)&datedelim&" OR orders.ordAffiliate IS NULL GROUP BY affilID ORDER BY affilID" else sSQL = "SELECT dsID,dsName,dsEmail,(SELECT SUM(cartProdPrice*cartQuantity) FROM cart INNER JOIN products ON cart.cartProdID=products.pID WHERE dsID=pDropship AND cartCompleted=1 AND cartDateAdded BETWEEN "&datedelim&VSUSDate(tdt)&datedelim&" AND "&datedelim&VSUSDate(tdt2)&datedelim&") FROM dropshipper ORDER BY dsName" end if rs.Open sSQL,cnn,0,1 if NOT rs.EOF then alldata=rs.GetRows() rs.Close %>

<% if NOT IsArray(alldata) then %> <% else for index=0 to UBOUND(alldata,2) %> <% next end if %>

<%=yyDSAdm%>
<% if NOT success then response.write " "&errmsg&" " %> <%=yyAffBet%>: <%=yyAnd%>:
<%=yyAffFrm%>: <%=yyTo%>:
<%=yyID%>	<%=yyName%>	<%=yyEmail%>	<%=yyTotSal%>	<%=yyModify%>	<%=yyDelete%>
<%=yyNoAff%>
<%=alldata(0,index)%>	<%=alldata(1,index)%>	<%=alldata(2,index)%>	<%if NOT IsNumeric(alldata(3,index)) then response.write "-" else response.write FormatEuroCurrency(alldata(3,index))%>

<%=yyAdmHom%>

<% end if cnn.Close set rs = nothing set cnn = nothing %>