<% '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 Dim netnav, success success = true netnav = true if instr(Request.ServerVariables("HTTP_USER_AGENT"), "compatible") > 0 OR instr(Request.ServerVariables("HTTP_USER_AGENT"), "Gecko") > 0 then netnav = false function atb(size) if netnav then atb = CInt(size / 2 + 1) else atb = size end if end function Set rs = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN alreadygotadmin = getadminsettings() if Request.Form("posted")="1" then email = Trim(Replace(Request.form("email"), "'", "")) ordid = Trim(Replace(Request.form("ordid"), "'", "")) if NOT IsNumeric(ordid) then success = false errormsg = xxStaEr1 elseif email<>"" AND ordid<>"" then sSQL = "SELECT ordStatus,ordStatusDate,"&getlangid("statPublic",64)&",ordStatusInfo FROM orders INNER JOIN orderstatus ON orders.ordStatus=orderstatus.statID WHERE ordID=" & ordid & " AND ordEmail='" & email & "'" rs.Open sSQL,cnn,0,1 if NOT rs.EOF then ordStatus = rs("ordStatus") ordStatusDate = rs("ordStatusDate") statPublic = rs(getlangid("statPublic",64)) ordStatusInfo = Trim(rs("ordStatusInfo")&"") ' if dateadjust<>"" then ordStatusDate = DateAdd("h",dateadjust,ordStatusDate) else success = false errormsg = xxStaEr2 end if rs.Close else success = false errormsg = xxStaEnt end if end if set rs = nothing set cnn = nothing %>

<% if Request.Form("posted")="1" AND success then %> <% if ordStatusInfo<>"" then %> <% end if %> <% else %>

<%=xxStaVw%>
<%=xxStaCur & " " & ordid%>
<%=xxStatus%> :	<%=statPublic%>
<%=xxDate%> :	<%=FormatDateTime(ordStatusDate, 1)%>
<%=xxTime%> :	<%=FormatDateTime(ordStatusDate, 4)%>
<%=xxAddInf%> :	<%=ordStatusInfo%>
-

<% end if %> <% if success=false then %> <% end if %>

<%=xxStaVw%>
<%=xxStaEnt%>
<%=xxStaErr%> :	<%=errormsg%>
<%=xxOrdId%> :	" />
<%=xxEmail%> :	" />