|
|
Post Reply ![]() |
Author | |
debbie ![]() Newbie ![]() Joined: June/25/04 Location: United States Status: Offline Points: 17 |
![]() ![]() ![]() ![]() ![]() Posted: September/04/09 at 9:28pm |
I'm testing my site but when I try to buy a product I get the following error. Can anyone tell me what I'm doing wrong.
Server Error in '/' Application. ------------------------------------------------------------ -------------------- Compilation Error Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately. Compiler Error Message: BC30466: Namespace or type 'Transactions' for the Imports 'Transactions' cannot be found. Source Error: Line 31: Imports System.Web.UI.HtmlControls Line 32: Imports System.Web.UI.WebControls Line 33: Imports Transactions Line 34: Line 35: Namespace ASP Source File: C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\5cc0a95c\ce61009a\nb1agryo.0.vb Line: 33 Show Detailed Compiler Output: c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f1 1d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e 089\system.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\d55ea447\820dea78_ 692dca01\csimpleado.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c56 1934e089\system.data.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\d001dc3e\2260417a_ 692dca01\rl.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b0 3f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\194403e3\68f63379_ 692dca01\header.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\dfd41d59\e0dd9c79_ 692dca01\lr.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__ b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\1e5806b0\e0dd9c79_ 692dca01\common.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.50 00.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\40e53756\fc850d7c_ 692dca01\ecprocessor.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561 934e089\system.xml.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\2c51d048\68f63379_ 692dca01\ccommon.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\a51fe99b\864e6978_ 692dca01\cmail.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5 f7f11d50a3a\system.drawing.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\assembly\dl2\5a92d989\d8013c78_ 692dca01\cusps.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\5cc0a95c\ce61009a\-5yrr5qn.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\5cc0a95c\ce61009a\nb1agryo.dll" /debug- "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\5cc0a95c\ce61009a\nb1agryo.0.vb" Microsoft (R) Visual Basic .NET Compiler version 7.10.7017.4 for Microsoft (R) .NET Framework version 1.1.4322.2407 Copyright (C) Microsoft Corporation 1987-2002. All rights reserved. C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\5cc0a95c\ce61009a\nb1agryo.0.vb(33) : error BC30466: Namespace or type 'Transactions' for the Imports 'Transactions' cannot be found. Imports Transactions ~~~~~~~~~~~~ Show Complete Compilation Source: Line 1: '--------------------------------- --------------------------------------------- Line 2: ' <autogenerated> Line 3: ' Thi s code was generated by a tool. Line 4: ' Run time Version: 1.1.4322.2407 Line 5: ' Line 6: ' Cha nges to this file may cause incorrect behavior and will be lost if Line 7: ' the code is regenerated. Line 8: ' </autogenerated> Line 9: '--------------------------------- --------------------------------------------- Line 10: Line 11: Option Strict Off Line 12: Option Explicit On Line 13: Line 14: Imports ADO Line 15: Imports ASP Line 16: Imports Mailer Line 17: Imports Microsoft.VisualBasic Line 18: Imports SalesCart Line 19: Imports System Line 20: Imports System.Collections Line 21: Imports System.Collections.Specialized Line 22: Imports System.Configuration Line 23: Imports System.Globalization Line 24: Imports System.Text Line 25: Imports System.Text.RegularExpressions Line 26: Imports System.Web Line 27: Imports System.Web.Caching Line 28: Imports System.Web.Security Line 29: Imports System.Web.SessionState Line 30: Imports System.Web.UI Line 31: Imports System.Web.UI.HtmlControls Line 32: Imports System.Web.UI.WebControls Line 33: Imports Transactions Line 34: Line 35: Namespace ASP Line 36: Line 37: Public Class shop1_aspx Line 38: &nb sp; Inherits System.Web.UI.Page Line 39: &nb sp; Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpAsyncHandler Line 40: &nb sp; Line 41: &nb sp; Private Shared __autoHandlers As Integer Line 42: &nb sp; Line 43: &nb sp; Private Shared __initialized As Boolean = false Line 44: &nb sp; Line 45: &nb sp; Private Shared __fileDependencies As System.Collections.ArrayList Line 46: &nb sp; Line 47: &nb sp; Line 48: &nb sp; #ExternalSource("E:\Inetpub\media0507\cgi-bin\GetOr der.aspx",3) Line 49: &nb sp; Line 50: Function GetOrder() Line 51: Dim ipaddress, thedate, thetime, SQLStmt Line 52: Dim SimpleAdo, Status, RS, theorderid, MerchantID Line 53: ' Line 54: ' Include file that generates an orderid if necessary Line 55: ' Line 56: ' DO NOT CHANGE- UNLESS YOU REALLY KNOW WHAT YOUR DOING! Line 57: ' Line 58: ' get session order# Line 59: theorderi d = Session("orderid") Line 60: ' get merchant id# Line 61: MerchantI D = Session("mallid") Line 62: Line 63: If Len(MerchantID) <= 0 Then Line 64: &nb sp; MerchantID = 0 Line 65: &nb sp; Session("mallid") = 0 Line 66: End If Line 67: ' Line 68: ' generate a new order# if none is in session Line 69: If theorderid = 0 OR Len(theorderid) <= 0 Then Line 70: &nb sp; ipaddress = Request.ServerVariables("REMOTE_ADDR") Line 71: Line 72: &nb sp; thedate = String.Format("{0:d}", Now()) 'get the date Line 73: &nb sp; thetime = String.Format("{0:T}", Now()) 'get the time Line 74: Line 75: &nb sp; ' build a unique string to add to the database Line 76: &nb sp; ipaddress = ipaddress & "." & thedate.ToString() & thetime Line 77: Line 78: &nb sp; SQLStmt = "INSERT INTO [order] (IP, Merchant) VALUES('" & ipaddress & "', " & MerchantID & ")" Line 79: &nb sp; SimpleAdo = New CSimpleAdo Line 80: &nb sp; SimpleAdo.setConnectionString = Session("ConnectionString") Line 81: &nb sp; Status = SimpleAdo.ExecuteInsertUpdate(SQLStmt) Line 82: Line 83: &nb sp; SQLStmt = "SELECT orderid FROM [order] WHERE IP = ('" & ipaddress & "')" Line 84: &nb sp; SimpleAdo = New CSimpleAdo Line 85: &nb sp; SimpleAdo.setConnectionString = Session("ConnectionString") Line 86: &nb sp; RS = SimpleAdo.getRecordSet(SQLStmt) Line 87: Line 88: &nb sp; theorderid = RS.Fields(0).Value Line 89: &nb sp; order = theorderid Line 90: &nb sp; Line 91: &nb sp; If Session("DBType") = 1 Then Line 92: &nb sp; SQLStmt = "INSERT INTO [customer] (orderid) VALUES (" & theorderid & ")" Line 93: &nb sp; SimpleAdo = New CSimpleAdo Line 94: &nb sp; SimpleAdo .setConnectionString = Session("ConnectionString") Line 95: &nb sp; Status = SimpleAdo.ExecuteInsertUpdate(SQLStmt) Line 96: Line 97: &nb sp; SQLStmt = "INSERT INTO [payment] (orderid) VALUES (" & theorderid & ")" Line 98: &nb sp; SimpleAdo = New CSimpleAdo Line 99: &nb sp; SimpleAdo .setConnectionString = Session("ConnectionString") Line 100: Status = SimpleAdo.ExecuteInsertUpdate(SQLStmt) Line 101: Else Line 102: SQLStmt = "INSERT INTO [NewOrder] (customer.orderid, payment.orderid) VALUES(" & theorderid & "," & theorderid & ")" Line 103: SimpleAdo = New CSimpleAdo Line 104: SimpleAdo .setConnectionString = Session("ConnectionString") Line 105: Status = SimpleAdo.ExecuteInsertUpdate(SQLStmt) Line 106: End If Line 107: Line 108: ' save the order# as a session variable Line 109: Session("orderid")=theorderid Line 110: Line 111: End If Line 112: Line 113: SimpleAdo = nothing Line 114: RS = nothing Line 115: Line 116: GetOrder = theorderid Line 117: Line 118: End Function Line 119: Line 120: &n bsp;#End ExternalSource Line 121: Line 122: Line 123: &n bsp;#ExternalSource("E:\Inetpub\media0507\cgi-bin\codepage.a spx",5) Line 124: Line 125: '----------------------------------------------------------- --------- Line 126: ' ComCity CodePage Line 127: ' Line 128: ' Copyright (C) 1995-2003 ComCity Corporation. All Rights Reserved. SalesCart Family of Products. Line 129: ' Line 130: ' Line 131: ' Line 132: ' Set the CodePage for SalesCart Software Line 133: ' Line 134: ' A codepage is a character set that can include numbers, punctuation marks, Line 135: ' and other glyphs. Different languages and locales may use different Line 136: ' codepages. For example, ANSI code page 1252 is used for American Line 137: ' English and most European languages; OEM code page 932 is used for Line 138: ' Japanese Kanji. Line 139: Line 140: ' A codepage can be represented in a table as a mapping of characters to Line 141: ' single-byte values or multibyte values. Many codepages share the ASCII Line 142: ' character set for characters in the range 0x00 - 0x7F. Line 143: Line 144: Line 145: '----------------------------------------------------------- --------- Line 146: Sub SetCodePage() Line 147: Line 148: Session.codepage = 1252 Line 149: On Error Resume Next Line 150: Session.LCID = Session ("ComboLCID") Line 151: If Not (err.number = 0) Then Line 152: Response.write ("<b>Can't set the Session LCID to the value specified</b><p>") Line 153: Response.write ("Trying to set the Value to = " & Session ("ComboLCID") & "<br>") Line 154: Response.write ("If value is Null, then you have no session") Line 155: err.clear Line 156: Response.end Line 157: Else Line 158: err.clear Line 159: End If Line 160: Line 161: End Sub Line 162: Line 163: ' header.asp is the header file for all classes, functions and methods Line 164: ' CSimplAdo.asp is the class definition file for ado/sql connections Line 165: Line 166: &n bsp;#End ExternalSource Line 167: Line 168: Line 169: &n bsp;#ExternalSource("E:\Inetpub\media0507\cgi-bin\header.asp x",3) Line 170: Line 171: '----------------------------------------------------------- --------- Line 172: ' ComCity Header File Line 173: ' Line 174: ' Copyright (c) 1995-2003 ComCity Corporation. All Rights Reserved. Line 175: ' Line 176: ' Line 177: ' Line 178: ' Define all Function Calls, Subroutines, and classes in this file Line 179: ' Line 180: ' CREATED February 13, 2001 by mtb Line 181: ' Line 182: ' MODIFICATIONS Line 183: '----------------------------------------------------------- --------- Line 184: ' 3/13/01 &nbs p; mtb & nbsp; Needs Release 1.0 Line 185: ' 2/12/02 mtb& nbsp; & nbsp; & nbsp; Needs Release 2.0 Line 186: ' Line 187: ' Line 188: '----------------------------------------------------------- --------- Line 189: '**Start Encode** Line 190: Line 191: '----------------------------------------------------------- --------- Line 192: ' SUBROUTINES Line 193: '----------------------------------------------------------- --------- Line 194: Line 195: '----------------------------------------------------------- --------- Line 196: ' FUNCTIONS Line 197: '----------------------------------------------------------- --------- Line 198: ' FGETVAR: Returns a varible from a Request object and initializes it if its empty Line 199: ' Call FGetVar(variable name,default,type) type =s for string; n for number Line 200: '----------------------------------------------------------- --------- Line 201: Public Function FGetVar(var,thedefault,thetype) Line 202: Dim MyVar Line 203: ' Perform IDC style DefaultParameter processing. Line 204: If Len(Request(var)) <= 0 Then Line 205: 'The field is empty. Handle the empty field condition Line 206: If thetype = "s" Then Line 207: MyVar = (CStr(thedefault)) Line 208: Else Line 209: MyVar = thedefault Line 210: End IF Line 211: Else Line 212: 'The field is not empty. Process the value Line 213: 'First handle error conditions Line 214: If IsNumeric(Request(var)) = False and thetype = "n" Then Line 215: Response.write ("Expecting a number instead of a string for: " & var) Line 216: Response.end Line 217: End If Line 218: Line 219: If thetype = "n" Then Line 220: MyVar = GetABS(Request(var)) Line 221: Else Line 222: MyVar = Request(var) Line 223: ' Escape single quote. Replace single quote with two single quotes Line 224: MyVar = Replace(MyVar,"'","''") Line 225: ' " (double quote) input Line 226: MyVar = Replace(MyVar,"""", "" ) Line 227: ' ) (close parenthesis) Line 228: MyVar = Replace(MyVar,")", "" ) Line 229: ' ( (open parenthesis) Line 230: MyVar = Replace(MyVar,"(", "" ) Line 231: ' ; (semi-colon) Line 232: MyVar = Replace(MyVar,";", "" ) Line 233: ' - (dash) Line 234: MyVar = Replace(MyVar,"-", "" ) Line 235: ' | (pipe) Line 236: MyVar = Replace(MyVar,"|", "" ) Line 237: Line 238: End If Line 239: Line 240: End If Line 241: Line 242: FGetVar = MyVar Line 243: End Function Line 244: Line 245: Function GetABS(n) Line 246: If n < 0 Then Line 247: return n*-1 Line 248: Else Line 249: return n Line 250: End if Line 251: End Function Line 252: Line 253: Sub SetHTMLEmail Line 254: Session("HTMLEmailType")="PLAI N" Line 255: End Sub Line 256: Line 257: Line 258: &n bsp;#End ExternalSource Line 259: Line 260: Line 261: &n bsp;#ExternalSource("E:\Inetpub\media0507\cgi-bin\adovbs.asp x",4) Line 262: Line 263: '----------------------------------------------------------- --------- Line 264: ' Microsoft ADO Line 265: ' Line 266: ' (c) 1996 Microsoft Corporation. All Rights Reserved. Line 267: ' Line 268: ' Line 269: ' Line 270: ' ADO constants include file for VBScript Line 271: ' Line 272: '----------------------------------------------------------- --------- Line 273: Line 274: '---- CursorTypeEnum Values ---- Line 275: Const adOpenForwardOnly = 0 Line 276: Const adOpenKeyset = 1 Line 277: Const adOpenDynamic = 2 Line 278: Const adOpenStatic = 3 Line 279: Line 280: '---- CursorOptionEnum Values ---- Line 281: Const adHoldRecords = &H00000100 Line 282: Const adMovePrevious = &H00000200 Line 283: Const adAddNew = &H01000400 Line 284: Const adDelete = &H01000800 Line 285: Const adUpdate = &H01008000 Line 286: Const adBookmark = &H00002000 Line 287: Const adApproxPosition = &H00004000 Line 288: Const adUpdateBatch = &H00010000 Line 289: Const adResync = &H00020000 Line 290: Const adNotify = &H00040000 Line 291: Line 292: '---- LockTypeEnum Values ---- Line 293: Const adLockReadOnly = 1 Line 294: Const adLockPessimistic = 2 Line 295: Const adLockOptimistic = 3 Line 296: Const adLockBatchOptimistic = 4 Line 297: Line 298: '---- ExecuteOptionEnum Values ---- Line 299: Const adRunAsync = &H00000010 Line 300: Line 301: '---- ObjectStateEnum Values ---- Line 302: Const adStateClosed = &H00000000 Line 303: Const adStateOpen = &H00000001 Line 304: Const adStateConnecting = &H00000002 Line 305: Const adStateExecuting = &H00000004 Line 306: Line 307: '---- CursorLocationEnum Values ---- Line 308: Const adUseServer = 2 Line 309: Const adUseClient = 3 Line 310: Line 311: '---- DataTypeEnum Values ---- Line 312: Const adEmpty = 0 Line 313: Const adTinyInt = 16 Line 314: Const adSmallInt = 2 Line 315: Const adInteger = 3 Line 316: Const adBigInt = 20 Line 317: Const adUnsignedTinyInt = 17 Line 318: Const adUnsignedSmallInt = 18 Line 319: Const adUnsignedInt = 19 Line 320: Const adUnsignedBigInt = 21 Line 321: Const adSingle = 4 Line 322: Const adDouble = 5 Line 323: Const adCurrency = 6 Line 324: Const adDecimal = 14 Line 325: Const adNumeric = 131 Line 326: Const adBoolean = 11 Line 327: Const adError = 10 Line 328: Const adUserDefined = 132 Line 329: Const adVariant = 12 Line 330: Const adIDispatch = 9 Line 331: Const adIUnknown = 13 Line 332: Const adGUID = 72 Line 333: Const adDate = 7 Line 334: Const adDBDate = 133 Line 335: Const adDBTime = 134 Line 336: Const adDBTimeStamp = 135 Line 337: Const adBSTR = 8 Line 338: Const adChar = 129 Line 339: Const adVarChar = 200 Line 340: Const adLongVarChar = 201 Line 341: Const adWChar = 130 Line 342: Const adVarWChar = 202 Line 343: Const adLongVarWChar = 203 Line 344: Const adBinary = 128 Line 345: Const adVarBinary = 204 Line 346: Const adLongVarBinary = 205 Line 347: Line 348: '---- FieldAttributeEnum Values ---- Line 349: Const adFldMayDefer = &H00000002 Line 350: Const adFldUpdatable = &H00000004 Line 351: Const adFldUnknownUpdatable = &H00000008 Line 352: Const adFldFixed = &H00000010 Line 353: Const adFldIsNullable = &H00000020 Line 354: Const adFldMayBeNull = &H00000040 Line 355: Const adFldLong = &H00000080 Line 356: Const adFldRowID = &H00000100 Line 357: Const adFldRowVersion = &H00000200 Line 358: Const adFldCacheDeferred = &H00001000 Line 359: Line 360: '---- EditModeEnum Values ---- Line 361: Const adEditNone = &H0000 Line 362: Const adEditInProgress = &H0001 Line 363: Const adEditAdd = &H0002 Line 364: Const adEditDelete = &H0004 Line 365: Line 366: '---- RecordStatusEnum Values ---- Line 367: Const adRecOK = &H0000000 Line 368: Const adRecNew = &H0000001 Line 369: Const adRecModified = &H0000002 Line 370: Const adRecDeleted = &H0000004 Line 371: Const adRecUnmodified = &H0000008 Line 372: Const adRecInvalid = &H0000010 Line 373: Const adRecMultipleChanges = &H0000040 Line 374: Const adRecPendingChanges = &H0000080 Line 375: Const adRecCanceled = &H0000100 Line 376: Const adRecCantRelease = &H0000400 Line 377: Const adRecConcurrencyViolation = &H0000800 Line 378: Const adRecIntegrityViolation = &H0001000 Line 379: Const adRecMaxChangesExceeded = &H0002000 Line 380: Const adRecObjectOpen = &H0004000 Line 381: Const adRecOutOfMemory = &H0008000 Line 382: Const adRecPermissionDenied = &H0010000 Line 383: Const adRecSchemaViolation = &H0020000 Line 384: Const adRecDBDeleted = &H0040000 Line 385: Line 386: '---- GetRowsOptionEnum Values ---- Line 387: Const adGetRowsRest = -1 Line 388: Line 389: '---- PositionEnum Values ---- Line 390: Const adPosUnknown = -1 Line 391: Const adPosBOF = -2 Line 392: Const adPosEOF = -3 Line 393: Line 394: '---- enum Values ---- Line 395: Const adBookmarkCurrent = 0 Line 396: Const adBookmarkFirst = 1 Line 397: Const adBookmarkLast = 2 Line 398: Line 399: '---- MarshalOptionsEnum Values ---- Line 400: Const adMarshalAll = 0 Line 401: Const adMarshalModifiedOnly = 1 Line 402: Line 403: '---- AffectEnum Values ---- Line 404: Const adAffectCurrent = 1 Line 405: Const adAffectGroup = 2 Line 406: Const adAffectAll = 3 Line 407: Line 408: '---- FilterGroupEnum Values ---- Line 409: Const adFilterNone = 0 Line 410: Const adFilterPendingRecords = 1 Line 411: Const adFilterAffectedRecords = 2 Line 412: Const adFilterFetchedRecords = 3 Line 413: Const adFilterPredicate = 4 Line 414: Line 415: '---- SearchDirection Values ---- Line 416: Const adSearchForward = 1 Line 417: Const adSearchBackward = -1 Line 418: Line 419: '---- ConnectPromptEnum Values ---- Line 420: Const adPromptAlways = 1 Line 421: Const adPromptComplete = 2 Line 422: Const adPromptCompleteRequired = 3 Line 423: Const adPromptNever = 4 Line 424: Line 425: '---- ConnectModeEnum Values ---- Line 426: Const adModeUnknown = 0 Line 427: Const adModeRead = 1 Line 428: Const adModeWrite = 2 Line 429: Const adModeReadWrite = 3 Line 430: Const adModeShareDenyRead = 4 Line 431: Const adModeShareDenyWrite = 8 Line 432: Const adModeShareExclusive = &Hc Line 433: Const adModeShareDenyNone = &H10 Line 434: Line 435: '---- IsolationLevelEnum Values ---- Line 436: Const adXactUnspecified = &Hffffffff Line 437: Const adXactChaos = &H00000010 Line 438: Const adXactReadUncommitted = &H00000100 Line 439: Const adXactBrowse = &H00000100 Line 440: Const adXactCursorStability = &H00001000 Line 441: Const adXactReadCommitted = &H00001000 Line 442: Const adXactRepeatableRead = &H00010000 Line 443: Const adXactSerializable = &H00100000 Line 444: Const adXactIsolated = &H00100000 Line 445: Line 446: '---- XactAttributeEnum Values ---- Line 447: Const adXactCommitRetaining = &H00020000 Line 448: Const adXactAbortRetaining = &H00040000 Line 449: Line 450: '---- PropertyAttributesEnum Values ---- Line 451: Const adPropNotSupported = &H0000 Line 452: Const adPropRequired = &H0001 Line 453: Const adPropOptional = &H0002 Line 454: Const adPropRead = &H0200 Line 455: Const adPropWrite = &H0400 Line 456: Line 457: '---- ErrorValueEnum Values ---- Line 458: Const adErrInvalidArgument = &Hbb9 Line 459: Const adErrNoCurrentRecord = &Hbcd Line 460: Const adErrIllegalOperation = &Hc93 Line 461: Const adErrInTransaction = &Hcae Line 462: Const adErrFeatureNotAvailable = &Hcb3 Line 463: Const adErrItemNotFound = &Hcc1 Line 464: Const adErrObjectInCollection = &Hd27 Line 465: Const adErrObjectNotSet = &Hd5c Line 466: Const adErrDataConversion = &Hd5d Line 467: Const adErrObjectClosed = &He78 Line 468: Const adErrObjectOpen = &He79 Line 469: Const adErrProviderNotFound = &He7a Line 470: Const adErrBoundToCommand = &He7b Line 471: Const adErrInvalidParamInfo = &He7c Line 472: Const adErrInvalidConnection = &He7d Line 473: Const adErrStillExecuting = &He7f Line 474: Const adErrStillConnecting = &He81 Line 475: Const adErrUnsafeOperation = &He84 Line 476: Line 477: '---- ParameterAttributesEnum Values ---- Line 478: Const adParamSigned = &H0010 Line 479: Const adParamNullable = &H0040 Line 480: Const adParamLong = &H0080 Line 481: Line 482: '---- ParameterDirectionEnum Values ---- Line 483: Const adParamUnknown = &H0000 Line 484: Const adParamInput = &H0001 Line 485: Const adParamOutput = &H0002 Line 486: Const adParamInputOutput = &H0003 Line 487: Const adParamReturnValue = &H0004 Line 488: Line 489: '---- CommandTypeEnum Values ---- Line 490: Const adCmdUnknown = &H0008 Line 491: Const adCmdText = &H0001 Line 492: Const adCmdTable = &H0002 Line 493: Const adCmdStoredProc = &H0004 Line 494: Line 495: '---- SchemaEnum Values ---- Line 496: Const adSchemaProviderSpecific = -1 Line 497: Const adSchemaAsserts = 0 Line 498: Const adSchemaCatalogs = 1 Line 499: Const adSchemaCharacterSets = 2 Line 500: Const adSchemaCollations = 3 Line 501: Const adSchemaColumns = 4 Line 502: Const adSchemaCheckConstraints = 5 Line 503: Const adSchemaConstraintColumnUsage = 6 Line 504: Const adSchemaConstraintTableUsage = 7 Line 505: Const adSchemaKeyColumnUsage = 8 Line 506: Const adSchemaReferentialContraints = 9 Line 507: Const adSchemaTableConstraints = 10 Line 508: Const adSchemaColumnsDomainUsage = 11 Line 509: Const adSchemaIndexes = 12 Line 510: Const adSchemaColumnPrivileges = 13 Line 511: Const adSchemaTablePrivileges = 14 Line 512: Const adSchemaUsagePrivileges = 15 Line 513: Const adSchemaProcedures = 16 Line 514: Const adSchemaSchemata = 17 Line 515: Const adSchemaSQLLanguages = 18 Line 516: Const adSchemaStatistics = 19 Line 517: Const adSchemaTables = 20 Line 518: Const adSchemaTranslations = 21 Line 519: Const adSchemaProviderTypes = 22 Line 520: Const adSchemaViews = 23 Line 521: Const adSchemaViewColumnUsage = 24 Line 522: Const adSchemaViewTableUsage = 25 Line 523: Const adSchemaProcedureParameters = 26 Line 524: Const adSchemaForeignKeys = 27 Line 525: Const adSchemaPrimaryKeys = 28 Line 526: Const adSchemaProcedureColumns = 29 Line 527: Line 528: &n bsp;#End ExternalSource Line 529: Line 530: Line 531: &n bsp;#ExternalSource("E:\Inetpub\media0507\cgi-bin\checkpost. aspx",7) Line 532: Line 533: Line 534: Dim emailErr, postPrice, partNum, fpDBPath, dwDBPath Line 535: Dim SQLStr, quotage, partNumFound, priceTest, realPrice Line 536: Dim reason Line 537: Line 538: Sub CheckPost() Line 539: Line 540: 'Set to 0 to email error message to merchant Line 541: 'Set to 1 to display error message on error page Line 542: 'Set to 2 to disable security Line 543: emailErr = 0 Line 544: Line 545: 'Posted variables Line 546: postPrice = request("price") Line 547: partNum = request("part") Line 548: Line 549: 'FrontPage products database path Line 550: fpDBPath = Application("Products1_ConnectionString") Line 551: Line 552: 'Dreamweaver products database path Line 553: dwDBPath = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "/fpdb/products.mdb;" Line 554: Line 555: 'Search string for Products Table Line 556: SQLStr = "SELECT Price FROM Products " Line 557: SQLStr = SQLStr & "WHERE SKU='" & partNum & "'; " Line 558: Line 559: 'Flag that determines if product component uses single or double qoutes Line 560: quotage = 0 Line 561: Line 562: 'Number of part numbers found Line 563: partNumFound = 0 Line 564: Line 565: 'Flag if price has been lowered Line 566: priceTest = 0 Line 567: Line 568: 'Variable to check posted price against Line 569: realPrice = 0 Line 570: Line 571: 'Security notification reason Line 572: reason = "" Line 573: Line 574: If emailErr = 2 Then Line 575: Call SetContinue() Line 576: Else Line 577: If Session("myemail") = "" or Session("myemail") = "no-one@domain.com" or Session ("ComboEmailType") = 0 Then Line 578: ' Email functionality is turned off, defaulted or has no From address Line 579: Call SetContinue() Line 580: Else Line 581: Call ContCheck() Line 582: End If Line 583: End If Line 584: Line 585: End Sub Line 586: Line 587: Line 588: Sub SetContinue() Line 589: Line 590: Dim refererGood Line 591: Line 592: If session("path")="" Then Line 593: refererGood = checkReferer() Line 594: If refererGood Then Line 595: Session("continue") = Request.ServerVariables("HTTP_REFERER") Line 596: Else Line 597: Session("continue") = "default.htm" Line 598: End If Line 599: Else Line 600: Session("continue") = Session("path") Line 601: End If Line 602: Line 603: End Sub Line 604: Line 605: Line 606: Sub securityNotification() Line 607: Line 608: Dim msgBody, objMail, mailres Line 609: Line 610: If emailErr = 0 Then Line 611: Line 612: msgBody = "This is an automated response sent from SalesCart" & vbCrLf & vbCrLf Line 613: msgBody = msgBody & "Security Error: " & reason & vbCrLf & vbCrLf Line 614: msgBody = msgBody & "Order Number: " & order & vbCrLf Line 615: msgBody = msgBody & "Item Number: " & partNum & vbCrLf Line 616: msgBody = msgBody & "Posted Price: " & postPrice & vbCrLf Line 617: msgBody = msgBody & "Actual Price: " & realPrice & vbCrLf & vbCrLf Line 618: msgBody = msgBody & "Posting URL: " & Session("continue") & vbCrLf Line 619: msgBody = msgBody & "Browser: " & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf Line 620: msgBody = msgBody & "Server: " & Request.ServerVariables("SERVER_NAME") & vbCrLf Line 621: Line 622: Try Line 623: objMail = New CMail Line 624: objMail .SetPluginType = Session("ComboEmailType") Line 625: objMail .SetFromAddress=Session("myemail") Line 626: objMail .AddToAddress (Session("myemail"), Session("myemail"), 1) Line 627: objMail .SetSubject="SalesCart Security Alert!" Line 628: objMail .SetBody=msgBody Line 629: objMail .SetMailServer = Session ("TxtEmailServer") Line 630: objMail .SetMailType = Session("HTMLEmailType") Line 631: mailres=objMail.SendMessage() Line 632: Catch e As Exception Line 633: Line 634: Finally Line 635: 'Code that always executes Line 636: End Try Line 637: Line 638: Else Line 639: Line 640: Response.Redirect ("referror.aspx?postURL=" & Session("continue") & "&reason=" & reason) Line 641: Line 642: End If Line 643: Line 644: End Sub Line 645: Line 646: Line 647: Function URLDecode(strToDecode) Line 648: Line 649: Dim strOut Line 650: Line 651: strOut = strToDecode Line 652: strOut = Replace(strOut,"%20"," ") Line 653: URLDecode = strOut Line 654: Line 655: End Function Line 656: Line 657: Line 658: Function checkReferer() Line 659: Line 660: Dim ServerURL, ServerURL2, CheckLength, CheckLength2 Line 661: Dim TestURL, TestURL2 Line 662: Line 663: 'Get Name/Address of this Server Line 664: ServerURL="http://" + Request.ServerVariables("SERVER_NAME") Line 665: ServerURL2="https://" + Request.ServerVariables("SERVER_NAME") Line 666: Line 667: 'Find length of Name/Address of this Servers URL Line 668: CheckLength=len(ServerURL) Line 669: CheckLength2=len(ServerURL2) Line 670: Line 671: 'Make the URL to Test Line 672: TestURL=left(Request.ServerVar iables("HTTP_REFERER"),CheckLength) Line 673: TestURL2=left(Request.ServerVa riables("HTTP_REFERER"),CheckLength2) Line 674: Line 675: If TestURL <> ServerURL and TestURL2 <> ServerURL2 Then Line 676: checkReferer = 0 Line 677: Else Line 678: checkReferer = 1 Line 679: End If Line 680: Line 681: End Function Line 682: Line 683: Line 684: Function assignReferPg() Line 685: Line 686: Dim referringPg, questionMarkPos Line 687: Line 688: referringPg = Request.ServerVariables("HTTP_REFERER") Line 689: Line 690: If Instr(referringPg, "https") Then Line 691: referringPg = Replace(referringPg,"https://" & Request.ServerVariables("SERVER_NAME"),"") Line 692: Else Line 693: referringPg = Replace(referringPg,"http://" & Request.ServerVariables("SERVER_NAME"),"") Line 694: End If Line 695: Line 696: If InStr(referringPg,"?") Then Line 697: questionMarkPos = InStr(referringPg,"?") Line 698: referringPg = Left(referringPg,questionMarkPos-1) Line 699: End If Line 700: Line 701: assignReferPg = referringPg Line 702: Line 703: End Function Line 704: Line 705: Line 706: Sub ContCheck() Line 707: Line 708: Dim refererGood, referPg, objFSO, objFile Line 709: Dim fileArray, x, partLine, y, searchLine Line 710: Dim begPricePos, endPricePos, oConn, oRs Line 711: Line 712: 'Set referPg Line 713: If session("path")="" Then Line 714: Line 715: refererGood = checkReferer() Line 716: Line 717: If refererGood Then Line 718: referPg = assignReferPg() Line 719: Session("continue") = Request.ServerVariables("HTTP_REFERER") Line 720: Else Line 721: Session("continue") = "default.htm" Line 722: reason = "The referring URL could not be determined due to security measures implemented " Line 723: reason = reason & "on the computer. To prevent this in the future, include path.aspx in all " Line 724: reason = reason & "your product pages or disable the checkpost feature by opening checkpost.aspx " Line 725: reason = reason & "in the cgi-bin folder and setting emailErr to 3." Line 726: Call securityNotification() Line 727: Exit Sub Line 728: End If Line 729: Line 730: Else Line 731: Line 732: referPg = Session("path") Line 733: Line 734: End If Line 735: Line 736: Line 737: 'Bypass security if previous page was reorder3.aspx Line 738: If Instr(referPg, "reorder3.aspx") Then Line 739: Exit Sub Line 740: End If Line 741: Line 742: If partNum = "" Then Line 743: reason = "The product you are trying to add contains no part number." Line 744: Call securityNotification() Line 745: Exit Sub Line 746: End If Line 747: Line 748: Line 749: On Error Resume Next Line 750: referPg = URLDecode(Server.Mappath(referPg)) Line 751: If Err.Number Then Line 752: reason = "The translation of the referring URL to a disk based path failed. " Line 753: reason = reason & "Contact technical support and disable the checkpost feature by opening checkpost.aspx " Line 754: reason = reason & "in the cgi-bin folder and setting emailErr to 3." Line 755: Call securityNotification() Line 756: Exit Sub Line 757: End If Line 758: Line 759: On Error Resume Next Line 760: objFSO = CreateObject("Scripting.FileSystemObject") Line 761: If Err.Number Then Line 762: reason = "Unable to create object Scripting.FileSystemObject." Line 763: Call securityNotification() Line 764: Exit Sub Line 765: End If Line 766: Line 767: On Error Resume Next Line 768: ' This can crash locally and cannot be caught and thrown Line 769: objFile = objFSO.OpenTextFile(referPg) Line 770: If Err.Number Then Line 771: reason = "Unable to open referring page." Line 772: Call securityNotification() Line 773: Exit Sub Line 774: End If Line 775: Line 776: Line 777: fileArray = Split(objFile.ReadAll,vbCrLf) Line 778: Line 779: For x = 0 to UBound(fileArray) Line 780: If Instr(fileArray(x),"<input type=""hidden"" name=""part"" value=""" & partNum & """ >") Then Line 781: partLine = x Line 782: partNumFound = partNumFound + 1 Line 783: quotage = 2 Line 784: end if Line 785: Line 786: If Instr(fileArray(x),"<input type='hidden' name='part' value='" & partNum & "'>") Then Line 787: partLine = x Line 788: partNumFound = partNumFound + 1 Line 789: quotage = 1 Line 790: end if Line 791: Next Line 792: Line 793: Line 794: 'Static Product Page Line 795: If partNumFound = 1 Then Line 796: Line 797: If quotage = 2 Then Line 798: For y = partLine to UBound(fileArray) Line 799: searchLine = fileArray(y) Line 800: Line 801: If Instr(fileArray(y),"<input type=""hidden"" name=""price"" value=""") Then Line 802: begPricePos = Instr(fileArray(y),"<input type=""hidden"" name=""price"" value=""") + 41 Line 803: realPrice = Mid(searchLine, begPricePos) Line 804: endPricePos = Instr(realPrice, """ >") Line 805: realPrice = Mid(realPrice,1,endPricePos-1) Line 806: Exit For Line 807: End If Line 808: Next Line 809: Else Line 810: For y = partLine to UBound(fileArray) Line 811: searchLine = fileArray(y) Line 812: Line 813: If Instr(fileArray(y),"<input type='hidden' name='price' value='") Then Line 814: begPricePos = Instr(fileArray(y),"<input type='hidden' name='price' value='") + 41 Line 815: realPrice = Mid(searchLine, begPricePos) Line 816: endPricePos = Instr(realPrice, "'>") Line 817: realPrice = Mid(realPrice,1,endPricePos-1) Line 818: Exit For Line 819: End If Line 820: Next &n bsp; Line 821: End If Line 822: Line 823: Line 824: On Error Resume Next Line 825: postPrice = FormatCurrency(postPrice) Line 826: If Err.Number Then Line 827: reason = "Conversion of posted price to currency failed." Line 828: Call securityNotification() Line 829: Exit Sub Line 830: End If Line 831: Line 832: On Error Resume Next Line 833: realPrice = FormatCurrency(realPrice) Line 834: If Err.Number Then Line 835: reason = "Conversion of price on referring page to currency failed." Line 836: Call securityNotification() Line 837: Exit Sub Line 838: End If Line 839: Line 840: If postPrice <> realPrice AND postPrice < realPrice Then Line 841: priceTest = 1 Line 842: End If Line 843: Line 844: Line 845: 'Dynamic Product Page Line 846: Elseif partNumFound = 0 Then Line 847: Line 848: Line 849: On Error Resume Next Line 850: oConn = Server.CreateObject("ADODB.Connection") Line 851: If Err.Number Then Line 852: reason = "ADODB object not found on server." Line 853: Call securityNotification() Line 854: Exit Sub Line 855: End If Line 856: Line 857: On Error Resume Next Line 858: oConn.Open (fpDBPath) Line 859: If Err.Number Then Line 860: On Error Resume Next Line 861: oConn.Open (dwDBPath) Line 862: If Err.Number Then Line 863: reason = "The path to the products database is invalid. " Line 864: reason = reason & "Open checkpost.aspx and change fpDBPath (for FrontPage) " Line 865: reason = reason & "or dwDBPath (for Dreamweaver) to a valid database path." Line 866: Call securityNotification() Line 867: Exit Sub Line 868: End If Line 869: End If Line 870: Line 871: On Error Resume Next Line 872: oRs = oConn.Execute(SQLStr) Line 873: If Err.Number Then Line 874: reason = "You are using a products database other than the one we provided or have changed " Line 875: reason = reason & "the design of the products database we provided. " Line 876: reason = reason & "Make sure the products database contains a table called Products with fields " Line 877: reason = reason & "Price and SKU. Otherwise, open checkpost.aspx and modify the " Line 878: reason = reason & "SQL string to match your products table name and field names. " Line 879: Call securityNotification() Line 880: Exit Sub Line 881: End If Line 882: Line 883: If oRs.EOF Then Line 884: reason = "Part number from posting page was not found in database." Line 885: Call securityNotification() Line 886: Exit Sub Line 887: End If Line 888: Line 889: Do While NOT oRs.EOF Line 890: On Error Resume Next Line 891: realPrice = FormatCurrency(oRs("price")) Line 892: If Err.Number Then Line 893: reason = "Conversion of product price in database to currency failed." Line 894: Call securityNotification() Line 895: Exit Sub Line 896: End If Line 897: Line 898: Line 899: On Error Resume Next Line 900: postPrice = FormatCurrency(postPrice) Line 901: If Err.Number Then Line 902: reason = "Conversion of posted price to currency failed." Line 903: Call securityNotification() Line 904: Exit Sub Line 905: End If Line 906: Line 907: Line 908: If postPrice <> realPrice AND postPrice < realPrice Then Line 909: priceTest = 1 Line 910: End If Line 911: Line 912: partNumFound = partNumFound + 1 Line 913: oRs.MoveNext Line 914: Loop Line 915: Line 916: If partNumFound > 1 Then Line 917: reason = "There are two instances of the part number in the database." Line 918: Call securityNotification() Line 919: Exit Sub Line 920: End If Line 921: Line 922: Line 923: Else Line 924: Line 925: reason = "The posting page has duplicate part numbers." Line 926: Call securityNotification() Line 927: Exit Sub Line 928: Line 929: End If Line 930: Line 931: Line 932: If priceTest=1 Then Line 933: reason = "Price posted does not match price on posting page or database." Line 934: Call securityNotification() Line 935: Exit Sub Line 936: End If Line 937: Line 938: End Sub Line 939: Line 940: &n bsp;#End ExternalSource Line 941: Line 942: Line 943: &n bsp;#ExternalSource("E:\Inetpub\media0507\cgi-bin\shop1.aspx ",12) Line 944: Line 945: Line 946: Dim Order Line 947: Line 948: Sub Page_Load() Line 949: Line 950: Dim showdiscount, savevol, savedis, savecodes, savediscodes Line 951: Dim Quantity, part, price, rawprice, description Line 952: Dim units, size, weight, taxed, upsell Line 953: Dim upsellpath, minqty, divqty, buy, free Line 954: Dim extraship, extrahand, extratax, taxed2, minprice Line 955: Dim merchant, auctionprice, requiresku, payloadurl, thestring Line 956: Dim CalcObj, DiscountObj, SimpleAdo, BuyFree, discounted Line 957: Dim discountcode, Status, Postpone Line 958: Dim objSimpleAdo, rstRS, SQLStmt Line 959: Line 960: Order = GetOrder() Line 961: CheckPost() Line 962: Line 963: 'Customer changed cart contents. Reset Checkout Line 964: Session("CheckoutSubtotal") = 0 Line 965: Line 966: showdiscount = 0.0 Line 967: savevol = "NA" Line 968: savedis = "NA" Line 969: savecodes = "NA" Line 970: savediscodes = "NA" Line 971: Line 972: 'READ-IN variables Line 973: Quantity = GetABS(FGetVar("Quantity",0,"n")) Line 974: part = FGetVar("part","None","s") Line 975: price = FGetVar("price",0,"n") Line 976: rawprice = FGetVar("price",0,"n") Line 977: description = FGetVar("description","None","s") Line 978: units = FGetVar("units","each","s") Line 979: size = FGetVar("prodsize",0,"n") Line 980: weight = FGetVar("weight",0,"n") Line 981: taxed = FGetVar("taxed","No","s") Line 982: upsell = FGetVar("upsell","","s") Line 983: Line 984: upsellpath = FGetVar("upsellpath","","s") Line 985: minqty = GetABS(FGetVar("minqty",0,"n")) Line 986: divqty = GetABS(FGetVar("divqty",0,"n")) Line 987: buy = GetABS(FGetVar("buyqty",0,"n")) Line 988: free = GetABS(FGetVar("freeqty",0,"n")) Line 989: extraship = GetABS(FGetVar("prod_shipping",0,"n")) Line 990: extrahand = GetABS(FGetVar("prod_handling",0,"n")) Line 991: extratax = GetABS(FGetVar("extratax",0,"n")) Line 992: taxed2 = FGetVar("taxed2","No","s") Line 993: minprice = GetABS(FGetVar("pricemin",0,"n")) Line 994: merchant = FGetVar("merchantcode",0,"n") Line 995: auctionprice = FGetVar("auctionprice","0","n") Line 996: requiresku = FGetVar("requiresku","","s") Line 997: payloadurl = FGetVar("PayloadURL","None","s") Line 998: Line 999: 'CHECK WHICH BUTTON was checked Line 1000: Try Line 1001: If Request("FRIENDButton.x") Then Line 1002: thestring = "EmailFriend.aspx" & "?description=" & description & "&price=" & rawprice & "&link=" Line 1003: thestring = thestring & Request.ServerVariables("HTTP_REFERER") & "&part=" & part Line 1004: Response.Redirect (thestring) Line 1005: Response.End Line 1006: End If Line 1007: Catch e As Exception Line 1008: Line 1009: Finally Line 1010: 'Code that always executes Line 1011: End Try Line 1012: Line 1013: Try Line 1014: If Request("WISHButton.x") Then Line 1015: Response.Redirect ("WishList.aspx") Line 1016: Response.End Line 1017: End If Line 1018: Catch e As Exception Line 1019: Line 1020: Finally Line 1021: 'Code that always executes Line 1022: End Try Line 1023: Line 1024: Try Line 1025: If Request("BIDButton.x") Then Line 1026: thestring = "BidSearch.aspx" & "?part=" & part Line 1027: Response.Redirect (thestring) Line 1028: Response.End Line 1029: End If Line 1030: Catch e As Exception Line 1031: Line 1032: Finally Line 1033: 'Code that always executes Line 1034: End Try Line 1035: Line 1036: 'DO OPTIONS Line 1037: CalcObj = New CCalcObj Line 1038: 'Get the Option cancatenation String Line 1039: description = CalcObj.getOption (description) Line 1040: description = CalcObj.SimpleOption (description) Line 1041: price = CalcObj.getIncrease (price) Line 1042: rawprice = price Line 1043: Line 1044: 'DO AUCTION Stuff Next Line 1045: If auctionprice <> "" Then Line 1046: CalcObj = New CCalcObj Line 1047: 'Check minimum price Line 1048: CalcObj.ChkAuctionMin (auctionprice,minprice) Line 1049: Line 1050: If (CSng(auctionprice)) > 0 then Line 1051: price = auctionprice Line 1052: rawprice = auctionprice Line 1053: End If Line 1054: End If Line 1055: Line 1056: 'DO QUANTITY calculation checks Line 1057: CalcObj = New CCalcObj Line 1058: 'Check minimum quantity Line 1059: CalcObj.ChkMin (Quantity,minqty) Line 1060: 'Check divisble quantity Line 1061: CalcObj.ChkDiv (Quantity,divqty) Line 1062: 'Check buy get free quantity Line 1063: BuyFree = CalcObj.BuyFree (Quantity,buy,free) Line 1064: BuyFree = CInt(BuyFree) Line 1065: Line 1066: If BuyFree > 0 Then Line 1067: price = (price * Quantity)/(BuyFree + Quantity) Line 1068: Quantity = Quantity + BuyFree Line 1069: End If Line 1070: Line 1071: 'DO PRICE DISCOUNTING on item by item basis Line 1072: 'see view1.asp for whole order discounting Line 1073: dim volarray(6) Line 1074: dim disarray(6) Line 1075: 'discounted = No means absolute amt; Yes means % discount Line 1076: discounted = FGetVar("discounted","No","s") Line 1077: volarray(1) = FGetVar("volume1",100000,"n") Line 1078: volarray(2) = FGetVar("volume2",100000,"n") Line 1079: volarray(3) = FGetVar("volume3",100000,"n") Line 1080: volarray(4) = FGetVar("volume4",100000,"n") Line 1081: volarray(5) = FGetVar("volume5",100000,"n") Line 1082: volarray(6) = FGetVar("volume6",100000,"n") Line 1083: disarray(1) = FGetVar("discount1",0.0,"n") Line 1084: disarray(2) = FGetVar("discount2",0.0,"n") Line 1085: disarray(3) = FGetVar("discount3",0.0,"n") Line 1086: disarray(4) = FGetVar("discount4",0.0,"n") Line 1087: disarray(5) = FGetVar("discount5",0.0,"n") Line 1088: disarray(6) = FGetVar("discount6",0.0,"n") Line 1089: dim ccode(4) Line 1090: dim cdiscount(4) Line 1091: discountcode = FGetVar("DiscountCode","None","s") Line 1092: ccode(1) = FGetVar("code1","empty","s") Line 1093: ccode(2) = FGetVar("code2","empty","s") Line 1094: ccode(3) = FGetVar("code3","empty","s") Line 1095: ccode(4) = FGetVar("code4","empty","s") Line 1096: cdiscount(1) = FGetVar("cdiscount1",0,"n") Line 1097: cdiscount(2) = FGetVar("cdiscount2",0,"n") Line 1098: cdiscount(3) = FGetVar("cdiscount3",0,"n") Line 1099: cdiscount(4) = FGetVar("cdiscount4",0,"n") Line 1100: Line 1101: 'DO QUANTITY Discounts First Line 1102: 'Make sure there is a Discount greater than 0 for the first Discount or no discounts Line 1103: If disarray(1) > 0 then Line 1104: DiscountObj = New CDiscountObj Line 1105: ' Create strings to save discount and quantity information in database Line 1106: savevol = DiscountObj.SaveIt (1,6,volarray) Line 1107: savedis = DiscountObj.SaveIt (1,6,disarray) Line 1108: DiscountObj.setPriceVars = price Line 1109: 'Figures discount and returns public vars showdiscount,showprice,and price Line 1110: price = DiscountObj.GetDiscount (Quantity,volarray,disarray,discounted) Line 1111: End IF Line 1112: Line 1113: 'DO DISCOUNT CODES Next Line 1114: If cdiscount(1) > 0 then Line 1115: 'Do Discount codes Line 1116: DiscountObj = New CDiscountObj Line 1117: DiscountObj.setPriceVars = price Line 1118: price = DiscountObj.ChkDiscountCode (discountcode,ccode,cdiscount) Line 1119: savecodes = DiscountObj.SaveIt (1,4,ccode) Line 1120: savediscodes = DiscountObj.SaveIt (1,4,cdiscount) Line 1121: End IF Line 1122: 'Recompute Total Discount Line 1123: DiscountObj = New CDiscountObj Line 1124: DiscountObj.setPriceVars = price Line 1125: showdiscount = DiscountObj.showDiscount (RawPrice) Line 1126: Line 1127: 'WRITE STUFF to Database Line 1128: SQLStmt = "INSERT INTO item " Line 1129: SQLStmt = SQLStmt & "([Orderid], Discount, [Quantity], Item, Price, Description, Units, [Size], Weight, Taxed, Upsell, Volume_Levels, Discount_Levels, " Line 1130: SQLStmt = SQLStmt & "RawPrice, UpsellPath, MinQty, DivQty, Buy, Free, Taxed2, ExtraTax, ExtraShip, ExtraHand, MinPrice, Codes, Discount_Codes, [MId#], RequireSKU, Discounted, PayloadURL)" Line 1131: SQLStmt = SQLStmt & "VALUES (" & Order & ", " & showdiscount & ", " & Quantity & ", '" & part & "', '" & price & "', " Line 1132: SQLStmt = SQLStmt & "'" & description & "', '" & units & "', '" & size & "', '" & weight & "', '" & taxed & "', '" & upsell & "', " Line 1133: SQLStmt = SQLStmt & "'" & savevol & "', '" & savedis & "', '" & RawPrice & "', '" & upsellpath & "', " & minqty & ", " Line 1134: SQLStmt = SQLStmt & divqty & ", " & buy & ", " & free & ", '" & taxed2 & "', " & extratax & ", " Line 1135: SQLStmt = SQLStmt & extraship & ", " & extrahand & ", '" & minprice & "', '" & savecodes & "', '" & savediscodes & "', " Line 1136: SQLStmt = SQLStmt & merchant & ",'" & requiresku & "', '" & discounted & "','" & payloadurl & "'); " Line 1137: Line 1138: 'Response.write (SQLStmt) Line 1139: 'Response.end Line 1140: Line 1141: SimpleAdo = New CSimpleAdo Line 1142: SimpleAdo.setConnectionString = Session("ConnectionString") Line 1143: Status = SimpleAdo.ExecuteInsertUpdate(SQLStmt) Line 1144: 'Do stuff with the record set Line 1145: Line 1146: SimpleAdo = nothing Line 1147: Line 1148: 'REFRESH to next page Line 1149: Postpone = FGetVar("postpone","False","s") Line 1150: If Postpone = "False" OR Postpone = "FALSE" Then Line 1151: Response.Redirect ("view1.aspx") Line 1152: Else Line 1153: Response.Redirect (Session("continue")) Line 1154: End IF Line 1155: Line 1156: End Sub Line 1157: Line 1158: #End ExternalSource Line 1159: Line 1160: Public Sub New() Line 1161: & nbsp; MyBase.New Line 1162: Dim dependencies As System.Collections.ArrayList Line 1163: If (ASP.shop1_aspx.__initialized = false) Then Line 1164: & nbsp; dependencies = New System.Collections.ArrayList Line 1165: & nbsp; dependencies. Add("E:\Inetpub\media0507\cgi-bin\codepage.aspx") Line 1166: & nbsp; dependencies. Add("E:\Inetpub\media0507\cgi-bin\header.aspx") Line 1167: & nbsp; dependencies. Add("E:\Inetpub\media0507\cgi-bin\adovbs.aspx") Line 1168: & nbsp; dependencies. Add("E:\Inetpub\media0507\cgi-bin\GetOrder.aspx") Line 1169: & nbsp; dependencies. Add("E:\Inetpub\media0507\cgi-bin\shop1.aspx") Line 1170: & nbsp; dependencies. Add("E:\Inetpub\media0507\cgi-bin\checkpost.aspx") Line 1171: & nbsp; ASP.shop1_asp x.__fileDependencies = dependencies Line 1172: & nbsp; ASP.shop1_asp x.__initialized = true Line 1173: End If Line 1174: & nbsp; Me.AspCompatMode = true Line 1175: End Sub Line 1176: Line 1177: Protected Overrides Property AutoHandlers As Integer Line 1178: & nbsp; Get Line 1179: & nbsp; Return ASP.shop1_aspx.__autoHandlers Line 1180: End Get Line 1181: & nbsp; Set Line 1182: & nbsp; ASP.shop1_asp x.__autoHandlers = value Line 1183: End Set Line 1184: End Property Line 1185: Line 1186: Protected ReadOnly Property ApplicationInstance As ASP.global_asax Line 1187: & nbsp; Get Line 1188: & nbsp; Return CType(Me.Context.ApplicationInstance,ASP.global_asax) Line 1189: End Get Line 1190: End Property Line 1191: Line 1192: Public Overrides ReadOnly Property TemplateSourceDirectory As String Line 1193: & nbsp; Get Line 1194: & nbsp; Return "/cgi-bin" Line 1195: End Get Line 1196: End Property Line 1197: Line 1198: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control) Line 1199: & nbsp; __ctrl.SetRenderMethodDelegate(Addres sOf Me.__Render__control1) Line 1200: End Sub Line 1201: Line 1202: Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control) Line 1203: & nbsp; __output.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xh"& _ Line 1204: "tml1/DTD/xhtml1-strict.dtd"">"&Microsoft.VisualBasic.Chr W(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.C hrW(13)&Microsoft.VisualBasic.ChrW(10)) Line 1205: & nbsp; __output.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xh"& _ Line 1206: "tml1/DTD/xhtml1-strict.dtd"">"&Microsoft.VisualBasic.Chr W(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.C hrW(13)&Microsoft.VisualBasic.ChrW(10)) Line 1207: & nbsp; __output.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xh"& _ Line 1208: "tml1/DTD/xhtml1-strict.dtd"">"&Microsoft.VisualBasic.Chr W(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.C hrW(13)&Microsoft.VisualBasic.ChrW(10)) Line 1209: & nbsp; __output.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xh"& _ Line 1210: "tml1/DTD/xhtml1-strict.dtd"">"&Microsoft.VisualBasic.Chr W(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.C hrW(13)&Microsoft.VisualBasic.ChrW(10)) Line 1211: Line 1212: & nbsp; #ExternalSource("E:\Inetpub\media0507 \cgi-bin\header.aspx",92) Line 1213: Line 1214: SetHTMLEmail() Line 1215: Line 1216: Line 1217: & nbsp; #End ExternalSource Line 1218: & nbsp; __output.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xh"& _ Line 1219: "tml1/DTD/xhtml1-strict.dtd"">"&Microsoft.VisualBasic.Chr W(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.C hrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic .ChrW(13)&Microsoft.VisualBasic.ChrW(10)) Line 1220: & nbsp; __output.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xh"& _ Line 1221: "tml1/DTD/xhtml1-strict.dtd"">"&Microsoft.VisualBasic.Chr W(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.C hrW(13)&Microsoft.VisualBasic.ChrW(10)) Line 1222: End Sub Line 1223: Line 1224: Protected Overrides Sub FrameworkInitialize() Line 1225: & nbsp; Me.__BuildControlTree(Me) Line 1226: & nbsp; Me.FileDependencies = ASP.shop1_aspx.__fileDependencies Line 1227: & nbsp; Me.EnableViewStateMac = true Line 1228: & nbsp; Me.Request.ValidateInput Line 1229: End Sub Line 1230: Line 1231: Public Overrides Function GetTypeHashCode() As Integer Line 1232: & nbsp; Return -683747614 Line 1233: End Function Line 1234: Line 1235: Public Overridable Function BeginProcessRequest(ByVal context As System.Web.HttpContext, ByVal cb As System.AsyncCallback, ByVal data As Object) As System.IAsyncResult Implements System.Web.IHttpAsyncHandler.BeginProcessRequest Line 1236: & nbsp; Return Me.AspCompatBeginProcessRequest(context, cb, data) Line 1237: End Function Line 1238: Line 1239: Public Overridable Sub EndProcessRequest(ByVal ar As System.IAsyncResult) Implements System.Web.IHttpAsyncHandler.EndProcessRequest Line 1240: & nbsp; Me.AspCompatEndProcessRequest(ar) Line 1241: End Sub Line 1242: End Class Line 1243: End Namespace Line 1244: ------------------------------------------------------------ -------------------- Version Information: Microsoft .NET Framework Version:1.1.4322.2407; ASP.NET Version:1.1.4322.2407 |
|
![]() |
|
admin ![]() Admin Group ![]() Forum Administrator Joined: March/11/04 Status: Offline Points: 329 |
![]() ![]() ![]() ![]() ![]() |
Did you get this issue resolved?
|
|
![]() |
|
debbie ![]() Newbie ![]() Joined: June/25/04 Location: United States Status: Offline Points: 17 |
![]() ![]() ![]() ![]() ![]() |
yes
|
|
![]() |
|
admin ![]() Admin Group ![]() Forum Administrator Joined: March/11/04 Status: Offline Points: 329 |
![]() ![]() ![]() ![]() ![]() |
Ok, this is something you can contact Technical support for and they will fix it for you for free. Your just missing a file.
|
|
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |