<% '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,alldata,success,cnn,errmsg,index,allcountries success=true Set rs = Server.CreateObject("ADODB.RecordSet") Set cnn=Server.CreateObject("ADODB.Connection") cnn.open sDSN if request.form("posted")="1" then adminTweaks=0 for each objItem in request.form("admintweaks") adminTweaks = adminTweaks + Int(objItem) next adminLangSettings=0 for each objItem in request.form("adminlangsettings") adminLangSettings = adminLangSettings + Int(objItem) next sSQL = "UPDATE admin SET adminEmail='"&request.form("email")&"',adminStoreURL='"&request.form("url")&"',adminProdsPerPage='"&request.form("prodperpage")&"',adminShipping="&request.form("shipping")&",adminUSPSUser='"&request.form("USPSUser")&"',adminZipCode='"&request.form("zipcode")&"',adminCountry="&request.form("countrySetting")&",adminDelUncompleted="&request.form("deleteUncompleted")&",adminPacking="&request.form("packing")&",adminStockManage="&request.form("stockManage")&",adminHandling="&request.form("handling")&",adminTweaks="&adminTweaks&",adminDelCC="&request.form("adminDelCC")&",emailObject="&request.form("emailObject")&",smtpserver='"&request.form("smtpserver")&"',emailUser='"&request.form("emailuser")&"',emailPass='"&request.form("emailpass")&"',adminCanPostUser='"&request.form("adminCanPostUser")&"'," if request.form("emailconfirm")="ON" then sSQL = sSQL & "adminEmailConfirm=1, " else sSQL = sSQL & "adminEmailConfirm=0, " end if sSQL = sSQL & "adminUnits=" & request.form("adminUnits") for index=1 to 3 if NOT IsNumeric(Trim(request.form("currRate" & index))) then sSQL = sSQL & ",currRate" & index & "=0" else sSQL = sSQL & ",currRate" & index & "=" & request.form("currRate" & index) end if sSQL = sSQL & ",currSymbol" & index & "='" & Replace(request.form("currSymbol" & index), "'", "''") & "'" next sSQL = sSQL & ",currLastUpdate=" & datedelim & VSUSDateTime(Now()-10) & datedelim sSQL = sSQL & ",currConvUser='" & request.form("currConvUser") & "'" sSQL = sSQL & ",currConvPw='" & request.form("currConvPw") & "'" sSQL = sSQL & ",adminlanguages=" & request.form("adminlanguages") sSQL = sSQL & ",adminlangsettings=" & adminLangSettings & " WHERE adminID=1" cnn.Execute(sSQL) Application.Lock() Application("getadminsettings")="" Application.UnLock() response.write "" else sSQL = "SELECT countryID,countryName,countryCurrency FROM countries WHERE countryLCID<>0 ORDER BY countryOrder DESC, countryName" rs.Open sSQL,cnn,0,1 allcountries=rs.getrows rs.Close sSQL = "SELECT DISTINCT countryCurrency FROM countries ORDER BY countryCurrency" rs.Open sSQL,cnn,0,1 allcurrencies=rs.getrows rs.Close end if %> <% if request.form("posted")="1" AND success then %> <% else sSQL = "SELECT adminEmail,adminStoreURL,adminProdsPerPage,adminShipping,adminUSPSUser,adminZipCode,adminEmailConfirm,adminCountry,adminUnits,adminDelUncompleted,adminPacking,adminStockManage,adminHandling,adminTweaks,adminDelCC,currRate1,currSymbol1,currRate2,currSymbol2,currRate3,currSymbol3,currConvUser,currConvPw,emailObject,smtpserver,emailUser,emailPass,adminCanPostUser,adminlanguages,adminlangsettings FROM admin WHERE adminID=1" rs.Open sSQL,cnn,0,1 %> <% rs.Close end if cnn.Close set rs = nothing set cnn = nothing%>

<%=yyUpdSuc%> <%=yyNowFrd%> <%=yyNoAuto%><%=yyClkHer%>.

<% if not success then %> <% end if %> <%=yyUpdAdm%>   <%=errmsg%> <%=yyCsSym%> <%=yyCouSet%>: <% for index=0 to UBOUND(allcountries,2) response.write ""&allcountries(1,index)&""&vbCrLf next %> <%=yy3CurCon%> <%=yyNo3Con%> <%=yyConv%> 1:  <%=yyRate%> 0 then response.write rs("currRate1")%>" />   Symbol None <% for index=0 to UBOUND(allcurrencies,2) response.write ""&allcurrencies(0,index)&""&vbCrLf next %> <%=yyConv%> 2:  <%=yyRate%> 0 then response.write rs("currRate2")%>" />   Symbol None <% for index=0 to UBOUND(allcurrencies,2) response.write ""&allcurrencies(0,index)&""&vbCrLf next %> <%=yyConv%> 3:  <%=yyRate%> 0 then response.write rs("currRate3")%>" />   Symbol None <% for index=0 to UBOUND(allcurrencies,2) response.write ""&allcurrencies(0,index)&""&vbCrLf next %> <%=yyAutoLogin%> <%=yyUname%>: " /> <%=yyPass%>: " /> <%=yyLikeCE%> <%=yyConEm%>: /> <%=yyCEAddr%> <%=yyEmail%>: " /> <%=yyEmObjs%> <%=yyEmCDO%> <%=yyEmMoInf%> <%=yyHere%>. <%=yyEmGen%> <%=yyHere%>. <%=yyEmailObj%>: <%=yyNone%>"<% gotobject=false function checkemail(objnum) if objnum=rs("emailObject") then checkemail = " selected" gotobject=true else checkemail="" end if end function on error resume next err.number=0 Set EmailObj = Server.CreateObject("CDONTS.NewMail") if err.number = 0 then response.write "CDONTS" Set EmailObj = nothing err.number=0 Set EmailObj = Server.CreateObject("CDO.Message") if err.number = 0 then response.write "CDO" Set EmailObj = nothing err.number=0 Set EmailObj = Server.CreateObject("Persits.MailSender") if err.number = 0 then response.write "ASP Email (PERSITS)" Set EmailObj = nothing err.number=0 Set EmailObj = Server.CreateObject("SMTPsvg.Mailer") if err.number = 0 then response.write "ASP Mail (ServerObjects)" Set EmailObj = nothing err.number=0 Set EmailObj = Server.CreateObject("JMail.SMTPMail") if err.number = 0 then response.write "JMail (Dimac)" Set EmailObj = nothing err.number=0 Set EmailObj = Server.CreateObject("SoftArtisans.SMTPMail") if err.number = 0 then response.write "SMTPMail (SoftArtisans)" Set EmailObj = nothing on error goto 0 %> <%=yySMTPEn%> <%=yySMTPSe%>: " /> <%=yySMTPSt%> <%=yyUname%>: " /> <%=yyPass%>: " /> <%=yyURLEx & " " & yyExample%> <% guessURL ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO") wherevs = InStr(guessURL,"vsadmin") if wherevs > 0 then guessURL = Left(guessURL,wherevs-1) else guessURL = "http://www.myurl.com/mystore/" end if response.write guessURL %> <%=yyStoreURL%>: " /> <%=yyHMPPP%> <%=yyPPP%>: " /> <%=yyHandEx%> <%=yyHanChg%>: " /> <%=yySelShp%> <%=yyShpTyp%>: <%=yyNoShp%> ><%=yyFlatShp%> ><%=yyWghtShp%> ><%=yyPriShp%> ><%=yyUSPS%> ><%=yyUPS%> ><%=yyCanPos%> <%=yyHowPck%> <%=yyOnlyAf%> <%=yyPackPr%>: <%=yyPckSep%> ><%=yyPckTog%> <%=yyIfUSPS%> <%=yyUPSForm%> <%=yyHere%>. <%=yyUname%>: " /> <%=yyEnMerI%> <%=yyRetID%>: " /> <%=yyEntZip%> <%=yyZip%>: " /> <%=yyUPSUnt%> <%=yyUntNote%> <%=yyShpUnt%>: ><%=yyUntLbs%> ><%=yyUntKgs%> <%=yyStkMgt%> <%=yyTimUnv%> <%=yyConUnv%>: <%=yyNoStk%> >1 <%=yyHours%> >2 <%=yyHours%> >3 <%=yyHours%> >4 <%=yyHours%> >6 <%=yyHours%> >8 <%=yyHours%> >12 <%=yyHours%> How many languages will this store support? Number of languages: 1 >2 >3 <%=yyWhMull%> <%=yyLonrel%> <%=yyLaSet%>: ><%=yyPrName%> ><%=yyDesc%> ><%=yyLnDesc%> ><%=yyCntNam%> ><%=yyPOName%> ><%=yyPOChoi%> ><%=yyOrdSta%> ><%=yyPayMet%> ><%=yyCatNam%> ><%=yyCatDes%> ><%=yyDisTxt%> <%=yyDelUnc%> <%=yyDelAft%>: <%=yyNever%> >1 <%=yyDay%> >2 <%=yyDays%> >3 <%=yyDays%> >4 <%=yyDays%> >1 <%=yyWeek%> >2 <%=yyWeeks%> <%=yyDelCC%> <%=yyDelAft%>: <%=yyNever%> >1 <%=yyDay%> >2 <%=yyDays%> >3 <%=yyDays%> >4 <%=yyDays%> >1 <%=yyWeek%> >2 <%=yyWeeks%> <%=yyAdmTwk%> <%=yyMulSel%> <%=yyApTwk%>: ><%=yySmpCnt%> ><%=yySmpOpt%> ><%=yySmpSec%>