API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 16th, 2018
510
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 141.78 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Conversation opened. 3 messages. All messages read.
  3.  
  4. Skip to content
  5. Using Gmail with screen readers
  6. This version of Chrome is no longer supported. Please upgrade to asupported browser. Dismiss
  7. Search
  8.  
  9.  
  10.  
  11.  
  12. Gmail
  13. COMPOSE
  14. Labels
  15. Inbox (5,263)
  16. Important
  17. Sent Mail
  18. Drafts (39)
  19. All Mail
  20. Spam (188)
  21. Categories
  22. Alex
  23. Authorize
  24. blogs (71)
  25. cust serv position
  26. from BETS
  27. From Kevin (20)
  28. From Nick
  29. from RICH (44)
  30. From Ron
  31. From Tyler (2,103)
  32. info
  33. numbers
  34. rothco reciepts
  35. Shipping position
  36. More
  37. More
  38. 1 of 16,363
  39.  
  40. Collapse all Print all In new window
  41. For Julian
  42. Inbox
  43. x
  44.  
  45. serge Toxqui <serge@armynavydeals.com>
  46. AttachmentsJun 14 (2 days ago)
  47.  
  48. to Rich
  49. I put his code...his code is currently the one running, so you can see that it errors out at the time of check out.
  50.  
  51. i attached a txt file with the whole page for him to look at.
  52.  
  53. it says that in the code he said the variable "ïtem" is undfined
  54.  
  55. I will now change the front pages to that image ace sent me.
  56. Attachments area
  57.  
  58. R M G
  59. Attachments4:18 PM (23 hours ago)
  60.  
  61. to Julian, serge
  62. from serge:
  63.  
  64. Attachments area
  65.  
  66. R M G
  67. 2:31 PM (57 minutes ago)
  68.  
  69. to Julian, Julian, serge
  70.  
  71.  
  72.  
  73.  
  74. Click here to Reply, Reply to all, or Forward
  75. 14.24 GB (94%) of 15 GB used
  76. Manage
  77. Terms · Privacy · Program Policies
  78. Last account activity: 41 minutes ago
  79. Details
  80. Hangouts
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87. <%@LANGUAGE="VBSCRIPT"%>
  88. <%
  89. Option Explicit
  90. Dim Title, FdaysRange
  91. %>
  92.  
  93. <!--#include file="incld/UserSecurity.asp" -->
  94. <!--#include file="incld/SSLCheck.asp" -->
  95. <!--#include virtual ="/asp/incld/emailer.asp" -->
  96. <!--#include file="../Connections/UncleSamSQL.asp" -->
  97. <!--#include file="functions.asp" -->
  98. <!--#include file="function_orders.asp" -->
  99. <!--#include file="incld/tracking.asp" -->
  100. <!--#include file ="Authorize/variables.asp" -->
  101. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  102. <html>
  103. <head>
  104. <title><%=Title%> - Uncle Sams Army Navy Outfitters</title>
  105. <!-- #include file="incld/header.asp" -->
  106. </head>
  107. <!--<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="/asp/sitexl/bg16.jpg">-->
  108. <!-- #include file="incld/body.asp" -->
  109. <!-- #include file="incld/topmenu.asp" -->
  110.  
  111. <%
  112.  
  113. If Session("OrderID") = "" Then
  114.  
  115. Session("Message") = "<span class=""warning""><B> Your cart is empty, Please add items to your cart first!"
  116. Response.Redirect("/asp/my_order.asp")
  117.  
  118. End If
  119.  
  120. For Each item In Request.QueryString
  121. If inStr(Lcase(Request.QueryString(item)),";declare") > 0 OR _
  122. inStr(Lcase(Request.QueryString(item)),";exec") > 0 OR _
  123. inStr(Lcase(Request.QueryString(item)),";set") > 0 OR _
  124. inStr(Lcase(Request.QueryString(item)),"cast(") > 0 OR _
  125. inStr(Lcase(Request.QueryString(item)),"char(") > 0 OR _
  126. inStr(Lcase(Request.QueryString(item)),"'='") > 0 OR _
  127. inStr(Lcase(Request.QueryString(item)),"%26dir") > 0 OR _
  128. inStr(Lcase(Request.QueryString(item)),"win.ini") > 0 OR _
  129. inStr(Lcase(Request.QueryString(item)),"cdir") > 0 OR _
  130. inStr(Lcase(Request.QueryString(item)),"www.npk-spb.ru") > 0 OR _
  131. inStr(Lcase(Request.QueryString(item)),"'@@version'") > 0 OR _
  132. inStr(Lcase(Request.QueryString(item)),"%40%40version") > 0 Then
  133. Response.Redirect("/bot_redirect.html")
  134. End If
  135. Next
  136.  
  137. 'Function TempCopyOrderItems()
  138. ' Set TmpRuN = Server.CreateObject("ADODB.Command")
  139. ' TmpRuN.ActiveConnection = Application("DBConn_UncleSamSQL")
  140. ' TmpRuN.CommandText = "INSERT INTO OrderItemsHistory (OrderID,SKU,ItemName,Qty,ItemPrice,Date,Usr) SELECT OrderID,SKU,ItemName,QTY,ItemPrice,GETDATE() AS Date,'WEB' AS Usr FROM OrderDetails WHERE OrderID=" & Session("OrderID")
  141. ' TmpRuN.Execute
  142. ' TmpRuN.ActiveConnection.Close
  143. 'End Function
  144.  
  145.  
  146. Function ShippingAddress()
  147. %>
  148. <style type="text/css">
  149. <!--
  150. .style1 {color: #FF0000}
  151. .style2 {
  152. font-size: 12;
  153. font-weight: bold;
  154. }
  155. -->
  156. </style>
  157.  
  158. <table cellpadding="5">
  159. <tr valign="baseline">
  160. <!-- <td colspan="2" class="heading">Shipping Address</td> -->
  161. <td colspan="2" class="heading">We Currently Only Can Ship To Billing Address (call for exceptions)</td>
  162.  
  163. </tr>
  164. <tr valign="baseline">
  165. <td class="sans-1" align="right"><input type="checkbox" name="SAMEASBILL" value="1" onChange="disable_shpto(this.form);" <%If SAMEASBILL="1" Then Response.Write("checked")%>></td>
  166. <td>(Check to proceed)</td>
  167. </tr>
  168.  
  169. <!--
  170. <tr valign="baseline">
  171. <td class="sans-1" align="right">To Name:</td>
  172. <td><input id="shpto" type="text" name="SHIPTONAME" value="<%=SHIPTONAME%>" style="width: 200px"></td>
  173. </tr>
  174. <tr>
  175. <td align="right" valign="top" nowrap class="sans-1">Address 1:</td>
  176. <td valign="baseline"><input id="shpto" type="text" name="SHIPTOSTREET" value="<%=SHIPTOSTREET%>" style="width: 200px"></td>
  177. </tr>
  178. <tr>
  179. <td align="right" valign="top" nowrap class="sans-1">Address 2:</td>
  180. <td valign="baseline"><input id="shpto" type="text" name="SHIPTOSTREET2" value="<%=SHIPTOSTREET2%>" style="width: 200px"></td>
  181. </tr>
  182. <tr valign="baseline">
  183. <td class="sans-1" align="right">City:</td>
  184. <td><input id="shpto" type="text" name="SHIPTOCITY" value="<%=SHIPTOCITY%>" style="width: 200px"> </td>
  185. </tr>
  186. <tr valign="baseline">
  187. <td class="sans-1" align="right">State:</td>
  188. <td><select id="shpto" name="SHIPTOSTATE" style="width: 200px">
  189. <option value="">Please Choose</option>
  190. <option value="AA"<%If SHIPTOSTATE = "AA" Then Response.Write("SELECTED")%>>Armed Forces Americas (AA)</option>
  191. <option value="AE"<%If SHIPTOSTATE = "AE" Then Response.Write("SELECTED")%>>Armed Forces (AE)</option>
  192. <option value="AP"<%If SHIPTOSTATE = "AP" Then Response.Write("SELECTED")%>>Armed Forces Pacific (AP)</option>
  193. <option value="AL"<%If SHIPTOSTATE = "AL" Then Response.Write("SELECTED")%>>Alabama</option>
  194. <option value="AK"<%If SHIPTOSTATE = "AK" Then Response.Write("SELECTED")%>>Alaska</option>
  195. <option value="AZ"<%If SHIPTOSTATE = "AZ" Then Response.Write("SELECTED")%>>Arizona</option>
  196. <option value="AR"<%If SHIPTOSTATE = "AR" Then Response.Write("SELECTED")%>>Arkansas</option>
  197. <option value="CA"<%If SHIPTOSTATE = "CA" Then Response.Write("SELECTED")%>>California</option>
  198. <option value="CO"<%If SHIPTOSTATE = "CO" Then Response.Write("SELECTED")%>>Colorado</option>
  199. <option value="CT"<%If SHIPTOSTATE = "CT" Then Response.Write("SELECTED")%>>Connecticut</option>
  200. <option value="DE"<%If SHIPTOSTATE = "DE" Then Response.Write("SELECTED")%>>Delaware</option>
  201. <option value="FL"<%If SHIPTOSTATE = "FL" Then Response.Write("SELECTED")%>>Florida</option>
  202. <option value="GA"<%If SHIPTOSTATE = "GA" Then Response.Write("SELECTED")%>>Georgia</option>
  203. <option value="HI"<%If SHIPTOSTATE = "HI" Then Response.Write("SELECTED")%>>Hawaii</option>
  204. <option value="ID"<%If SHIPTOSTATE = "ID" Then Response.Write("SELECTED")%>>Idaho</option>
  205. <option value="IL"<%If SHIPTOSTATE = "IL" Then Response.Write("SELECTED")%>>Illinois</option>
  206. <option value="IN"<%If SHIPTOSTATE = "IN" Then Response.Write("SELECTED")%>>Indiana</option>
  207. <option value="IA"<%If SHIPTOSTATE = "IA" Then Response.Write("SELECTED")%>>Iowa</option>
  208. <option value="KS"<%If SHIPTOSTATE = "KS" Then Response.Write("SELECTED")%>>Kansas</option>
  209. <option value="KY"<%If SHIPTOSTATE = "KY" Then Response.Write("SELECTED")%>>Kentucky</option>
  210. <option value="LA"<%If SHIPTOSTATE = "LA" Then Response.Write("SELECTED")%>>Louisiana</option>
  211. <option value="ME"<%If SHIPTOSTATE = "ME" Then Response.Write("SELECTED")%>>Maine</option>
  212. <option value="MD"<%If SHIPTOSTATE = "MD" Then Response.Write("SELECTED")%>>Maryland</option>
  213. <option value="MA"<%If SHIPTOSTATE = "MA" Then Response.Write("SELECTED")%>>Massachusetts</option>
  214. <option value="MI"<%If SHIPTOSTATE = "MI" Then Response.Write("SELECTED")%>>Michigan</option>
  215. <option value="MN"<%If SHIPTOSTATE = "MN" Then Response.Write("SELECTED")%>>Minnesota</option>
  216. <option value="MS"<%If SHIPTOSTATE = "MS" Then Response.Write("SELECTED")%>>Mississippi</option>
  217. <option value="MO"<%If SHIPTOSTATE = "MO" Then Response.Write("SELECTED")%>>Missouri</option>
  218. <option value="MT"<%If SHIPTOSTATE = "MT" Then Response.Write("SELECTED")%>>Montana</option>
  219. <option value="NE"<%If SHIPTOSTATE = "NE" Then Response.Write("SELECTED")%>>Nebraska</option>
  220. <option value="NV"<%If SHIPTOSTATE = "NV" Then Response.Write("SELECTED")%>>Nevada</option>
  221. <option value="NH"<%If SHIPTOSTATE = "NH" Then Response.Write("SELECTED")%>>New Hampshire</option>
  222. <option value="NJ"<%If SHIPTOSTATE = "NJ" Then Response.Write("SELECTED")%>>New Jersey</option>
  223. <option value="NM"<%If SHIPTOSTATE = "NM" Then Response.Write("SELECTED")%>>New Mexico</option>
  224. <option value="NY"<%If SHIPTOSTATE = "NY" Then Response.Write("SELECTED")%>>New York</option>
  225. <option value="NC"<%If SHIPTOSTATE = "NC" Then Response.Write("SELECTED")%>>North Carolina</option>
  226. <option value="ND"<%If SHIPTOSTATE = "ND" Then Response.Write("SELECTED")%>>North Dakota</option>
  227. <option value="OH"<%If SHIPTOSTATE = "OH" Then Response.Write("SELECTED")%>>Ohio</option>
  228. <option value="OK"<%If SHIPTOSTATE = "OK" Then Response.Write("SELECTED")%>>Oklahoma</option>
  229. <option value="OR"<%If SHIPTOSTATE = "OR" Then Response.Write("SELECTED")%>>Oregon</option>
  230. <option value="PA"<%If SHIPTOSTATE = "PA" Then Response.Write("SELECTED")%>>Pennsylvania</option>
  231. <option value="RI"<%If SHIPTOSTATE = "RI" Then Response.Write("SELECTED")%>>Rhode Island</option>
  232. <option value="SC"<%If SHIPTOSTATE = "SC" Then Response.Write("SELECTED")%>>South Carolina</option>
  233. <option value="SD"<%If SHIPTOSTATE = "SD" Then Response.Write("SELECTED")%>>South Dakota</option>
  234. <option value="TN"<%If SHIPTOSTATE = "TN" Then Response.Write("SELECTED")%>>Tennessee</option>
  235. <option value="TX"<%If SHIPTOSTATE = "TX" Then Response.Write("SELECTED")%>>Texas</option>
  236. <option value="UT"<%If SHIPTOSTATE = "UT" Then Response.Write("SELECTED")%>>Utah</option>
  237. <option value="VT"<%If SHIPTOSTATE = "VT" Then Response.Write("SELECTED")%>>Vermont</option>
  238. <option value="VA"<%If SHIPTOSTATE = "VA" Then Response.Write("SELECTED")%>>Virginia</option>
  239. <option value="WA"<%If SHIPTOSTATE = "WA" Then Response.Write("SELECTED")%>>Washington</option>
  240. <option value="DC"<%If SHIPTOSTATE = "DC" Then Response.Write("SELECTED")%>>Washington, D.C.</option>
  241. <option value="WV"<%If SHIPTOSTATE = "WV" Then Response.Write("SELECTED")%>>West Virginia</option>
  242. <option value="WI"<%If SHIPTOSTATE = "WI" Then Response.Write("SELECTED")%>>Wisconsin</option>
  243. <option value="WY"<%If SHIPTOSTATE = "WY" Then Response.Write("SELECTED")%>>Wyoming</option>
  244. <option value="">---------------------</option>
  245. <option value="ALB"<%If SHIPTOSTATE = "ALB" Then Response.Write("SELECTED")%>>Alberta</option>
  246. <option value="BC"<%If SHIPTOSTATE = "BC" Then Response.Write("SELECTED")%>>British Columbia</option>
  247. <option value="MAN"<%If SHIPTOSTATE = "MAN" Then Response.Write("SELECTED")%>>Manitoba</option>
  248. <option value="NB"<%If SHIPTOSTATE = "NB" Then Response.Write("SELECTED")%>>New Brunswick</option>
  249. <option value="NS"<%If SHIPTOSTATE = "NS" Then Response.Write("SELECTED")%>>Nova Scotia</option>
  250. <option value="NFL"<%If SHIPTOSTATE = "NFL" Then Response.Write("SELECTED")%>>Newfoundland</option>
  251. <option value="NT"<%If SHIPTOSTATE = "NT" Then Response.Write("SELECTED")%>>North West Territories</option>
  252. <option value="NU"<%If SHIPTOSTATE = "NU" Then Response.Write("SELECTED")%>>Nunavut</option>
  253. <option value="ON"<%If SHIPTOSTATE = "ON" Then Response.Write("SELECTED")%>>Ontario</option>
  254. <option value="PEI"<%If SHIPTOSTATE = "PEI" Then Response.Write("SELECTED")%>>Prince Edward Island</option>
  255. <option value="QUE"<%If SHIPTOSTATE = "QUE" Then Response.Write("SELECTED")%>>Quebec</option>
  256. <option value="SAS"<%If SHIPTOSTATE = "SAS" Then Response.Write("SELECTED")%>>Saskatchewan</option>
  257. <option value="YT"<%If SHIPTOSTATE = "YT " Then Response.Write("SELECTED")%>>Yukon Territories</option>
  258. <option value="">-----------------------</option>
  259. <option value="NONE" <%If SHIPTOSTATE = "NONE" Then Response.Write("SELECTED")%>>Not Listed</option>
  260. </select> </td>
  261. </tr>
  262. <tr valign="baseline">
  263. <td class="sans-1" align="right">Country:</td>
  264. <td><select id="shpto" name="SHIPTOCOUNTRYCODE" style="width: 200px">
  265. <option value="">Choose a country</option>
  266. <option value="US"<%If SHIPTOCOUNTRYCODE = "US" Then Response.Write("SELECTED")%>>United States of America</option>
  267. <option value="CA"<%If SHIPTOCOUNTRYCODE = "CA" Then Response.Write("SELECTED")%>>Canada</option>
  268. <option value="DE"<%If SHIPTOCOUNTRYCODE = "DE" Then Response.Write("SELECTED")%>>Germany</option>
  269. <option value="FR"<%If SHIPTOCOUNTRYCODE = "FR" Then Response.Write("SELECTED")%>>France</option>
  270. <option value="GB"<%If SHIPTOCOUNTRYCODE = "GB" Then Response.Write("SELECTED")%>>United Kingdom</option>
  271. <option value="">-----------------------</option>
  272. <option value="AL"<%If SHIPTOCOUNTRYCODE = "AL" Then Response.Write("SELECTED")%>>Albania</option>
  273. <option value="DZ"<%If SHIPTOCOUNTRYCODE = "DZ" Then Response.Write("SELECTED")%>>Algeria</option>
  274. <option value="AS"<%If SHIPTOCOUNTRYCODE = "AS" Then Response.Write("SELECTED")%>>American Samoa</option>
  275. <option value="AD"<%If SHIPTOCOUNTRYCODE = "AD" Then Response.Write("SELECTED")%>>Andorra</option>
  276. <option value="AO"<%If SHIPTOCOUNTRYCODE = "AO" Then Response.Write("SELECTED")%>>Angola</option>
  277. <option value="AI"<%If SHIPTOCOUNTRYCODE = "AI" Then Response.Write("SELECTED")%>>Anguilla</option>
  278. <option value="AG"<%If SHIPTOCOUNTRYCODE = "AG" Then Response.Write("SELECTED")%>>Antigua & Barbuda</option>
  279. <option value="AR"<%If SHIPTOCOUNTRYCODE = "AR" Then Response.Write("SELECTED")%>>Argentina</option>
  280. <option value="AM"<%If SHIPTOCOUNTRYCODE = "AM" Then Response.Write("SELECTED")%>>Armenia</option>
  281. <option value="AW"<%If SHIPTOCOUNTRYCODE = "AW" Then Response.Write("SELECTED")%>>Aruba</option>
  282. <option value="AU"<%If SHIPTOCOUNTRYCODE = "AU" Then Response.Write("SELECTED")%>>Australia</option>
  283. <option value="AT"<%If SHIPTOCOUNTRYCODE = "AT" Then Response.Write("SELECTED")%>>Austria</option>
  284. <option value="AP"<%If SHIPTOCOUNTRYCODE = "AP" Then Response.Write("SELECTED")%>>Azores</option>
  285. <option value="BS"<%If SHIPTOCOUNTRYCODE = "BS" Then Response.Write("SELECTED")%>>Bahamas</option>
  286. <option value="BH"<%If SHIPTOCOUNTRYCODE = "BH" Then Response.Write("SELECTED")%>>Bahrain</option>
  287. <option value="BD"<%If SHIPTOCOUNTRYCODE = "BD" Then Response.Write("SELECTED")%>>Bangladesh</option>
  288. <option value="BB"<%If SHIPTOCOUNTRYCODE = "BB" Then Response.Write("SELECTED")%>>Barbados</option>
  289. <option value="BE"<%If SHIPTOCOUNTRYCODE = "BE" Then Response.Write("SELECTED")%>>Belgium</option>
  290. <option value="BZ"<%If SHIPTOCOUNTRYCODE = "BZ" Then Response.Write("SELECTED")%>>Belize</option>
  291. <option value="BY"<%If SHIPTOCOUNTRYCODE = "BY" Then Response.Write("SELECTED")%>>Belarus</option>
  292. <option value="BJ"<%If SHIPTOCOUNTRYCODE = "BJ" Then Response.Write("SELECTED")%>>Benin</option>
  293. <option value="BM"<%If SHIPTOCOUNTRYCODE = "BM" Then Response.Write("SELECTED")%>>Bermuda</option>
  294. <option value="BT"<%If SHIPTOCOUNTRYCODE = "BT" Then Response.Write("SELECTED")%>>Bhutan</option>
  295. <option value="BO"<%If SHIPTOCOUNTRYCODE = "BO" Then Response.Write("SELECTED")%>>Bolivia</option>
  296. <option value="BL"<%If SHIPTOCOUNTRYCODE = "BL" Then Response.Write("SELECTED")%>>Bonaire</option>
  297. <option value="BA"<%If SHIPTOCOUNTRYCODE = "BA" Then Response.Write("SELECTED")%>>Bosnia</option>
  298. <option value="BW"<%If SHIPTOCOUNTRYCODE = "BW" Then Response.Write("SELECTED")%>>Botswana</option>
  299. <option value="BR"<%If SHIPTOCOUNTRYCODE = "BR" Then Response.Write("SELECTED")%>>Brazil</option>
  300. <option value="VG"<%If SHIPTOCOUNTRYCODE = "VG" Then Response.Write("SELECTED")%>>British Virgin Islands</option>
  301. <option value="BN"<%If SHIPTOCOUNTRYCODE = "BN" Then Response.Write("SELECTED")%>>Brunei</option>
  302. <option value="BG"<%If SHIPTOCOUNTRYCODE = "BG" Then Response.Write("SELECTED")%>>Bulgaria</option>
  303. <option value="BF"<%If SHIPTOCOUNTRYCODE = "BF" Then Response.Write("SELECTED")%>>Burkina Faso</option>
  304. <option value="BI"<%If SHIPTOCOUNTRYCODE = "BI" Then Response.Write("SELECTED")%>>Burundi</option>
  305. <option value="KH"<%If SHIPTOCOUNTRYCODE = "KH" Then Response.Write("SELECTED")%>>Cambodia</option>
  306. <option value="CM"<%If SHIPTOCOUNTRYCODE = "CM" Then Response.Write("SELECTED")%>>Cameroon</option>
  307. <option value="CA">Canada</option>
  308. <option value="IC"<%If SHIPTOCOUNTRYCODE = "IC" Then Response.Write("SELECTED")%>>Canary Islands</option>
  309. <option value="CV"<%If SHIPTOCOUNTRYCODE = "CV" Then Response.Write("SELECTED")%>>Cape Verde Islands</option>
  310. <option value="KY"<%If SHIPTOCOUNTRYCODE = "KY" Then Response.Write("SELECTED")%>>Cayman Islands</option>
  311. <option value="CF"<%If SHIPTOCOUNTRYCODE = "CF" Then Response.Write("SELECTED")%>>Central African Republic</option>
  312. <option value="TD"<%If SHIPTOCOUNTRYCODE = "TD" Then Response.Write("SELECTED")%>>Chad</option>
  313. <option value="CD"<%If SHIPTOCOUNTRYCODE = "CD" Then Response.Write("SELECTED")%>>Channel Islands</option>
  314. <option value="CL"<%If SHIPTOCOUNTRYCODE = "CL" Then Response.Write("SELECTED")%>>Chile</option>
  315. <option value="CN"<%If SHIPTOCOUNTRYCODE = "CN" Then Response.Write("SELECTED")%>>China</option>
  316. <option value="CO"<%If SHIPTOCOUNTRYCODE = "CO" Then Response.Write("SELECTED")%>>Colombia</option>
  317. <option value="CG"<%If SHIPTOCOUNTRYCODE = "CG" Then Response.Write("SELECTED")%>>Congo</option>
  318. <option value="CK"<%If SHIPTOCOUNTRYCODE = "CK" Then Response.Write("SELECTED")%>>Cook Islands</option>
  319. <option value="CR"<%If SHIPTOCOUNTRYCODE = "CR" Then Response.Write("SELECTED")%>>Costa Rica</option>
  320. <option value="HR"<%If SHIPTOCOUNTRYCODE = "HR" Then Response.Write("SELECTED")%>>Croatia</option>
  321. <option value="CB"<%If SHIPTOCOUNTRYCODE = "CB" Then Response.Write("SELECTED")%>>Curacao</option>
  322. <option value="CY"<%If SHIPTOCOUNTRYCODE = "CY" Then Response.Write("SELECTED")%>>Cyprus</option>
  323. <option value="CZ"<%If SHIPTOCOUNTRYCODE = "CZ" Then Response.Write("SELECTED")%>>Czech Republic</option>
  324. <option value="DK"<%If SHIPTOCOUNTRYCODE = "DK" Then Response.Write("SELECTED")%>>Denmark</option>
  325. <option value="DJ"<%If SHIPTOCOUNTRYCODE = "DJ" Then Response.Write("SELECTED")%>>Djibouti</option>
  326. <option value="DM"<%If SHIPTOCOUNTRYCODE = "DM" Then Response.Write("SELECTED")%>>Dominica</option>
  327. <option value="DO"<%If SHIPTOCOUNTRYCODE = "DO" Then Response.Write("SELECTED")%>>Dominican Republic</option>
  328. <option value="EC"<%If SHIPTOCOUNTRYCODE = "EC" Then Response.Write("SELECTED")%>>Ecuador</option>
  329. <option value="EG"<%If SHIPTOCOUNTRYCODE = "EG" Then Response.Write("SELECTED")%>>Egypt</option>
  330. <option value="SV"<%If SHIPTOCOUNTRYCODE = "SV" Then Response.Write("SELECTED")%>>El Salvador</option>
  331. <option value="GQ"<%If SHIPTOCOUNTRYCODE = "GQ" Then Response.Write("SELECTED")%>>Equitorial Guinea</option>
  332. <option value="ER"<%If SHIPTOCOUNTRYCODE = "ER" Then Response.Write("SELECTED")%>>Eritrea</option>
  333. <option value="EE"<%If SHIPTOCOUNTRYCODE = "EE" Then Response.Write("SELECTED")%>>Estonia</option>
  334. <option value="ET"<%If SHIPTOCOUNTRYCODE = "ET" Then Response.Write("SELECTED")%>>Ethiopia</option>
  335. <option value="FO"<%If SHIPTOCOUNTRYCODE = "FO" Then Response.Write("SELECTED")%>>Faeroe Islands</option>
  336. <option value="FM"<%If SHIPTOCOUNTRYCODE = "FM" Then Response.Write("SELECTED")%>>Federated States of Micronesia</option>
  337. <option value="FJ"<%If SHIPTOCOUNTRYCODE = "FJ" Then Response.Write("SELECTED")%>>Fiji</option>
  338. <option value="FI"<%If SHIPTOCOUNTRYCODE = "FI" Then Response.Write("SELECTED")%>>Finland</option>
  339. <option value="FR">France</option>
  340. <option value="GF"<%If SHIPTOCOUNTRYCODE = "GF" Then Response.Write("SELECTED")%>>French Guiana</option>
  341. <option value="PF"<%If SHIPTOCOUNTRYCODE = "PF" Then Response.Write("SELECTED")%>>French Polynesia</option>
  342. <option value="GA"<%If SHIPTOCOUNTRYCODE = "GA" Then Response.Write("SELECTED")%>>Gabon</option>
  343. <option value="GM"<%If SHIPTOCOUNTRYCODE = "GM" Then Response.Write("SELECTED")%>>Gambia</option>
  344. <option value="GE"<%If SHIPTOCOUNTRYCODE = "GE" Then Response.Write("SELECTED")%>>Georgia</option>
  345. <option value="GE"<%If SHIPTOCOUNTRYCODE = "GE" Then Response.Write("SELECTED")%>>Georgia</option>
  346. <option value="DE">Germany</option>
  347. <option value="GH"<%If SHIPTOCOUNTRYCODE = "GH" Then Response.Write("SELECTED")%>>Ghana</option>
  348. <option value="GI"<%If SHIPTOCOUNTRYCODE = "GI" Then Response.Write("SELECTED")%>>Gibraltar</option>
  349. <option value="GR"<%If SHIPTOCOUNTRYCODE = "GR" Then Response.Write("SELECTED")%>>Greece</option>
  350. <option value="GL"<%If SHIPTOCOUNTRYCODE = "GL" Then Response.Write("SELECTED")%>>Greenland</option>
  351. <option value="GD"<%If SHIPTOCOUNTRYCODE = "GD" Then Response.Write("SELECTED")%>>Grenada</option>
  352. <option value="GP"<%If SHIPTOCOUNTRYCODE = "GP" Then Response.Write("SELECTED")%>>Guadeloupe</option>
  353. <option value="GU"<%If SHIPTOCOUNTRYCODE = "GU" Then Response.Write("SELECTED")%>>Guam</option>
  354. <option value="GT"<%If SHIPTOCOUNTRYCODE = "GT" Then Response.Write("SELECTED")%>>Guatemala</option>
  355. <option value="GN"<%If SHIPTOCOUNTRYCODE = "GN" Then Response.Write("SELECTED")%>>Guinea</option>
  356. <option value="GW"<%If SHIPTOCOUNTRYCODE = "GW" Then Response.Write("SELECTED")%>>Guinea-Bissau</option>
  357. <option value="GY"<%If SHIPTOCOUNTRYCODE = "GY" Then Response.Write("SELECTED")%>>Guyana</option>
  358. <option value="HT"<%If SHIPTOCOUNTRYCODE = "HT" Then Response.Write("SELECTED")%>>Haiti</option>
  359. <option value="HO"<%If SHIPTOCOUNTRYCODE = "HO" Then Response.Write("SELECTED")%>>Holland</option>
  360. <option value="HN"<%If SHIPTOCOUNTRYCODE = "HN" Then Response.Write("SELECTED")%>>Honduras</option>
  361. <option value="HK"<%If SHIPTOCOUNTRYCODE = "HK" Then Response.Write("SELECTED")%>>Hong Kong</option>
  362. <option value="HU"<%If SHIPTOCOUNTRYCODE = "HU" Then Response.Write("SELECTED")%>>Hungary</option>
  363. <option value="IS"<%If SHIPTOCOUNTRYCODE = "IS" Then Response.Write("SELECTED")%>>Iceland</option>
  364. <option value="IN"<%If SHIPTOCOUNTRYCODE = "IN" Then Response.Write("SELECTED")%>>India</option>
  365. <option value="ID"<%If SHIPTOCOUNTRYCODE = "ID" Then Response.Write("SELECTED")%>>Indonesia</option>
  366. <option value="IQ"<%If SHIPTOCOUNTRYCODE = "IQ" Then Response.Write("SELECTED")%>>Iraq</option>
  367. <option value="IR"<%If SHIPTOCOUNTRYCODE = "IR" Then Response.Write("SELECTED")%>>Iran</option>
  368. <option value="IL"<%If SHIPTOCOUNTRYCODE = "IL" Then Response.Write("SELECTED")%>>Israel</option>
  369. <option value="IT"<%If SHIPTOCOUNTRYCODE = "IT" Then Response.Write("SELECTED")%>>Italy</option>
  370. <option value="CI"<%If SHIPTOCOUNTRYCODE = "CI" Then Response.Write("SELECTED")%>>Ivory Coast</option>
  371. <option value="JM"<%If SHIPTOCOUNTRYCODE = "JM" Then Response.Write("SELECTED")%>>Jamaica</option>
  372. <option value="JP"<%If SHIPTOCOUNTRYCODE = "JP" Then Response.Write("SELECTED")%>>Japan</option>
  373. <option value="JO"<%If SHIPTOCOUNTRYCODE = "JO" Then Response.Write("SELECTED")%>>Jordan</option>
  374. <option value="KZ"<%If SHIPTOCOUNTRYCODE = "KZ" Then Response.Write("SELECTED")%>>Kazakhstan</option>
  375. <option value="KE"<%If SHIPTOCOUNTRYCODE = "KE" Then Response.Write("SELECTED")%>>Kenya</option>
  376. <option value="KI"<%If SHIPTOCOUNTRYCODE = "KI" Then Response.Write("SELECTED")%>>Kiribati</option>
  377. <option value="KO"<%If SHIPTOCOUNTRYCODE = "KO" Then Response.Write("SELECTED")%>>Kosrae</option>
  378. <option value="KW"<%If SHIPTOCOUNTRYCODE = "KW" Then Response.Write("SELECTED")%>>Kuwait</option>
  379. <option value="KG"<%If SHIPTOCOUNTRYCODE = "KG" Then Response.Write("SELECTED")%>>Kyrgyzstan</option>
  380. <option value="LA"<%If SHIPTOCOUNTRYCODE = "LA" Then Response.Write("SELECTED")%>>Laos</option>
  381. <option value="LV"<%If SHIPTOCOUNTRYCODE = "LV" Then Response.Write("SELECTED")%>>Latvia</option>
  382. <option value="LB"<%If SHIPTOCOUNTRYCODE = "LB" Then Response.Write("SELECTED")%>>Lebanon</option>
  383. <option value="LS"<%If SHIPTOCOUNTRYCODE = "LS" Then Response.Write("SELECTED")%>>Lesotho</option>
  384. <option value="LR"<%If SHIPTOCOUNTRYCODE = "LR" Then Response.Write("SELECTED")%>>Liberia</option>
  385. <option value="LY"<%If SHIPTOCOUNTRYCODE = "LY" Then Response.Write("SELECTED")%>>Libya</option>
  386. <option value="LI"<%If SHIPTOCOUNTRYCODE = "LI" Then Response.Write("SELECTED")%>>Liechtenstein</option>
  387. <option value="LT"<%If SHIPTOCOUNTRYCODE = "LT" Then Response.Write("SELECTED")%>>Lithuania</option>
  388. <option value="LU"<%If SHIPTOCOUNTRYCODE = "LU" Then Response.Write("SELECTED")%>>Luxembourg</option>
  389. <option value="MO"<%If SHIPTOCOUNTRYCODE = "MO" Then Response.Write("SELECTED")%>>Macau</option>
  390. <option value="MK"<%If SHIPTOCOUNTRYCODE = "MK" Then Response.Write("SELECTED")%>>Macedonia</option>
  391. <option value="MG"<%If SHIPTOCOUNTRYCODE = "MG" Then Response.Write("SELECTED")%>>Madagascar</option>
  392. <option value="ME"<%If SHIPTOCOUNTRYCODE = "ME" Then Response.Write("SELECTED")%>>Madeira</option>
  393. <option value="MW"<%If SHIPTOCOUNTRYCODE = "MW" Then Response.Write("SELECTED")%>>Malawi</option>
  394. <option value="MY"<%If SHIPTOCOUNTRYCODE = "MY" Then Response.Write("SELECTED")%>>Malaysia</option>
  395. <option value="MV"<%If SHIPTOCOUNTRYCODE = "MV" Then Response.Write("SELECTED")%>>Maldives</option>
  396. <option value="ML"<%If SHIPTOCOUNTRYCODE = "ML" Then Response.Write("SELECTED")%>>Mali</option>
  397. <option value="MT"<%If SHIPTOCOUNTRYCODE = "MT" Then Response.Write("SELECTED")%>>Malta</option>
  398. <option value="MH"<%If SHIPTOCOUNTRYCODE = "MH" Then Response.Write("SELECTED")%>>Marshall Islands</option>
  399. <option value="MQ"<%If SHIPTOCOUNTRYCODE = "MQ" Then Response.Write("SELECTED")%>>Martinique</option>
  400. <option value="MR"<%If SHIPTOCOUNTRYCODE = "MR" Then Response.Write("SELECTED")%>>Mauritania</option>
  401. <option value="MU"<%If SHIPTOCOUNTRYCODE = "MU" Then Response.Write("SELECTED")%>>Mauritius</option>
  402. <option value="MX"<%If SHIPTOCOUNTRYCODE = "MX" Then Response.Write("SELECTED")%>>Mexico</option>
  403. <option value="MD"<%If SHIPTOCOUNTRYCODE = "MD" Then Response.Write("SELECTED")%>>Moldova</option>
  404. <option value="MC"<%If SHIPTOCOUNTRYCODE = "MC" Then Response.Write("SELECTED")%>>Monaco</option>
  405. <option value="MN"<%If SHIPTOCOUNTRYCODE = "MN" Then Response.Write("SELECTED")%>>Monogolia</option>
  406. <option value="MS"<%If SHIPTOCOUNTRYCODE = "MS" Then Response.Write("SELECTED")%>>Montserrat</option>
  407. <option value="MA"<%If SHIPTOCOUNTRYCODE = "MA" Then Response.Write("SELECTED")%>>Morocco</option>
  408. <option value="MZ"<%If SHIPTOCOUNTRYCODE = "MZ" Then Response.Write("SELECTED")%>>Mozambique</option>
  409. <option value="MM"<%If SHIPTOCOUNTRYCODE = "MM" Then Response.Write("SELECTED")%>>Myanmar</option>
  410. <option value="NA"<%If SHIPTOCOUNTRYCODE = "NA" Then Response.Write("SELECTED")%>>Namibia</option>
  411. <option value="NR"<%If SHIPTOCOUNTRYCODE = "NR" Then Response.Write("SELECTED")%>>Nauru</option>
  412. <option value="NP"<%If SHIPTOCOUNTRYCODE = "NP" Then Response.Write("SELECTED")%>>Nepal</option>
  413. <option value="NL"<%If SHIPTOCOUNTRYCODE = "NL" Then Response.Write("SELECTED")%>>Netherlands</option>
  414. <option value="AN"<%If SHIPTOCOUNTRYCODE = "AN" Then Response.Write("SELECTED")%>>Netherlands Antilles</option>
  415. <option value="NC"<%If SHIPTOCOUNTRYCODE = "NC" Then Response.Write("SELECTED")%>>New Caledonia</option>
  416. <option value="NZ"<%If SHIPTOCOUNTRYCODE = "NZ" Then Response.Write("SELECTED")%>>New Zealand</option>
  417. <option value="NI"<%If SHIPTOCOUNTRYCODE = "NI" Then Response.Write("SELECTED")%>>Nicaragua</option>
  418. <option value="NE"<%If SHIPTOCOUNTRYCODE = "NE" Then Response.Write("SELECTED")%>>Niger</option>
  419. <option value="NG"<%If SHIPTOCOUNTRYCODE = "NG" Then Response.Write("SELECTED")%>>Nigeria</option>
  420. <option value="NF"<%If SHIPTOCOUNTRYCODE = "NF" Then Response.Write("SELECTED")%>>Norfolk Island</option>
  421. <option value="NB"<%If SHIPTOCOUNTRYCODE = "NB" Then Response.Write("SELECTED")%>>Northern Ireland</option>
  422. <option value="MP"<%If SHIPTOCOUNTRYCODE = "MP" Then Response.Write("SELECTED")%>>Northern Mariana Islands</option>
  423. <option value="NO"<%If SHIPTOCOUNTRYCODE = "NO" Then Response.Write("SELECTED")%>>Norway</option>
  424. <option value="OM"<%If SHIPTOCOUNTRYCODE = "OM" Then Response.Write("SELECTED")%>>Oman</option>
  425. <option value="PK"<%If SHIPTOCOUNTRYCODE = "PK" Then Response.Write("SELECTED")%>>Pakistan</option>
  426. <option value="PW"<%If SHIPTOCOUNTRYCODE = "PW" Then Response.Write("SELECTED")%>>Palau</option>
  427. <option value="PA"<%If SHIPTOCOUNTRYCODE = "PA" Then Response.Write("SELECTED")%>>Panama</option>
  428. <option value="PG"<%If SHIPTOCOUNTRYCODE = "PG" Then Response.Write("SELECTED")%>>Papua New Guinea</option>
  429. <option value="PY"<%If SHIPTOCOUNTRYCODE = "PY" Then Response.Write("SELECTED")%>>Paraguay</option>
  430. <option value="PE"<%If SHIPTOCOUNTRYCODE = "PE" Then Response.Write("SELECTED")%>>Peru</option>
  431. <option value="PH"<%If SHIPTOCOUNTRYCODE = "PH" Then Response.Write("SELECTED")%>>Philippines</option>
  432. <option value="PN"<%If SHIPTOCOUNTRYCODE = "PN" Then Response.Write("SELECTED")%>>Pitcairn Island</option>
  433. <option value="PL"<%If SHIPTOCOUNTRYCODE = "PL" Then Response.Write("SELECTED")%>>Poland</option>
  434. <option value="PO"<%If SHIPTOCOUNTRYCODE = "PO" Then Response.Write("SELECTED")%>>Ponape</option>
  435. <option value="PT"<%If SHIPTOCOUNTRYCODE = "PT" Then Response.Write("SELECTED")%>>Portugal</option>
  436. <option value="PR"<%If SHIPTOCOUNTRYCODE = "PR" Then Response.Write("SELECTED")%>>Puerto Rico</option>
  437. <option value="QA"<%If SHIPTOCOUNTRYCODE = "QA" Then Response.Write("SELECTED")%>>Qatar</option>
  438. <option value="IE"<%If SHIPTOCOUNTRYCODE = "IE" Then Response.Write("SELECTED")%>>Republic of Ireland</option>
  439. <option value="YE"<%If SHIPTOCOUNTRYCODE = "YE" Then Response.Write("SELECTED")%>>Republic of Yemen</option>
  440. <option value="RE"<%If SHIPTOCOUNTRYCODE = "RE" Then Response.Write("SELECTED")%>>Reunion</option>
  441. <option value="RO"<%If SHIPTOCOUNTRYCODE = "RO" Then Response.Write("SELECTED")%>>Romania</option>
  442. <option value="RT"<%If SHIPTOCOUNTRYCODE = "RT" Then Response.Write("SELECTED")%>>Rota</option>
  443. <option value="RU"<%If SHIPTOCOUNTRYCODE = "RU" Then Response.Write("SELECTED")%>>Russia</option>
  444. <option value="RW"<%If SHIPTOCOUNTRYCODE = "RW" Then Response.Write("SELECTED")%>>Rwanda</option>
  445. <option value="SS"<%If SHIPTOCOUNTRYCODE = "SS" Then Response.Write("SELECTED")%>>Saba</option>
  446. <option value="SP"<%If SHIPTOCOUNTRYCODE = "SP" Then Response.Write("SELECTED")%>>Saipan</option>
  447. <option value="SM"<%If SHIPTOCOUNTRYCODE = "SM" Then Response.Write("SELECTED")%>>San Marino</option>
  448. <option value="ST"<%If SHIPTOCOUNTRYCODE = "ST" Then Response.Write("SELECTED")%>>Sao Tome and Principe</option>
  449. <option value="SA"<%If SHIPTOCOUNTRYCODE = "SA" Then Response.Write("SELECTED")%>>Saudi Arabia</option>
  450. <option value="SF"<%If SHIPTOCOUNTRYCODE = "SF" Then Response.Write("SELECTED")%>>Scotland</option>
  451. <option value="SN"<%If SHIPTOCOUNTRYCODE = "SN" Then Response.Write("SELECTED")%>>Senegal</option>
  452. <option value="SC"<%If SHIPTOCOUNTRYCODE = "SC" Then Response.Write("SELECTED")%>>Seychelles</option>
  453. <option value="SL"<%If SHIPTOCOUNTRYCODE = "SL" Then Response.Write("SELECTED")%>>Sierra Leone</option>
  454. <option value="SG"<%If SHIPTOCOUNTRYCODE = "SG" Then Response.Write("SELECTED")%>>Singapore</option>
  455. <option value="SK"<%If SHIPTOCOUNTRYCODE = "SK" Then Response.Write("SELECTED")%>>Slovakia</option>
  456. <option value="SI"<%If SHIPTOCOUNTRYCODE = "SI" Then Response.Write("SELECTED")%>>Slovenia</option>
  457. <option value="SB"<%If SHIPTOCOUNTRYCODE = "SB" Then Response.Write("SELECTED")%>>Solomon Islands</option>
  458. <option value="ZA"<%If SHIPTOCOUNTRYCODE = "ZA" Then Response.Write("SELECTED")%>>South Africa</option>
  459. <option value="KR"<%If SHIPTOCOUNTRYCODE = "KR" Then Response.Write("SELECTED")%>>South Korea</option>
  460. <option value="ES"<%If SHIPTOCOUNTRYCODE = "ES" Then Response.Write("SELECTED")%>>Spain</option>
  461. <option value="LK"<%If SHIPTOCOUNTRYCODE = "LK" Then Response.Write("SELECTED")%>>Sri Lanka</option>
  462. <option value="NT"<%If SHIPTOCOUNTRYCODE = "NT" Then Response.Write("SELECTED")%>>St. Barthelemy</option>
  463. <option value="SW"<%If SHIPTOCOUNTRYCODE = "SW" Then Response.Write("SELECTED")%>>St. Christopher</option>
  464. <option value="SX"<%If SHIPTOCOUNTRYCODE = "SX" Then Response.Write("SELECTED")%>>St. Croix</option>
  465. <option value="EU"<%If SHIPTOCOUNTRYCODE = "EU" Then Response.Write("SELECTED")%>>St. Eustatius</option>
  466. <option value="UV"<%If SHIPTOCOUNTRYCODE = "UV" Then Response.Write("SELECTED")%>>St. John</option>
  467. <option value="KN"<%If SHIPTOCOUNTRYCODE = "KN" Then Response.Write("SELECTED")%>>St. Kitts & Nevis</option>
  468. <option value="LC"<%If SHIPTOCOUNTRYCODE = "LC" Then Response.Write("SELECTED")%>>St. Lucia</option>
  469. <option value="MB"<%If SHIPTOCOUNTRYCODE = "MB" Then Response.Write("SELECTED")%>>St. Maarten</option>
  470. <option value="TB"<%If SHIPTOCOUNTRYCODE = "TB" Then Response.Write("SELECTED")%>>St. Martin</option>
  471. <option value="VL"<%If SHIPTOCOUNTRYCODE = "VL" Then Response.Write("SELECTED")%>>St. Thomas</option>
  472. <option value="VC"<%If SHIPTOCOUNTRYCODE = "VC" Then Response.Write("SELECTED")%>>St. Vincent</option>
  473. <option value="SD"<%If SHIPTOCOUNTRYCODE = "SD" Then Response.Write("SELECTED")%>>Sudan</option>
  474. <option value="SR"<%If SHIPTOCOUNTRYCODE = "SR" Then Response.Write("SELECTED")%>>Suriname</option>
  475. <option value="SZ"<%If SHIPTOCOUNTRYCODE = "SZ" Then Response.Write("SELECTED")%>>Swaziland</option>
  476. <option value="SE"<%If SHIPTOCOUNTRYCODE = "SE" Then Response.Write("SELECTED")%>>Sweden</option>
  477. <option value="CH"<%If SHIPTOCOUNTRYCODE = "CH" Then Response.Write("SELECTED")%>>Switzerland</option>
  478. <option value="SY"<%If SHIPTOCOUNTRYCODE = "SY" Then Response.Write("SELECTED")%>>Syria</option>
  479. <option value="TA"<%If SHIPTOCOUNTRYCODE = "TA" Then Response.Write("SELECTED")%>>Tahiti</option>
  480. <option value="TW"<%If SHIPTOCOUNTRYCODE = "TW" Then Response.Write("SELECTED")%>>Taiwan</option>
  481. <option value="TJ"<%If SHIPTOCOUNTRYCODE = "TJ" Then Response.Write("SELECTED")%>>Tajikistan</option>
  482. <option value="TZ"<%If SHIPTOCOUNTRYCODE = "TZ" Then Response.Write("SELECTED")%>>Tanzania</option>
  483. <option value="TH"<%If SHIPTOCOUNTRYCODE = "TH" Then Response.Write("SELECTED")%>>Thailand</option>
  484. <option value="TI"<%If SHIPTOCOUNTRYCODE = "TI" Then Response.Write("SELECTED")%>>Tinian</option>
  485. <option value="TG"<%If SHIPTOCOUNTRYCODE = "TG" Then Response.Write("SELECTED")%>>Togo</option>
  486. <option value="TO"<%If SHIPTOCOUNTRYCODE = "TO" Then Response.Write("SELECTED")%>>Tonga</option>
  487. <option value="TL"<%If SHIPTOCOUNTRYCODE = "TL" Then Response.Write("SELECTED")%>>Tortola</option>
  488. <option value="TT"<%If SHIPTOCOUNTRYCODE = "TT" Then Response.Write("SELECTED")%>>Trinidad & Tobago</option>
  489. <option value="TU"<%If SHIPTOCOUNTRYCODE = "TU" Then Response.Write("SELECTED")%>>Truk</option>
  490. <option value="TN"<%If SHIPTOCOUNTRYCODE = "TN" Then Response.Write("SELECTED")%>>Tunisia</option>
  491. <option value="TR"<%If SHIPTOCOUNTRYCODE = "TR" Then Response.Write("SELECTED")%>>Turkey</option>
  492. <option value="TM"<%If SHIPTOCOUNTRYCODE = "TM" Then Response.Write("SELECTED")%>>Turkmenistan</option>
  493. <option value="TC"<%If SHIPTOCOUNTRYCODE = "TC" Then Response.Write("SELECTED")%>>Turks & Caicos Islands</option>
  494. <option value="TV"<%If SHIPTOCOUNTRYCODE = "TV" Then Response.Write("SELECTED")%>>Tuvalu</option>
  495. <option value="UG"<%If SHIPTOCOUNTRYCODE = "UG" Then Response.Write("SELECTED")%>>Uganda</option>
  496. <option value="UA"<%If SHIPTOCOUNTRYCODE = "UA" Then Response.Write("SELECTED")%>>Ukraine</option>
  497. <option value="UI"<%If SHIPTOCOUNTRYCODE = "UI" Then Response.Write("SELECTED")%>>Union Island</option>
  498. <option value="AE"<%If SHIPTOCOUNTRYCODE = "AE" Then Response.Write("SELECTED")%>>United Arab Emirates</option>
  499. <option value="GB">United Kingdom</option>
  500. <option value="US">United States</option>
  501. <option value="UY"<%If SHIPTOCOUNTRYCODE = "UY" Then Response.Write("SELECTED")%>>Uruguay</option>
  502. <option value="VI"<%If SHIPTOCOUNTRYCODE = "VI" Then Response.Write("SELECTED")%>>US Virgin Islands</option>
  503. <option value="UZ"<%If SHIPTOCOUNTRYCODE = "UZ" Then Response.Write("SELECTED")%>>Uzbekistan</option>
  504. <option value="VU"<%If SHIPTOCOUNTRYCODE = "VU" Then Response.Write("SELECTED")%>>Vanuatu</option>
  505. <option value="VA"<%If SHIPTOCOUNTRYCODE = "VA" Then Response.Write("SELECTED")%>>Vatican City</option>
  506. <option value="VE"<%If SHIPTOCOUNTRYCODE = "VE" Then Response.Write("SELECTED")%>>Venezuela</option>
  507. <option value="VN"<%If SHIPTOCOUNTRYCODE = "VN" Then Response.Write("SELECTED")%>>Vietnam</option>
  508. <option value="VR"<%If SHIPTOCOUNTRYCODE = "VR" Then Response.Write("SELECTED")%>>Virgin Gorda</option>
  509. <option value="WK"<%If SHIPTOCOUNTRYCODE = "WK" Then Response.Write("SELECTED")%>>Wake Island</option>
  510. <option value="WL"<%If SHIPTOCOUNTRYCODE = "WL" Then Response.Write("SELECTED")%>>Wales</option>
  511. <option value="WF"<%If SHIPTOCOUNTRYCODE = "WF" Then Response.Write("SELECTED")%>>Wallis & Futuna Islands</option>
  512. <option value="WS"<%If SHIPTOCOUNTRYCODE = "WS" Then Response.Write("SELECTED")%>>Western Samoa</option>
  513. <option value="YA"<%If SHIPTOCOUNTRYCODE = "YA" Then Response.Write("SELECTED")%>>Yap</option>
  514. <option value="YU"<%If SHIPTOCOUNTRYCODE = "YU" Then Response.Write("SELECTED")%>>Yugoslavia</option>
  515. <option value="ZR"<%If SHIPTOCOUNTRYCODE = "ZR" Then Response.Write("SELECTED")%>>Zaire</option>
  516. <option value="ZM"<%If SHIPTOCOUNTRYCODE = "ZM" Then Response.Write("SELECTED")%>>Zambia</option>
  517. <option value="ZW"<%If SHIPTOCOUNTRYCODE = "ZW" Then Response.Write("SELECTED")%>>Zimbabwe</option>
  518. <option value="">-----------------------</option>
  519. <option value="NONE" <%If SHIPTOCOUNTRYCODE = "NONE" Then Response.Write("SELECTED")%>>Not Listed</option>
  520. </select> </td>
  521. </tr>
  522. <tr valign="baseline">
  523. <td class="sans-1" align="right">Zip/Postal Code:</td>
  524. <td><input id="shpto" type="text" name="SHIPTOZIP" value="<%=SHIPTOZIP%>" style="width: 200px"></td>
  525. </tr>
  526. <tr valign="baseline">
  527. <td class="sans-1" align="right">Telephone:</td>
  528. <td><input id="shpto" type="text" name="SHIPTOPHONENUM" value="<%=SHIPTOPHONENUM%>" style="width: 200px"></td>
  529. </tr>
  530. <tr valign="baseline">
  531. <td class="sans-1" align="right">&nbsp;</td>
  532. <td>&nbsp;</td>
  533. </tr>
  534. -->
  535. </table>
  536. <%
  537. End Function
  538.  
  539.  
  540.  
  541.  
  542. Function BilltoAddress()
  543.  
  544.  
  545. %>
  546. <table cellpadding="5">
  547. <tr valign="baseline">
  548. <td colspan="2" class="heading">Billing Address<span class="sans-1Red">&nbsp;</span></td>
  549. </tr>
  550. <tr valign="baseline">
  551. <td class="sans-1" align="right"><span class="sans-1Red">*</span>First Name:</td>
  552. <td><input type="text" name="FIRSTNAME" value="<%=FIRSTNAME%>" style="width: 200px"> </td>
  553. </tr>
  554. <tr valign="baseline">
  555. <td class="sans-1" align="right"><span class="sans-1Red">*</span>Last Name:</td>
  556. <td><input type="text" name="LASTNAME" value="<%=LASTNAME%>" style="width: 200px"> </td>
  557. </tr>
  558. <tr>
  559. <td align="right" valign="top" nowrap class="sans-1"><span class="sans-1Red">*</span>Address 1:</td>
  560. <td valign="baseline"><input type="text" name="STREET" value="<%=STREET%>" style="width: 200px"> </td>
  561. </tr>
  562. <tr>
  563. <td align="right" valign="top" nowrap class="sans-1">Address 2:</td>
  564. <td valign="baseline"><input type="text" name="STREET2" value="<%=STREET2%>" style="width: 200px"> </td>
  565. </tr>
  566. <tr valign="baseline">
  567. <td class="sans-1" align="right"><span class="sans-1Red">*</span>City:</td>
  568. <td><input type="text" name="CITY" value="<%=CITY%>" style="width: 200px"> </td>
  569. </tr>
  570. <tr valign="baseline">
  571. <td class="sans-1" align="right"><span class="sans-1Red">*</span>State:</td>
  572. <td><select name="STATE" style="width: 200px">
  573. <option value="">Please Choose</option>
  574. <option value="AA"<%If STATE = "AA" Then Response.Write("SELECTED")%>>Armed Forces Americas (AA)</option>
  575. <option value="AE"<%If STATE = "AE" Then Response.Write("SELECTED")%>>Armed Forces (AE)</option>
  576. <option value="AP"<%If STATE = "AP" Then Response.Write("SELECTED")%>>Armed Forces Pacific (AP)</option>
  577. <option value="AL"<%If STATE = "AL" Then Response.Write("SELECTED")%>>Alabama</option>
  578. <option value="AK"<%If STATE = "AK" Then Response.Write("SELECTED")%>>Alaska</option>
  579. <option value="AZ"<%If STATE = "AZ" Then Response.Write("SELECTED")%>>Arizona</option>
  580. <option value="AR"<%If STATE = "AR" Then Response.Write("SELECTED")%>>Arkansas</option>
  581. <option value="CA"<%If STATE = "CA" Then Response.Write("SELECTED")%>>California</option>
  582. <option value="CO"<%If STATE = "CO" Then Response.Write("SELECTED")%>>Colorado</option>
  583. <option value="CT"<%If STATE = "CT" Then Response.Write("SELECTED")%>>Connecticut</option>
  584. <option value="DE"<%If STATE = "DE" Then Response.Write("SELECTED")%>>Delaware</option>
  585. <option value="FL"<%If STATE = "FL" Then Response.Write("SELECTED")%>>Florida</option>
  586. <option value="GA"<%If STATE = "GA" Then Response.Write("SELECTED")%>>Georgia</option>
  587. <option value="HI"<%If STATE = "HI" Then Response.Write("SELECTED")%>>Hawaii</option>
  588. <option value="ID"<%If STATE = "ID" Then Response.Write("SELECTED")%>>Idaho</option>
  589. <option value="IL"<%If STATE = "IL" Then Response.Write("SELECTED")%>>Illinois</option>
  590. <option value="IN"<%If STATE = "IN" Then Response.Write("SELECTED")%>>Indiana</option>
  591. <option value="IA"<%If STATE = "IA" Then Response.Write("SELECTED")%>>Iowa</option>
  592. <option value="KS"<%If STATE = "KS" Then Response.Write("SELECTED")%>>Kansas</option>
  593. <option value="KY"<%If STATE = "KY" Then Response.Write("SELECTED")%>>Kentucky</option>
  594. <option value="LA"<%If STATE = "LA" Then Response.Write("SELECTED")%>>Louisiana</option>
  595. <option value="ME"<%If STATE = "ME" Then Response.Write("SELECTED")%>>Maine</option>
  596. <option value="MD"<%If STATE = "MD" Then Response.Write("SELECTED")%>>Maryland</option>
  597. <option value="MA"<%If STATE = "MA" Then Response.Write("SELECTED")%>>Massachusetts</option>
  598. <option value="MI"<%If STATE = "MI" Then Response.Write("SELECTED")%>>Michigan</option>
  599. <option value="MN"<%If STATE = "MN" Then Response.Write("SELECTED")%>>Minnesota</option>
  600. <option value="MS"<%If STATE = "MS" Then Response.Write("SELECTED")%>>Mississippi</option>
  601. <option value="MO"<%If STATE = "MO" Then Response.Write("SELECTED")%>>Missouri</option>
  602. <option value="MT"<%If STATE = "MT" Then Response.Write("SELECTED")%>>Montana</option>
  603. <option value="NE"<%If STATE = "NE" Then Response.Write("SELECTED")%>>Nebraska</option>
  604. <option value="NV"<%If STATE = "NV" Then Response.Write("SELECTED")%>>Nevada</option>
  605. <option value="NH"<%If STATE = "NH" Then Response.Write("SELECTED")%>>New Hampshire</option>
  606. <option value="NJ"<%If STATE = "NJ" Then Response.Write("SELECTED")%>>New Jersey</option>
  607. <option value="NM"<%If STATE = "NM" Then Response.Write("SELECTED")%>>New Mexico</option>
  608. <option value="NY"<%If STATE = "NY" Then Response.Write("SELECTED")%>>New York</option>
  609. <option value="NC"<%If STATE = "NC" Then Response.Write("SELECTED")%>>North Carolina</option>
  610. <option value="ND"<%If STATE = "ND" Then Response.Write("SELECTED")%>>North Dakota</option>
  611. <option value="OH"<%If STATE = "OH" Then Response.Write("SELECTED")%>>Ohio</option>
  612. <option value="OK"<%If STATE = "OK" Then Response.Write("SELECTED")%>>Oklahoma</option>
  613. <option value="OR"<%If STATE = "OR" Then Response.Write("SELECTED")%>>Oregon</option>
  614. <option value="PA"<%If STATE = "PA" Then Response.Write("SELECTED")%>>Pennsylvania</option>
  615. <option value="RI"<%If STATE = "RI" Then Response.Write("SELECTED")%>>Rhode Island</option>
  616. <option value="SC"<%If STATE = "SC" Then Response.Write("SELECTED")%>>South Carolina</option>
  617. <option value="SD"<%If STATE = "SD" Then Response.Write("SELECTED")%>>South Dakota</option>
  618. <option value="TN"<%If STATE = "TN" Then Response.Write("SELECTED")%>>Tennessee</option>
  619. <option value="TX"<%If STATE = "TX" Then Response.Write("SELECTED")%>>Texas</option>
  620. <option value="UT"<%If STATE = "UT" Then Response.Write("SELECTED")%>>Utah</option>
  621. <option value="VT"<%If STATE = "VT" Then Response.Write("SELECTED")%>>Vermont</option>
  622. <option value="VA"<%If STATE = "VA" Then Response.Write("SELECTED")%>>Virginia</option>
  623. <option value="WA"<%If STATE = "WA" Then Response.Write("SELECTED")%>>Washington</option>
  624. <option value="DC"<%If STATE = "DC" Then Response.Write("SELECTED")%>>Washington, D.C.</option>
  625. <option value="WV"<%If STATE = "WV" Then Response.Write("SELECTED")%>>West Virginia</option>
  626. <option value="WI"<%If STATE = "WI" Then Response.Write("SELECTED")%>>Wisconsin</option>
  627. <option value="WY"<%If STATE = "WY" Then Response.Write("SELECTED")%>>Wyoming</option>
  628. <option value="">---------------------</option>
  629. <option value="ALB"<%If STATE = "ALB" Then Response.Write("SELECTED")%>>Alberta</option>
  630. <option value="BC"<%If STATE = "BC" Then Response.Write("SELECTED")%>>British Columbia</option>
  631. <option value="MAN"<%If STATE = "MAN" Then Response.Write("SELECTED")%>>Manitoba</option>
  632. <option value="NB"<%If STATE = "NB" Then Response.Write("SELECTED")%>>New Brunswick</option>
  633. <option value="NFL"<%If STATE = "NFL" Then Response.Write("SELECTED")%>>Newfoundland</option>
  634. <option value="NT"<%If STATE = "NT" Then Response.Write("SELECTED")%>>North West Territories</option>
  635. <option value="NS"<%If STATE = "NS" Then Response.Write("SELECTED")%>>Nova Scotia</option>
  636. <option value="NU"<%If STATE = "NU" Then Response.Write("SELECTED")%>>Nunavut</option>
  637. <option value="ON"<%If STATE = "ON" Then Response.Write("SELECTED")%>>Ontario</option>
  638. <option value="PEI"<%If STATE = "PEI" Then Response.Write("SELECTED")%>>Prince Edward Island</option>
  639. <option value="QUE"<%If STATE = "QUE" Then Response.Write("SELECTED")%>>Quebec</option>
  640. <option value="SAS"<%If STATE = "SAS" Then Response.Write("SELECTED")%>>Saskatchewan</option>
  641. <option value="YT"<%If STATE = "YT" Then Response.Write("SELECTED")%>>Yukon Territories</option>
  642. <option value="">-----------------------</option>
  643. <option value="NONE" <%If STATE = "NONE" Then Response.Write("SELECTED")%>>Not Listed</option>
  644. </select> </td>
  645. </tr>
  646. <tr valign="baseline">
  647. <td class="sans-1" align="right"><span class="sans-1Red">*</span>Country:</td>
  648. <td><select name="COUNTRYCODE" style="width: 200px">
  649. <option value="">Choose a country</option>
  650. <option value="US"<%If COUNTRYCODE = "US" Then Response.Write("SELECTED")%>>United States of America</option>
  651. <option value="CA"<%If COUNTRYCODE = "CA" Then Response.Write("SELECTED")%>>Canada</option>
  652. <option value="DE"<%If COUNTRYCODE = "DE" Then Response.Write("SELECTED")%>>Germany</option>
  653. <option value="FR"<%If COUNTRYCODE = "FR" Then Response.Write("SELECTED")%>>France</option>
  654. <option value="GB"<%If COUNTRYCODE = "GB" Then Response.Write("SELECTED")%>>United Kingdom</option>
  655. <option value="">-----------------------</option>
  656. <option value="AL"<%If COUNTRYCODE = "AL" Then Response.Write("SELECTED")%>>Albania</option>
  657. <option value="DZ"<%If COUNTRYCODE = "DZ" Then Response.Write("SELECTED")%>>Algeria</option>
  658. <option value="AS"<%If COUNTRYCODE = "AS" Then Response.Write("SELECTED")%>>American Samoa</option>
  659. <option value="AD"<%If COUNTRYCODE = "AD" Then Response.Write("SELECTED")%>>Andorra</option>
  660. <option value="AO"<%If COUNTRYCODE = "AO" Then Response.Write("SELECTED")%>>Angola</option>
  661. <option value="AI"<%If COUNTRYCODE = "AI" Then Response.Write("SELECTED")%>>Anguilla</option>
  662. <option value="AG"<%If COUNTRYCODE = "AG" Then Response.Write("SELECTED")%>>Antigua & Barbuda</option>
  663. <option value="AR"<%If COUNTRYCODE = "AR" Then Response.Write("SELECTED")%>>Argentina</option>
  664. <option value="AM"<%If COUNTRYCODE = "AM" Then Response.Write("SELECTED")%>>Armenia</option>
  665. <option value="AW"<%If COUNTRYCODE = "AW" Then Response.Write("SELECTED")%>>Aruba</option>
  666. <option value="AU"<%If COUNTRYCODE = "AU" Then Response.Write("SELECTED")%>>Australia</option>
  667. <option value="AT"<%If COUNTRYCODE = "AT" Then Response.Write("SELECTED")%>>Austria</option>
  668. <option value="AP"<%If COUNTRYCODE = "AP" Then Response.Write("SELECTED")%>>Azores</option>
  669. <option value="BS"<%If COUNTRYCODE = "BS" Then Response.Write("SELECTED")%>>Bahamas</option>
  670. <option value="BH"<%If COUNTRYCODE = "BH" Then Response.Write("SELECTED")%>>Bahrain</option>
  671. <option value="BD"<%If COUNTRYCODE = "BD" Then Response.Write("SELECTED")%>>Bangladesh</option>
  672. <option value="BB"<%If COUNTRYCODE = "BB" Then Response.Write("SELECTED")%>>Barbados</option>
  673. <option value="BE"<%If COUNTRYCODE = "BE" Then Response.Write("SELECTED")%>>Belgium</option>
  674. <option value="BZ"<%If COUNTRYCODE = "BZ" Then Response.Write("SELECTED")%>>Belize</option>
  675. <option value="BY"<%If COUNTRYCODE = "BY" Then Response.Write("SELECTED")%>>Belarus</option>
  676. <option value="BJ"<%If COUNTRYCODE = "BJ" Then Response.Write("SELECTED")%>>Benin</option>
  677. <option value="BM"<%If COUNTRYCODE = "BM" Then Response.Write("SELECTED")%>>Bermuda</option>
  678. <option value="BT"<%If COUNTRYCODE = "BT" Then Response.Write("SELECTED")%>>Bhutan</option>
  679. <option value="BO"<%If COUNTRYCODE = "BO" Then Response.Write("SELECTED")%>>Bolivia</option>
  680. <option value="BL"<%If COUNTRYCODE = "BL" Then Response.Write("SELECTED")%>>Bonaire</option>
  681. <option value="BA"<%If COUNTRYCODE = "BA" Then Response.Write("SELECTED")%>>Bosnia</option>
  682. <option value="BW"<%If COUNTRYCODE = "BW" Then Response.Write("SELECTED")%>>Botswana</option>
  683. <option value="BR"<%If COUNTRYCODE = "BR" Then Response.Write("SELECTED")%>>Brazil</option>
  684. <option value="VG"<%If COUNTRYCODE = "VG" Then Response.Write("SELECTED")%>>British Virgin Islands</option>
  685. <option value="BN"<%If COUNTRYCODE = "BN" Then Response.Write("SELECTED")%>>Brunei</option>
  686. <option value="BG"<%If COUNTRYCODE = "BG" Then Response.Write("SELECTED")%>>Bulgaria</option>
  687. <option value="BF"<%If COUNTRYCODE = "BF" Then Response.Write("SELECTED")%>>Burkina Faso</option>
  688. <option value="BI"<%If COUNTRYCODE = "BI" Then Response.Write("SELECTED")%>>Burundi</option>
  689. <option value="KH"<%If COUNTRYCODE = "KH" Then Response.Write("SELECTED")%>>Cambodia</option>
  690. <option value="CM"<%If COUNTRYCODE = "CM" Then Response.Write("SELECTED")%>>Cameroon</option>
  691. <option value="CA">Canada</option>
  692. <option value="IC"<%If COUNTRYCODE = "IC" Then Response.Write("SELECTED")%>>Canary Islands</option>
  693. <option value="CV"<%If COUNTRYCODE = "CV" Then Response.Write("SELECTED")%>>Cape Verde Islands</option>
  694. <option value="KY"<%If COUNTRYCODE = "KY" Then Response.Write("SELECTED")%>>Cayman Islands</option>
  695. <option value="CF"<%If COUNTRYCODE = "CF" Then Response.Write("SELECTED")%>>Central African Republic</option>
  696. <option value="TD"<%If COUNTRYCODE = "TD" Then Response.Write("SELECTED")%>>Chad</option>
  697. <option value="CD"<%If COUNTRYCODE = "CD" Then Response.Write("SELECTED")%>>Channel Islands</option>
  698. <option value="CL"<%If COUNTRYCODE = "CL" Then Response.Write("SELECTED")%>>Chile</option>
  699. <option value="CN"<%If COUNTRYCODE = "CN" Then Response.Write("SELECTED")%>>China</option>
  700. <option value="CO"<%If COUNTRYCODE = "CO" Then Response.Write("SELECTED")%>>Colombia</option>
  701. <option value="CG"<%If COUNTRYCODE = "CG" Then Response.Write("SELECTED")%>>Congo</option>
  702. <option value="CK"<%If COUNTRYCODE = "CK" Then Response.Write("SELECTED")%>>Cook Islands</option>
  703. <option value="CR"<%If COUNTRYCODE = "CR" Then Response.Write("SELECTED")%>>Costa Rica</option>
  704. <option value="HR"<%If COUNTRYCODE = "HR" Then Response.Write("SELECTED")%>>Croatia</option>
  705. <option value="CB"<%If COUNTRYCODE = "CB" Then Response.Write("SELECTED")%>>Curacao</option>
  706. <option value="CY"<%If COUNTRYCODE = "CY" Then Response.Write("SELECTED")%>>Cyprus</option>
  707. <option value="CZ"<%If COUNTRYCODE = "CZ" Then Response.Write("SELECTED")%>>Czech Republic</option>
  708. <option value="DK"<%If COUNTRYCODE = "DK" Then Response.Write("SELECTED")%>>Denmark</option>
  709. <option value="DJ"<%If COUNTRYCODE = "DJ" Then Response.Write("SELECTED")%>>Djibouti</option>
  710. <option value="DM"<%If COUNTRYCODE = "DM" Then Response.Write("SELECTED")%>>Dominica</option>
  711. <option value="DO"<%If COUNTRYCODE = "DO" Then Response.Write("SELECTED")%>>Dominican Republic</option>
  712. <option value="EC"<%If COUNTRYCODE = "EC" Then Response.Write("SELECTED")%>>Ecuador</option>
  713. <option value="EG"<%If COUNTRYCODE = "EG" Then Response.Write("SELECTED")%>>Egypt</option>
  714. <option value="SV"<%If COUNTRYCODE = "SV" Then Response.Write("SELECTED")%>>El Salvador</option>
  715. <option value="GQ"<%If COUNTRYCODE = "GQ" Then Response.Write("SELECTED")%>>Equitorial Guinea</option>
  716. <option value="ER"<%If COUNTRYCODE = "ER" Then Response.Write("SELECTED")%>>Eritrea</option>
  717. <option value="EE"<%If COUNTRYCODE = "EE" Then Response.Write("SELECTED")%>>Estonia</option>
  718. <option value="ET"<%If COUNTRYCODE = "ET" Then Response.Write("SELECTED")%>>Ethiopia</option>
  719. <option value="FO"<%If COUNTRYCODE = "FO" Then Response.Write("SELECTED")%>>Faeroe Islands</option>
  720. <option value="FM"<%If COUNTRYCODE = "FM" Then Response.Write("SELECTED")%>>Federated States of Micronesia</option>
  721. <option value="FJ"<%If COUNTRYCODE = "FJ" Then Response.Write("SELECTED")%>>Fiji</option>
  722. <option value="FI"<%If COUNTRYCODE = "FI" Then Response.Write("SELECTED")%>>Finland</option>
  723. <option value="FR">France</option>
  724. <option value="GF"<%If COUNTRYCODE = "GF" Then Response.Write("SELECTED")%>>French Guiana</option>
  725. <option value="PF"<%If COUNTRYCODE = "PF" Then Response.Write("SELECTED")%>>French Polynesia</option>
  726. <option value="GA"<%If COUNTRYCODE = "GA" Then Response.Write("SELECTED")%>>Gabon</option>
  727. <option value="GM"<%If COUNTRYCODE = "GM" Then Response.Write("SELECTED")%>>Gambia</option>
  728. <option value="GE"<%If COUNTRYCODE = "GE" Then Response.Write("SELECTED")%>>Georgia</option>
  729. <option value="GE"<%If COUNTRYCODE = "GE" Then Response.Write("SELECTED")%>>Georgia</option>
  730. <option value="DE">Germany</option>
  731. <option value="GH"<%If COUNTRYCODE = "GH" Then Response.Write("SELECTED")%>>Ghana</option>
  732. <option value="GI"<%If COUNTRYCODE = "GI" Then Response.Write("SELECTED")%>>Gibraltar</option>
  733. <option value="GR"<%If COUNTRYCODE = "GR" Then Response.Write("SELECTED")%>>Greece</option>
  734. <option value="GL"<%If COUNTRYCODE = "GL" Then Response.Write("SELECTED")%>>Greenland</option>
  735. <option value="GD"<%If COUNTRYCODE = "GD" Then Response.Write("SELECTED")%>>Grenada</option>
  736. <option value="GP"<%If COUNTRYCODE = "GP" Then Response.Write("SELECTED")%>>Guadeloupe</option>
  737. <option value="GU"<%If COUNTRYCODE = "GU" Then Response.Write("SELECTED")%>>Guam</option>
  738. <option value="GT"<%If COUNTRYCODE = "GT" Then Response.Write("SELECTED")%>>Guatemala</option>
  739. <option value="GN"<%If COUNTRYCODE = "GN" Then Response.Write("SELECTED")%>>Guinea</option>
  740. <option value="GW"<%If COUNTRYCODE = "GW" Then Response.Write("SELECTED")%>>Guinea-Bissau</option>
  741. <option value="GY"<%If COUNTRYCODE = "GY" Then Response.Write("SELECTED")%>>Guyana</option>
  742. <option value="HT"<%If COUNTRYCODE = "HT" Then Response.Write("SELECTED")%>>Haiti</option>
  743. <option value="HO"<%If COUNTRYCODE = "HO" Then Response.Write("SELECTED")%>>Holland</option>
  744. <option value="HN"<%If COUNTRYCODE = "HN" Then Response.Write("SELECTED")%>>Honduras</option>
  745. <option value="HK"<%If COUNTRYCODE = "HK" Then Response.Write("SELECTED")%>>Hong Kong</option>
  746. <option value="HU"<%If COUNTRYCODE = "HU" Then Response.Write("SELECTED")%>>Hungary</option>
  747. <option value="IS"<%If COUNTRYCODE = "IS" Then Response.Write("SELECTED")%>>Iceland</option>
  748. <option value="IN"<%If COUNTRYCODE = "IN" Then Response.Write("SELECTED")%>>India</option>
  749. <option value="ID"<%If COUNTRYCODE = "ID" Then Response.Write("SELECTED")%>>Indonesia</option>
  750. <option value="IQ"<%If COUNTRYCODE = "IQ" Then Response.Write("SELECTED")%>>Iraq</option>
  751. <option value="IR"<%If COUNTRYCODE = "IR" Then Response.Write("SELECTED")%>>Iran</option>
  752. <option value="IL"<%If COUNTRYCODE = "IL" Then Response.Write("SELECTED")%>>Israel</option>
  753. <option value="IT"<%If COUNTRYCODE = "IT" Then Response.Write("SELECTED")%>>Italy</option>
  754. <option value="CI"<%If COUNTRYCODE = "CI" Then Response.Write("SELECTED")%>>Ivory Coast</option>
  755. <option value="JM"<%If COUNTRYCODE = "JM" Then Response.Write("SELECTED")%>>Jamaica</option>
  756. <option value="JP"<%If COUNTRYCODE = "JP" Then Response.Write("SELECTED")%>>Japan</option>
  757. <option value="JO"<%If COUNTRYCODE = "JO" Then Response.Write("SELECTED")%>>Jordan</option>
  758. <option value="KZ"<%If COUNTRYCODE = "KZ" Then Response.Write("SELECTED")%>>Kazakhstan</option>
  759. <option value="KE"<%If COUNTRYCODE = "KE" Then Response.Write("SELECTED")%>>Kenya</option>
  760. <option value="KI"<%If COUNTRYCODE = "KI" Then Response.Write("SELECTED")%>>Kiribati</option>
  761. <option value="KO"<%If COUNTRYCODE = "KO" Then Response.Write("SELECTED")%>>Kosrae</option>
  762. <option value="KW"<%If COUNTRYCODE = "KW" Then Response.Write("SELECTED")%>>Kuwait</option>
  763. <option value="KG"<%If COUNTRYCODE = "KG" Then Response.Write("SELECTED")%>>Kyrgyzstan</option>
  764. <option value="LA"<%If COUNTRYCODE = "LA" Then Response.Write("SELECTED")%>>Laos</option>
  765. <option value="LV"<%If COUNTRYCODE = "LV" Then Response.Write("SELECTED")%>>Latvia</option>
  766. <option value="LB"<%If COUNTRYCODE = "LB" Then Response.Write("SELECTED")%>>Lebanon</option>
  767. <option value="LS"<%If COUNTRYCODE = "LS" Then Response.Write("SELECTED")%>>Lesotho</option>
  768. <option value="LR"<%If COUNTRYCODE = "LR" Then Response.Write("SELECTED")%>>Liberia</option>
  769. <option value="LY"<%If COUNTRYCODE = "LY" Then Response.Write("SELECTED")%>>Libya</option>
  770. <option value="LI"<%If COUNTRYCODE = "LI" Then Response.Write("SELECTED")%>>Liechtenstein</option>
  771. <option value="LT"<%If COUNTRYCODE = "LT" Then Response.Write("SELECTED")%>>Lithuania</option>
  772. <option value="LU"<%If COUNTRYCODE = "LU" Then Response.Write("SELECTED")%>>Luxembourg</option>
  773. <option value="MO"<%If COUNTRYCODE = "MO" Then Response.Write("SELECTED")%>>Macau</option>
  774. <option value="MK"<%If COUNTRYCODE = "MK" Then Response.Write("SELECTED")%>>Macedonia</option>
  775. <option value="MG"<%If COUNTRYCODE = "MG" Then Response.Write("SELECTED")%>>Madagascar</option>
  776. <option value="ME"<%If COUNTRYCODE = "ME" Then Response.Write("SELECTED")%>>Madeira</option>
  777. <option value="MW"<%If COUNTRYCODE = "MW" Then Response.Write("SELECTED")%>>Malawi</option>
  778. <option value="MY"<%If COUNTRYCODE = "MY" Then Response.Write("SELECTED")%>>Malaysia</option>
  779. <option value="MV"<%If COUNTRYCODE = "MV" Then Response.Write("SELECTED")%>>Maldives</option>
  780. <option value="ML"<%If COUNTRYCODE = "ML" Then Response.Write("SELECTED")%>>Mali</option>
  781. <option value="MT"<%If COUNTRYCODE = "MT" Then Response.Write("SELECTED")%>>Malta</option>
  782. <option value="MH"<%If COUNTRYCODE = "MH" Then Response.Write("SELECTED")%>>Marshall Islands</option>
  783. <option value="MQ"<%If COUNTRYCODE = "MQ" Then Response.Write("SELECTED")%>>Martinique</option>
  784. <option value="MR"<%If COUNTRYCODE = "MR" Then Response.Write("SELECTED")%>>Mauritania</option>
  785. <option value="MU"<%If COUNTRYCODE = "MU" Then Response.Write("SELECTED")%>>Mauritius</option>
  786. <option value="MX"<%If COUNTRYCODE = "MX" Then Response.Write("SELECTED")%>>Mexico</option>
  787. <option value="MD"<%If COUNTRYCODE = "MD" Then Response.Write("SELECTED")%>>Moldova</option>
  788. <option value="MC"<%If COUNTRYCODE = "MC" Then Response.Write("SELECTED")%>>Monaco</option>
  789. <option value="MN"<%If COUNTRYCODE = "MN" Then Response.Write("SELECTED")%>>Monogolia</option>
  790. <option value="MS"<%If COUNTRYCODE = "MS" Then Response.Write("SELECTED")%>>Montserrat</option>
  791. <option value="MA"<%If COUNTRYCODE = "MA" Then Response.Write("SELECTED")%>>Morocco</option>
  792. <option value="MZ"<%If COUNTRYCODE = "MZ" Then Response.Write("SELECTED")%>>Mozambique</option>
  793. <option value="MM"<%If COUNTRYCODE = "MM" Then Response.Write("SELECTED")%>>Myanmar</option>
  794. <option value="NA"<%If COUNTRYCODE = "NA" Then Response.Write("SELECTED")%>>Namibia</option>
  795. <option value="NR"<%If COUNTRYCODE = "NR" Then Response.Write("SELECTED")%>>Nauru</option>
  796. <option value="NP"<%If COUNTRYCODE = "NP" Then Response.Write("SELECTED")%>>Nepal</option>
  797. <option value="NL"<%If COUNTRYCODE = "NL" Then Response.Write("SELECTED")%>>Netherlands</option>
  798. <option value="AN"<%If COUNTRYCODE = "AN" Then Response.Write("SELECTED")%>>Netherlands Antilles</option>
  799. <option value="NC"<%If COUNTRYCODE = "NC" Then Response.Write("SELECTED")%>>New Caledonia</option>
  800. <option value="NZ"<%If COUNTRYCODE = "NZ" Then Response.Write("SELECTED")%>>New Zealand</option>
  801. <option value="NI"<%If COUNTRYCODE = "NI" Then Response.Write("SELECTED")%>>Nicaragua</option>
  802. <option value="NE"<%If COUNTRYCODE = "NE" Then Response.Write("SELECTED")%>>Niger</option>
  803. <option value="NG"<%If COUNTRYCODE = "NG" Then Response.Write("SELECTED")%>>Nigeria</option>
  804. <option value="NF"<%If COUNTRYCODE = "NF" Then Response.Write("SELECTED")%>>Norfolk Island</option>
  805. <option value="NB"<%If COUNTRYCODE = "NB" Then Response.Write("SELECTED")%>>Northern Ireland</option>
  806. <option value="MP"<%If COUNTRYCODE = "MP" Then Response.Write("SELECTED")%>>Northern Mariana Islands</option>
  807. <option value="NO"<%If COUNTRYCODE = "NO" Then Response.Write("SELECTED")%>>Norway</option>
  808. <option value="OM"<%If COUNTRYCODE = "OM" Then Response.Write("SELECTED")%>>Oman</option>
  809. <option value="PK"<%If COUNTRYCODE = "PK" Then Response.Write("SELECTED")%>>Pakistan</option>
  810. <option value="PW"<%If COUNTRYCODE = "PW" Then Response.Write("SELECTED")%>>Palau</option>
  811. <option value="PA"<%If COUNTRYCODE = "PA" Then Response.Write("SELECTED")%>>Panama</option>
  812. <option value="PG"<%If COUNTRYCODE = "PG" Then Response.Write("SELECTED")%>>Papua New Guinea</option>
  813. <option value="PY"<%If COUNTRYCODE = "PY" Then Response.Write("SELECTED")%>>Paraguay</option>
  814. <option value="PE"<%If COUNTRYCODE = "PE" Then Response.Write("SELECTED")%>>Peru</option>
  815. <option value="PH"<%If COUNTRYCODE = "PH" Then Response.Write("SELECTED")%>>Philippines</option>
  816. <option value="PN"<%If COUNTRYCODE = "PN" Then Response.Write("SELECTED")%>>Pitcairn Island</option>
  817. <option value="PL"<%If COUNTRYCODE = "PL" Then Response.Write("SELECTED")%>>Poland</option>
  818. <option value="PO"<%If COUNTRYCODE = "PO" Then Response.Write("SELECTED")%>>Ponape</option>
  819. <option value="PT"<%If COUNTRYCODE = "PT" Then Response.Write("SELECTED")%>>Portugal</option>
  820. <option value="PR"<%If COUNTRYCODE = "PR" Then Response.Write("SELECTED")%>>Puerto Rico</option>
  821. <option value="QA"<%If COUNTRYCODE = "QA" Then Response.Write("SELECTED")%>>Qatar</option>
  822. <option value="IE"<%If COUNTRYCODE = "IE" Then Response.Write("SELECTED")%>>Republic of Ireland</option>
  823. <option value="YE"<%If COUNTRYCODE = "YE" Then Response.Write("SELECTED")%>>Republic of Yemen</option>
  824. <option value="RE"<%If COUNTRYCODE = "RE" Then Response.Write("SELECTED")%>>Reunion</option>
  825. <option value="RO"<%If COUNTRYCODE = "RO" Then Response.Write("SELECTED")%>>Romania</option>
  826. <option value="RT"<%If COUNTRYCODE = "RT" Then Response.Write("SELECTED")%>>Rota</option>
  827. <option value="RU"<%If COUNTRYCODE = "RU" Then Response.Write("SELECTED")%>>Russia</option>
  828. <option value="RW"<%If COUNTRYCODE = "RW" Then Response.Write("SELECTED")%>>Rwanda</option>
  829. <option value="SS"<%If COUNTRYCODE = "SS" Then Response.Write("SELECTED")%>>Saba</option>
  830. <option value="SP"<%If COUNTRYCODE = "SP" Then Response.Write("SELECTED")%>>Saipan</option>
  831. <option value="SM"<%If COUNTRYCODE = "SM" Then Response.Write("SELECTED")%>>San Marino</option>
  832. <option value="ST"<%If COUNTRYCODE = "ST" Then Response.Write("SELECTED")%>>Sao Tome and Principe</option>
  833. <option value="SA"<%If COUNTRYCODE = "SA" Then Response.Write("SELECTED")%>>Saudi Arabia</option>
  834. <option value="SF"<%If COUNTRYCODE = "SF" Then Response.Write("SELECTED")%>>Scotland</option>
  835. <option value="SN"<%If COUNTRYCODE = "SN" Then Response.Write("SELECTED")%>>Senegal</option>
  836. <option value="SC"<%If COUNTRYCODE = "SC" Then Response.Write("SELECTED")%>>Seychelles</option>
  837. <option value="SL"<%If COUNTRYCODE = "SL" Then Response.Write("SELECTED")%>>Sierra Leone</option>
  838. <option value="SG"<%If COUNTRYCODE = "SG" Then Response.Write("SELECTED")%>>Singapore</option>
  839. <option value="SK"<%If COUNTRYCODE = "SK" Then Response.Write("SELECTED")%>>Slovakia</option>
  840. <option value="SI"<%If COUNTRYCODE = "SI" Then Response.Write("SELECTED")%>>Slovenia</option>
  841. <option value="SB"<%If COUNTRYCODE = "SB" Then Response.Write("SELECTED")%>>Solomon Islands</option>
  842. <option value="ZA"<%If COUNTRYCODE = "ZA" Then Response.Write("SELECTED")%>>South Africa</option>
  843. <option value="KR"<%If COUNTRYCODE = "KR" Then Response.Write("SELECTED")%>>South Korea</option>
  844. <option value="ES"<%If COUNTRYCODE = "ES" Then Response.Write("SELECTED")%>>Spain</option>
  845. <option value="LK"<%If COUNTRYCODE = "LK" Then Response.Write("SELECTED")%>>Sri Lanka</option>
  846. <option value="NT"<%If COUNTRYCODE = "NT" Then Response.Write("SELECTED")%>>St. Barthelemy</option>
  847. <option value="SW"<%If COUNTRYCODE = "SW" Then Response.Write("SELECTED")%>>St. Christopher</option>
  848. <option value="SX"<%If COUNTRYCODE = "SX" Then Response.Write("SELECTED")%>>St. Croix</option>
  849. <option value="EU"<%If COUNTRYCODE = "EU" Then Response.Write("SELECTED")%>>St. Eustatius</option>
  850. <option value="UV"<%If COUNTRYCODE = "UV" Then Response.Write("SELECTED")%>>St. John</option>
  851. <option value="KN"<%If COUNTRYCODE = "KN" Then Response.Write("SELECTED")%>>St. Kitts & Nevis</option>
  852. <option value="LC"<%If COUNTRYCODE = "LC" Then Response.Write("SELECTED")%>>St. Lucia</option>
  853. <option value="MB"<%If COUNTRYCODE = "MB" Then Response.Write("SELECTED")%>>St. Maarten</option>
  854. <option value="TB"<%If COUNTRYCODE = "TB" Then Response.Write("SELECTED")%>>St. Martin</option>
  855. <option value="VL"<%If COUNTRYCODE = "VL" Then Response.Write("SELECTED")%>>St. Thomas</option>
  856. <option value="VC"<%If COUNTRYCODE = "VC" Then Response.Write("SELECTED")%>>St. Vincent</option>
  857. <option value="SD"<%If COUNTRYCODE = "SD" Then Response.Write("SELECTED")%>>Sudan</option>
  858. <option value="SR"<%If COUNTRYCODE = "SR" Then Response.Write("SELECTED")%>>Suriname</option>
  859. <option value="SZ"<%If COUNTRYCODE = "SZ" Then Response.Write("SELECTED")%>>Swaziland</option>
  860. <option value="SE"<%If COUNTRYCODE = "SE" Then Response.Write("SELECTED")%>>Sweden</option>
  861. <option value="CH"<%If COUNTRYCODE = "CH" Then Response.Write("SELECTED")%>>Switzerland</option>
  862. <option value="SY"<%If COUNTRYCODE = "SY" Then Response.Write("SELECTED")%>>Syria</option>
  863. <option value="TA"<%If COUNTRYCODE = "TA" Then Response.Write("SELECTED")%>>Tahiti</option>
  864. <option value="TW"<%If COUNTRYCODE = "TW" Then Response.Write("SELECTED")%>>Taiwan</option>
  865. <option value="TJ"<%If COUNTRYCODE = "TJ" Then Response.Write("SELECTED")%>>Tajikistan</option>
  866. <option value="TZ"<%If COUNTRYCODE = "TZ" Then Response.Write("SELECTED")%>>Tanzania</option>
  867. <option value="TH"<%If COUNTRYCODE = "TH" Then Response.Write("SELECTED")%>>Thailand</option>
  868. <option value="TI"<%If COUNTRYCODE = "TI" Then Response.Write("SELECTED")%>>Tinian</option>
  869. <option value="TG"<%If COUNTRYCODE = "TG" Then Response.Write("SELECTED")%>>Togo</option>
  870. <option value="TO"<%If COUNTRYCODE = "TO" Then Response.Write("SELECTED")%>>Tonga</option>
  871. <option value="TL"<%If COUNTRYCODE = "TL" Then Response.Write("SELECTED")%>>Tortola</option>
  872. <option value="TT"<%If COUNTRYCODE = "TT" Then Response.Write("SELECTED")%>>Trinidad & Tobago</option>
  873. <option value="TU"<%If COUNTRYCODE = "TU" Then Response.Write("SELECTED")%>>Truk</option>
  874. <option value="TN"<%If COUNTRYCODE = "TN" Then Response.Write("SELECTED")%>>Tunisia</option>
  875. <option value="TR"<%If COUNTRYCODE = "TR" Then Response.Write("SELECTED")%>>Turkey</option>
  876. <option value="TM"<%If COUNTRYCODE = "TM" Then Response.Write("SELECTED")%>>Turkmenistan</option>
  877. <option value="TC"<%If COUNTRYCODE = "TC" Then Response.Write("SELECTED")%>>Turks & Caicos Islands</option>
  878. <option value="TV"<%If COUNTRYCODE = "TV" Then Response.Write("SELECTED")%>>Tuvalu</option>
  879. <option value="UG"<%If COUNTRYCODE = "UG" Then Response.Write("SELECTED")%>>Uganda</option>
  880. <option value="UA"<%If COUNTRYCODE = "UA" Then Response.Write("SELECTED")%>>Ukraine</option>
  881. <option value="UI"<%If COUNTRYCODE = "UI" Then Response.Write("SELECTED")%>>Union Island</option>
  882. <option value="AE"<%If COUNTRYCODE = "AE" Then Response.Write("SELECTED")%>>United Arab Emirates</option>
  883. <option value="GB">United Kingdom</option>
  884. <option value="US">United States</option>
  885. <option value="UY"<%If COUNTRYCODE = "UY" Then Response.Write("SELECTED")%>>Uruguay</option>
  886. <option value="VI"<%If COUNTRYCODE = "VI" Then Response.Write("SELECTED")%>>US Virgin Islands</option>
  887. <option value="UZ"<%If COUNTRYCODE = "UZ" Then Response.Write("SELECTED")%>>Uzbekistan</option>
  888. <option value="VU"<%If COUNTRYCODE = "VU" Then Response.Write("SELECTED")%>>Vanuatu</option>
  889. <option value="VA"<%If COUNTRYCODE = "VA" Then Response.Write("SELECTED")%>>Vatican City</option>
  890. <option value="VE"<%If COUNTRYCODE = "VE" Then Response.Write("SELECTED")%>>Venezuela</option>
  891. <option value="VN"<%If COUNTRYCODE = "VN" Then Response.Write("SELECTED")%>>Vietnam</option>
  892. <option value="VR"<%If COUNTRYCODE = "VR" Then Response.Write("SELECTED")%>>Virgin Gorda</option>
  893. <option value="WK"<%If COUNTRYCODE = "WK" Then Response.Write("SELECTED")%>>Wake Island</option>
  894. <option value="WL"<%If COUNTRYCODE = "WL" Then Response.Write("SELECTED")%>>Wales</option>
  895. <option value="WF"<%If COUNTRYCODE = "WF" Then Response.Write("SELECTED")%>>Wallis & Futuna Islands</option>
  896. <option value="WS"<%If COUNTRYCODE = "WS" Then Response.Write("SELECTED")%>>Western Samoa</option>
  897. <option value="YA"<%If COUNTRYCODE = "YA" Then Response.Write("SELECTED")%>>Yap</option>
  898. <option value="YU"<%If COUNTRYCODE = "YU" Then Response.Write("SELECTED")%>>Yugoslavia</option>
  899. <option value="ZR"<%If COUNTRYCODE = "ZR" Then Response.Write("SELECTED")%>>Zaire</option>
  900. <option value="ZM"<%If COUNTRYCODE = "ZM" Then Response.Write("SELECTED")%>>Zambia</option>
  901. <option value="ZW"<%If COUNTRYCODE = "ZW" Then Response.Write("SELECTED")%>>Zimbabwe</option>
  902. <option value="">-----------------------</option>
  903. <option value="NONE" <%If COUNTRYCODE = "NONE" Then Response.Write("SELECTED")%>>Not Listed</option>
  904. </select> </td>
  905. </tr>
  906. <tr valign="baseline">
  907. <td class="sans-1" align="right"><span class="sans-1Red">*</span>Zip/Postal Code:</td>
  908. <td><input type="text" name="ZIP" value="<%=ZIP%>" style="width: 200px"> </td>
  909. </tr>
  910. <tr valign="baseline">
  911. <td class="sans-1" align="right"><span class="sans-1Red">*</span>Telephone:</td>
  912. <td><input type="text" name="PHONENUM" value="<%=PHONENUM%>" style="width: 200px"> </td>
  913. </tr>
  914. <tr valign="baseline">
  915. <td class="sans-1" align="right"><span class="sans-1Red">*</span>Email:</td>
  916. <td><input type="text" name="EMAIL" value="<%=EMAIL%>" style="width: 200px"> </td>
  917. </tr>
  918. </table>
  919. <%
  920. End Function
  921.  
  922.  
  923.  
  924.  
  925. Function PageAddress()
  926. %>
  927. <form action="<%=SCRIPT&"?"&QryString%>" method="post" name="form1">
  928. <table class="checkoutboxes">
  929. <tr>
  930. <td><%BilltoAddress%></td>
  931. <td><%ShippingAddress%></td>
  932. </tr>
  933. <!-- <tr>
  934. <td colspan="2" align="center">
  935. Customer Notes
  936. <BR>
  937. <textarea name="CUSTOM" rows="4" cols="60"><%=CUSTOM%></textarea></td>
  938. </tr> -->
  939. <tr>
  940. <td colspan="2" align="right">
  941. <input type="reset" name="Revert" value="Revert" style="color:#666666">
  942. &nbsp;&nbsp;&nbsp;&nbsp;
  943. <input type="submit" name="Submit" value="Continue">
  944. </td>
  945. </tr>
  946. </table>
  947. <input type="hidden" name="Action" value="ADDADDRESS">
  948. </form>
  949. <%
  950. End Function
  951.  
  952.  
  953.  
  954. Function AddressFieldError()
  955.  
  956. if SAMEASBILL="1" Then
  957. SHIPTONAME = FIRSTNAME&" "&LASTNAME
  958. SHIPTOSTREET = STREET
  959. SHIPTOSTREET2 = STREET2
  960. SHIPTOCITY = CITY
  961. SHIPTOSTATE = STATE
  962. SHIPTOCOUNTRYCODE = COUNTRYCODE
  963. SHIPTOZIP = ZIP
  964. SHIPTOPHONENUM = PHONENUM
  965. End if
  966.  
  967. if Not FIRSTNAME <> "" Then AddressFieldError = AddressFieldError & "<li>Firstname is missing" & VbNewLine
  968. if Not LASTNAME <> "" Then AddressFieldError = AddressFieldError & "<li>Lastname is missing" & VbNewLine
  969. if Not STREET <> "" Then AddressFieldError = AddressFieldError & "<li>Street address is missing" & VbNewLine
  970. if Not CITY <> "" Then AddressFieldError = AddressFieldError & "<li>City name is missing." & VbNewLine
  971. if Not ZIP <> "" Then AddressFieldError = AddressFieldError & "<li>Enter Zip or Postal code" & VbNewLine
  972. if Not PHONENUM <> "" Then AddressFieldError = AddressFieldError & "<li>Telephone number is missing." & VbNewLine
  973. if Not EMAIL <> "" Then AddressFieldError = AddressFieldError & "<li>Email is missing." & VbNewLine
  974.  
  975. if Not STATE <> "" Then
  976. if STATE <> "NONE" Then AddressFieldError = AddressFieldError & "<li>Select State or choose 'Not Listed' " & VbNewLine
  977. End if
  978.  
  979. if Not COUNTRYCODE <> "" Then
  980. if COUNTRYCODE <> "NONE" Then AddressFieldError = AddressFieldError & "<li>Select Country" & VbNewLine
  981. End if
  982.  
  983. if Not SHIPTONAME <> "" Then AddressFieldError = AddressFieldError & "<li>Ship to Name is missing" & VbNewLine
  984. if Not SHIPTOSTREET <> "" Then AddressFieldError = AddressFieldError & "<li>Ship to Street address is missing" & VbNewLine
  985. if Not SHIPTOCITY <> "" Then AddressFieldError = AddressFieldError & "<li>Ship to City name is missing." & VbNewLine
  986. if Not SHIPTOZIP <> "" Then AddressFieldError = AddressFieldError & "<li>Ship to Enter Zip or Postal code" & VbNewLine
  987. if Not SHIPTOPHONENUM <> "" Then AddressFieldError = AddressFieldError & "<li>Ship to Telephone number is missing." & VbNewLine
  988.  
  989. if Not SHIPTOSTATE <> "" Then
  990. if SHIPTOSTATE <> "NONE" Then AddressFieldError = AddressFieldError & "<li>Select Ship to State or choose 'Not Listed' " & VbNewLine
  991. End if
  992.  
  993. if Not SHIPTOCOUNTRYCODE <> "" Then
  994. if SHIPTOCOUNTRYCODE <> "NONE" Then AddressFieldError = AddressFieldError & "<li>Select Ship to Country" & VbNewLine
  995. End if
  996.  
  997. End Function
  998.  
  999.  
  1000.  
  1001. Function SaveAddressInfo()
  1002.  
  1003. Dim RS_Exist, Qry_up_str, PP_editorder
  1004. '/// check if order exist to decide update or insert
  1005. Set RS_Exist = Server.CreateObject("ADODB.Recordset")
  1006. RS_Exist.ActiveConnection = Application("DBConn_UncleSamSQL")
  1007. RS_Exist.Source = "SELECT OrderID From PPOrders WHERE OrderID =" & Session("OrderID")
  1008. RS_Exist.CursorType = 0 'Default forward-only improves performance
  1009. RS_Exist.CursorLocation = 2 'server-side cursor
  1010. RS_Exist.LockType = 1 'Read-only record
  1011. RS_Exist.Open()
  1012.  
  1013. If Not(RS_Exist.BOF) Or Not(RS_Exist.EOF) Then
  1014. 'update order exist
  1015. Qry_up_str= "UPDATE PPOrders SET " &_
  1016. "PAYMENTACTION = 'Sale', " &_
  1017. "IPADDRESS = '" & Request.ServerVariables("REMOTE_ADDR") & "', " &_
  1018. "FIRSTNAME = '" & Replace(FIRSTNAME,"'","''") & "', " &_
  1019. "LASTNAME = '" & Replace(LASTNAME,"'","''") & "', " &_
  1020. "STREET = '" & Replace(STREET,"'","''") & "', " &_
  1021. "STREET2 = '" & Replace(STREET2,"'","''") & "', " &_
  1022. "CITY = '" & Replace(CITY,"'","''") & "', " &_
  1023. "STATE = '" & STATE & "', " &_
  1024. "COUNTRYCODE = '" & COUNTRYCODE & "', " &_
  1025. "ZIP = '" & ZIP & "', " &_
  1026. "EMAIL = '" & Replace(EMAIL,"'","''") & "', " &_
  1027. "PHONENUM = '" & Replace(PHONENUM,"'","''") & "', " &_
  1028. "SHIPTONAME = '" & Replace(SHIPTONAME,"'","''") & "', " &_
  1029. "SHIPTOSTREET = '" & Replace(SHIPTOSTREET,"'","''") & "', " &_
  1030. "SHIPTOSTREET2 = '" & Replace(SHIPTOSTREET2,"'","''") & "', " &_
  1031. "SHIPTOCITY = '" & Replace(SHIPTOCITY,"'","''") & "', " &_
  1032. "SHIPTOSTATE = '" & Replace(SHIPTOSTATE,"'","''") & "', " &_
  1033. "SHIPTOZIP = '" & Replace(SHIPTOZIP,"'","''") & "', " &_
  1034. "SHIPTOCOUNTRYCODE='" & Replace(SHIPTOCOUNTRYCODE,"'","''") & "', " &_
  1035. "SHIPTOPHONENUM = '" & Replace(SHIPTOPHONENUM,"'","''") & "', " &_
  1036. "CUSTOM = '" & Replace(CUSTOM,"'","''") & "' " &_
  1037. "WHERE OrderID = " & Session("OrderID") & ";"
  1038.  
  1039. Else
  1040. 'insert order not exist
  1041. Qry_up_str = "INSERT INTO PPOrders (" &_
  1042. "OrderID," &_
  1043. "PAYMENTACTION," &_
  1044. "IPADDRESS," &_
  1045. "FIRSTNAME," &_
  1046. "LASTNAME," &_
  1047. "STREET," &_
  1048. "STREET2," &_
  1049. "CITY," &_
  1050. "STATE," &_
  1051. "COUNTRYCODE," &_
  1052. "ZIP," &_
  1053. "EMAIL," &_
  1054. "PHONENUM," &_
  1055. "SHIPTONAME," &_
  1056. "SHIPTOSTREET," &_
  1057. "SHIPTOSTREET2," &_
  1058. "SHIPTOCITY," &_
  1059. "SHIPTOSTATE," &_
  1060. "SHIPTOZIP," &_
  1061. "SHIPTOCOUNTRYCODE," &_
  1062. "SHIPTOPHONENUM," &_
  1063. "CUSTOM) " &_
  1064. " VALUES (" &_
  1065. "'" & Session("OrderID") & "', " &_
  1066. "'Sale', " &_
  1067. "'" & Request.ServerVariables("REMOTE_ADDR") & "', " &_
  1068. "'" & Replace(FIRSTNAME,"'","''") & "', " &_
  1069. "'" & Replace(LASTNAME,"'","''") & "', " &_
  1070. "'" & Replace(STREET,"'","''") & "', " &_
  1071. "'" & Replace(STREET2,"'","''") & "', " &_
  1072. "'" & Replace(CITY,"'","''") & "', " &_
  1073. "'" & STATE & "', " &_
  1074. "'" & COUNTRYCODE & "', " &_
  1075. "'" & ZIP & "', " &_
  1076. "'" & Replace(EMAIL,"'","''") & "', " &_
  1077. "'" & Replace(PHONENUM,"'","''") & "', " &_
  1078. "'" & Replace(SHIPTONAME,"'","''") & "', " &_
  1079. "'" & Replace(SHIPTOSTREET,"'","''") & "', " &_
  1080. "'" & Replace(SHIPTOSTREET2,"'","''") & "', " &_
  1081. "'" & Replace(SHIPTOCITY,"'","''") & "', " &_
  1082. "'" & SHIPTOSTATE & "', " &_
  1083. "'" & Replace(SHIPTOZIP,"'","''") & "', " &_
  1084. "'" & SHIPTOCOUNTRYCODE & "', " &_
  1085. "'" & Replace(SHIPTOPHONENUM,"'","''") & "', " &_
  1086. "'" & Replace(CUSTOM,"'","''") & "');"
  1087. End If
  1088. RS_Exist.Close()
  1089. Set RS_Exist = Nothing
  1090.  
  1091. Qry_up_str = Qry_up_str & vbcrlf & "UPDATE Orders SET CustomerOrderNotes='" & Replace(CUSTOM,"'","''") & "' WHERE OrderID=" & Session("OrderID")
  1092.  
  1093. Set PP_editorder = Server.CreateObject("ADODB.Command")
  1094. PP_editorder.ActiveConnection = Application("DBConn_UncleSamSQL")
  1095. PP_editorder.CommandText = Qry_up_str
  1096. PP_editorder.Execute
  1097. PP_editorder.ActiveConnection.Close
  1098. Set PP_editorder = Nothing
  1099.  
  1100. Session("CustomerCountry") = SHIPTOCOUNTRYCODE
  1101. Session("CustomerState") = SHIPTOSTATE
  1102. End Function
  1103.  
  1104.  
  1105. Function ReadPPorders()
  1106.  
  1107. Dim RS_Exist
  1108.  
  1109. '/// check if order exist to decide update or insert
  1110. Set RS_Exist = Server.CreateObject("ADODB.Recordset")
  1111. RS_Exist.ActiveConnection = Application("DBConn_UncleSamSQL")
  1112. RS_Exist.Source = "SELECT * From PPOrders WHERE OrderID =" & Session("OrderID")
  1113. RS_Exist.CursorType = 0 'Default forward-only improves performance
  1114. RS_Exist.CursorLocation = 2 'server-side cursor
  1115. RS_Exist.LockType = 1 'Read-only record
  1116. RS_Exist.Open()
  1117.  
  1118. If Not(RS_Exist.BOF) Or Not(RS_Exist.EOF) Then
  1119.  
  1120. OrderID = Trim(RS_Exist.Fields.Item("OrderID").Value)
  1121. PAYMENTACTION = Trim(RS_Exist.Fields.Item("PAYMENTACTION").Value)
  1122. IPADDRESS = Trim(RS_Exist.Fields.Item("IPADDRESS").Value)
  1123. AMT = Trim(RS_Exist.Fields.Item("AMT").Value)
  1124. CREDITCARDTYPE = Trim(RS_Exist.Fields.Item("CREDITCARDTYPE").Value)
  1125. '///overwrites default verable
  1126. 'ACCT = Trim(RS_Exist.Fields.Item("ACCT").Value)
  1127. EXPDATE = Trim(RS_Exist.Fields.Item("EXPDATE").Value)
  1128. FIRSTNAME = Trim(RS_Exist.Fields.Item("FIRSTNAME").Value)
  1129. LASTNAME = Trim(RS_Exist.Fields.Item("LASTNAME").Value)
  1130. CVV2 = Trim(RS_Exist.Fields.Item("CVV2").Value)
  1131. STREET = Trim(RS_Exist.Fields.Item("STREET").Value)
  1132. STREET2 = Trim(RS_Exist.Fields.Item("STREET2").Value)
  1133. CITY = Trim(RS_Exist.Fields.Item("CITY").Value)
  1134. STATE = Trim(RS_Exist.Fields.Item("STATE").Value)
  1135. COUNTRYCODE = Trim(RS_Exist.Fields.Item("COUNTRYCODE").Value)
  1136. ZIP = Trim(RS_Exist.Fields.Item("ZIP").Value)
  1137. ITEMAMT = Trim(RS_Exist.Fields.Item("ITEMAMT").Value)
  1138. SHIPPINGAMT = Trim(RS_Exist.Fields.Item("SHIPPINGAMT").Value)
  1139. EMAIL = Trim(RS_Exist.Fields.Item("EMAIL").Value)
  1140. PHONENUM = Trim(RS_Exist.Fields.Item("PHONENUM").Value)
  1141. SHIPTONAME = Trim(RS_Exist.Fields.Item("SHIPTONAME").Value)
  1142. SHIPTOSTREET = Trim(RS_Exist.Fields.Item("SHIPTOSTREET").Value)
  1143. SHIPTOSTREET2 = Trim(RS_Exist.Fields.Item("SHIPTOSTREET2").Value)
  1144. strlocation = Trim(RS_Exist.Fields.Item("location").Value)
  1145. SHIPTOCITY = Trim(RS_Exist.Fields.Item("SHIPTOCITY").Value)
  1146. SHIPTOSTATE = Trim(RS_Exist.Fields.Item("SHIPTOSTATE").Value)
  1147. SHIPTOZIP = Trim(RS_Exist.Fields.Item("SHIPTOZIP").Value)
  1148. SHIPTOCOUNTRYCODE = Trim(RS_Exist.Fields.Item("SHIPTOCOUNTRYCODE").Value)
  1149. SHIPTOPHONENUM = Trim(RS_Exist.Fields.Item("SHIPTOPHONENUM").Value)
  1150. CUSTOM = Trim(RS_Exist.Fields.Item("CUSTOM").Value)
  1151. AVSCODE = Trim(RS_Exist.Fields.Item("AVSCODE").Value)
  1152. CVV2MATCH = Trim(RS_Exist.Fields.Item("CVV2MATCH").Value)
  1153. TRANSACTIONID = Trim(RS_Exist.Fields.Item("TRANSACTIONID").Value)
  1154. Else
  1155. Dim RS_Customer
  1156. Set RS_Customer = Server.CreateObject("ADODB.Recordset")
  1157. RS_Customer.ActiveConnection = Application("DBConn_UncleSamSQL")
  1158. RS_Customer.Source = "SELECT FirstName, LastName, Email, Address, City, State, Country, ZipCode, Telephone From Customers " &_
  1159. " WHERE UserID = '" & Session("MM_Username") & "'"
  1160. RS_Customer.CursorType = 0
  1161. RS_Customer.CursorLocation = 2
  1162. RS_Customer.LockType = 1
  1163. RS_Customer.Open()
  1164. If NOT RS_Customer.EOF Then
  1165. FIRSTNAME = Trim(RS_Customer("FirstName"))
  1166. LASTNAME = Trim(RS_Customer("LastName"))
  1167. STREET = Trim(RS_Customer("Address"))
  1168. CITY = Trim(RS_Customer("City"))
  1169. STATE = Trim(RS_Customer("State"))
  1170. COUNTRYCODE = Trim(RS_Customer("Country"))
  1171. ZIP = Trim(RS_Customer("ZipCode"))
  1172. EMAIL = Trim(RS_Customer("Email"))
  1173. PHONENUM = Trim(RS_Customer("Telephone"))
  1174. End If
  1175. RS_Customer.Close
  1176. Set RS_Customer = Nothing
  1177. End If
  1178.  
  1179. RS_Exist.Close()
  1180. Set RS_Exist = Nothing
  1181.  
  1182. End Function
  1183.  
  1184.  
  1185.  
  1186. Function DisplayShippingOptions(Cntry)
  1187.  
  1188. Dim Qry, FrList, ShipCost, sele
  1189.  
  1190.  
  1191. Qry = "IF (SELECT COUNT(*) FROM Freight_ItmBased WHERE FreightCountry='"&Cntry&"')>0 " & _
  1192. "BEGIN " & _
  1193. "SELECT FreightID,FreightCountry,FreightCode,FreightPrice,FreightDisplay,FreightDays FROM Freight_ItmBased where FreightCountry='"&Cntry&"' ORDER BY FreightSort " & _
  1194. "END " & _
  1195. "ELSE " & _
  1196. "BEGIN " & _
  1197. "SELECT FreightID,FreightCountry,FreightCode,FreightPrice,FreightDisplay,FreightDays FROM Freight_ItmBased where FreightCountry='' ORDER BY FreightSort " & _
  1198. "END "
  1199.  
  1200. Set FrList = Server.CreateObject("ADODB.Recordset")
  1201. FrList.ActiveConnection = Application("DBConn_UncleSamSQL")
  1202. FrList.Source = Qry
  1203. FrList.CursorType = 3
  1204. FrList.CursorLocation = 2
  1205. FrList.LockType = 1
  1206. FrList.Open()
  1207.  
  1208. %>
  1209.  
  1210.  
  1211. <span class="fd">
  1212. <script type="text/javascript">
  1213. function Show(what) {
  1214.  
  1215. document.getElementById(what).style.display = "block";
  1216. }
  1217. function Hide(what) {
  1218. document.getElementById(what).style.display = "none";
  1219. }
  1220.  
  1221. function checkLocation() {
  1222. var docFreight = document.forms["form1"].Freight;
  1223. var intFreightValue;
  1224. for (i = docFreight.length - 1; i > -1; i--) {
  1225.  
  1226. if (docFreight[i].checked) {
  1227.  
  1228. intFreightValue = docFreight[i].value;
  1229. break;
  1230.  
  1231. }
  1232. }
  1233. if (intFreightValue == 18 && document.forms["form1"].selLocation.value == "") {
  1234. alert('Please select a location for pickup!');
  1235. Show("locationChoice");
  1236. document.forms["form1"].selLocation.focus();
  1237. return false;
  1238.  
  1239. }
  1240. else
  1241. return true;
  1242.  
  1243.  
  1244.  
  1245.  
  1246. }
  1247. </script>
  1248.  
  1249. <form action="<%=SCRIPT&"?"&QryString%>" method="post" name="form1" onSubmit="return checkLocation(this)">
  1250. <table class="checkoutboxes">
  1251. <tr style="background-color:#E7EACC;">
  1252. <td nowrap>Options</td>
  1253. <td nowrap>First Item</td>
  1254. <td nowrap>Additional Item</td>
  1255. <td nowrap>Shipping Total</td>
  1256. <td nowrap align="right">Estimated Business Days</td>
  1257. </tr>
  1258.  
  1259. <%
  1260.  
  1261. While Not(FrList.EOF)
  1262.  
  1263. FdaysRange = Split(FrList.Fields.Item("FreightDays").Value,",")
  1264.  
  1265. ShipCost = CalcShipCost(FrList.Fields.Item("FreightPrice").Value,TotalCartItems)
  1266.  
  1267. sele = ""
  1268. if Session("Freight")=CStr(FrList.Fields.Item("FreightID").Value) Then
  1269. sele = "checked"
  1270. Else
  1271. if Not Session("Freight") <> "" AND InStr(FrList.Fields.Item("FreightDisplay").Value,"Recommended")>0 Then sele = "checked"
  1272. End if
  1273.  
  1274. %>
  1275. <tr onMouseOver="this.style.background ='#ECF3FF';" onMouseOut="this.style.background ='transparent';">
  1276. <td align="right" width="50%">
  1277. <% Response.Write FrList.Fields.Item("FreightDisplay").Value %>
  1278. </td>
  1279. <td nowrap align="right" style="color:#666;"><%=FormatCurrency(ShipCost(1))%></td>
  1280. <td nowrap align="right" style="color:#666;">
  1281. <%
  1282. if TotalCartItems > 1 Then
  1283. Response.Write FormatCurrency(ShipCost(2))
  1284. Else
  1285. Response.Write FormatCurrency(ShipCost(3))
  1286. End if
  1287. %> &nbsp;&nbsp;</td>
  1288. <td nowrap align="right" style="font-size:16px; border:transparent thin solid;" onMouseOver="this.style.borderColor ='#FF0000'" onMouseOut="this.style.borderColor ='transparent';"> &nbsp;&nbsp; <B><%=FormatCurrency(ShipCost(0))%></B> &nbsp; <input type="radio" name="Freight" value="<%=FrList.Fields.Item("FreightID").Value%>" <%=sele%>
  1289. <%if FrList.Fields.Item("FreightID").Value=18 then%>
  1290. onclick="Show('locationChoice')"
  1291. <%else%>
  1292. onclick="Hide('locationChoice')"
  1293. <%end if%>
  1294. >
  1295. <%if FrList.Fields.Item("FreightID").Value=18 then%>
  1296. <div id="locationChoice" <% if Freight<>"18" then response.write "style=""display:none""" %> width style="color:#666;"><select name="selLocation"><option value="">Select Location</option><option value="Larkin, Buffalo">Larkin, Buffalo</option><option value="NYC">NYC</option><option value="Toronto">Toronto</option></select></div>
  1297. <%end if%>
  1298.  
  1299. </td>
  1300.  
  1301. <td nowrap align="right">
  1302. (<%=FdaysRange(0)%> ~ <%=FdaysRange(1)%>) *
  1303. </td>
  1304.  
  1305. </tr>
  1306. <tr onMouseOver="this.style.background ='#ECF3FF';" onMouseOut="this.style.background ='transparent';">
  1307. <td colspan="5" style="background-color:#E7EAC0;" height="2">
  1308. </TD>
  1309. </tr>
  1310.  
  1311. <%
  1312.  
  1313. FrList.MoveNext()
  1314. Wend
  1315. %>
  1316. <tr>
  1317. <td colspan="3" align="right"><BR><input type="checkbox" name="insurance" value="1" checked> <span class="fh4">Product/Shipping Insurance: <B>$2.49</B> (Optional)</td>
  1318. <td align="right"><BR><a href="my_order.asp">Return to Cart</a> </td>
  1319. <td align="right"><BR><input type="submit" name="Submit" value="Continue"></td>
  1320. </tr>
  1321. </table>
  1322.  
  1323. <table border="0" cellspacing="0" cellpadding="0" style=" font-size:11px; color:#999999;">
  1324. <tr><td align="center">*&nbsp; BUSINESS DAYS. Processing begins one day after payment</td></tr>
  1325. </table>
  1326. <input type="hidden" name="Action" value="SETFREIGHT">
  1327. </form>
  1328.  
  1329.  
  1330.  
  1331. <%
  1332. FrList.Close()
  1333. Set FrList = nothing
  1334. End Function
  1335.  
  1336. Function SetFreight(Freight)
  1337.  
  1338. Dim ShipCost, OqRy, OBJushp
  1339. 'if Application("MultItmShipDis") > 0 and TotalCartItems > 1 Then
  1340. ' ShipPrcntDis = Application("MultItmShipDis")
  1341. 'Else
  1342. ' ShipPrcntDis = 1
  1343. 'End if
  1344.  
  1345. ShipCost = CalcShipCost(GetShipPriceData(Freight),TotalCartItems)
  1346.  
  1347. if Request.Form("insurance")<>"1" Then
  1348. Session("insurance")=0
  1349. Else
  1350. Session("insurance")=2.49
  1351. End if
  1352.  
  1353.  
  1354.  
  1355. if CartTotal <> "" AND CartTotalBFCoupon <> "" Then
  1356.  
  1357. TaxAMT = salestax(Session("OrderID")) * (CartTotal/CartTotalBFCoupon)
  1358.  
  1359. 'set shipping and total amount must have item amt in it
  1360. OqRy = "UPDATE Orders SET CouponTotal="&CartTotalBFCoupon-CartTotal&", OrderSubTotal="&CartTotal&", GrandTotal="&TaxAMT+CartTotal+Session("insurance")+ShipCost(0)&", Freight="&ShipCost(0)&", FreightType=t2.FreightCode, Location='"& strLocation & "' FROM (SELECT FreightCode FROM Freight_ItmBased WHERE FreightID="&Freight&") AS t2 WHERE OrderID=" & Session("OrderID") & ";"
  1361. OqRy = OqRy & "UPDATE PPorders SET ITEMAMT="&CartTotal&", AMT="&TaxAMT+CartTotal+Session("insurance")+ShipCost(0)&", SHIPPINGAMT="&ShipCost(0)&", INSURANCEAMT="&Session("insurance")&", TAXAMT="&TaxAMT&",Location='"& strLocation & "' WHERE OrderID=" & Session("OrderID") & ";"
  1362.  
  1363.  
  1364. IF IsNumeric(Freight) Then
  1365. Set OBJushp = Server.CreateObject("ADODB.Command")
  1366. OBJushp.ActiveConnection = Application("DBConn_UncleSamSQL")
  1367. OBJushp.CommandText = OqRy
  1368. OBJushp.Execute
  1369. OBJushp.ActiveConnection.Close
  1370. End if
  1371. Session("Freight") = Freight 'ID
  1372. Else
  1373. Response.Redirect("error.asp?errordesc=Critical Failure: CHISVARA")
  1374. End if
  1375. End Function
  1376.  
  1377.  
  1378.  
  1379. Function PageCharge()
  1380.  
  1381. %>
  1382. <table class="checkoutboxes">
  1383. <tr>
  1384. <td class="heading">Billing Address (<A href="<%=Request.ServerVariables("SCRIPT_NAME")&"?page=address"%>">Edit</A>)</td>
  1385. <td class="heading">Shipping Address (<A href="<%=Request.ServerVariables("SCRIPT_NAME")&"?page=address"%>">Edit</A>)</td>
  1386. <td class="heading">Freights (<A href="<%=Request.ServerVariables("SCRIPT_NAME")&"?page=freight"%>">Edit</A>)</td>
  1387. </tr>
  1388. <tr>
  1389. <td>
  1390. <!--------------->
  1391. <DIV class="address">
  1392. <%=FIRSTNAME & "&nbsp;" & LASTNAME%><BR>
  1393. <%=STREET%><BR>
  1394. <%=STREET2%><BR>
  1395. <%=CITY & ", " & STATE & ", " & ZIP%><BR>
  1396. <%=COUNTRYCODE & "<BR>" & PHONENUM %>
  1397. </DIV>
  1398. <!--------------->
  1399. </td>
  1400. <td>
  1401. <!--------------->
  1402. <DIV class="address">
  1403.  
  1404. <% if len(strlocation)=0 then%>
  1405. <%=SHIPTONAME%><BR>
  1406. <%=SHIPTOSTREET%><BR>
  1407. <%=SHIPTOSTREET2%><BR>
  1408. <%=SHIPTOCITY%>, <%=SHIPTOSTATE%>, <%=SHIPTOZIP%><BR>
  1409. <%=SHIPTOCOUNTRYCODE%>
  1410. <%else%>
  1411. PICK UP AT <strong><%=strLocation%></strong><BR><BR>
  1412. <% if len(strlocation) > 0 and strlocation = "NYC" then%>
  1413. 37 West 8th Street<BR>
  1414. New York, NY, 10011<BR>
  1415. <%elseif len(strlocation) > 0 and strlocation = "Larkin, Buffalo" then%>
  1416. 290 Larkin Street<BR>
  1417. Buffalo, NY, 14210<BR>
  1418. <%end if%>
  1419. <%end if%>
  1420. </DIV>
  1421. <!--------------->
  1422. </td>
  1423. <td width="250">
  1424. <style>
  1425. .knototal {
  1426. background-color:#EDF3F2;
  1427. border:#D7E8E8 thin outset;
  1428. padding:10 20 10 20;
  1429. }
  1430. .knototal TD{
  1431. background-color:#FBFDFC;
  1432. width:100px;
  1433. text-align:right;
  1434. font-size:13px;
  1435. }
  1436. </style>
  1437.  
  1438. <%
  1439. 'if debug() Then
  1440. %>
  1441. <table class="knototal">
  1442. <tr>
  1443. <td>Sub Total:</td>
  1444. <td><%=FormatCurrency(CartTotalBFCoupon)%></td>
  1445. </tr>
  1446. <tr>
  1447. <td>Promotions:</td>
  1448. <td>-<%=FormatCurrency(CartTotalBFCoupon-CartTotal)%></td>
  1449. </tr>
  1450. <tr>
  1451. <td>Freight:</td>
  1452. <td><%=FormatCurrency(AMT-TaxAMT-CartTotal-Session("Insurance"))%></td>
  1453. </tr>
  1454. <tr>
  1455. <td>Insurance:</td>
  1456. <td><%=FormatCurrency(Session("Insurance"))%></td>
  1457. </tr>
  1458. <tr>
  1459. <td>N.Y. Sales Tax:</td>
  1460. <td><%=FormatCurrency(TaxAMT)%></td>
  1461. </tr>
  1462. <tr>
  1463. <td><B>Total:</B></td>
  1464. <td><B><%=FormatCurrency(AMT)%></B></td>
  1465. </tr>
  1466. </table>
  1467. <%
  1468. 'End if
  1469. %>
  1470. </td>
  1471. </tr>
  1472. </table>
  1473.  
  1474. <%
  1475. Call ShowCCForm()
  1476. ' Call ShowCCError
  1477. %>
  1478. <table>
  1479. <tr>
  1480. <td align="center"><span class="sans-1"><font size="+1" color="#990000">* If you have any issue placing this order <b>(<% response.Write Session("OrderID") %>)</b>, Please call 1(877)872-7267.</font></span></td>
  1481. </tr>
  1482. </table>
  1483. <%
  1484. End Function
  1485.  
  1486.  
  1487. Sub ShowCCError()
  1488. %>
  1489. <table class="checkoutboxes">
  1490. <tr>
  1491. <td colspan="2" class="heading">Technical Difficulties</td>
  1492. </tr>
  1493. <tr>
  1494. <td align="right" width="18%">Card Type:</td>
  1495. <td><select name="CREDITCARDTYPE">
  1496. <option value="Visa" <%if CREDITCARDTYPE = "Visa" Then Response.Write "selected"%>>Visa</option>
  1497. <option value="MasterCard" <%if CREDITCARDTYPE = "MasterCard" Then Response.Write "selected"%>>MasterCard</option>
  1498. <option value="Discover" <%if CREDITCARDTYPE = "Discover" Then Response.Write "selected"%>>Discover</option>
  1499. <option value="Amex" <%if CREDITCARDTYPE = "Amex" Then Response.Write "selected"%>>American Express</option>
  1500. </select> &nbsp;&nbsp;
  1501. <img src="images/creditcards.jpg" height="20"> </td>
  1502. </tr>
  1503. <tr>
  1504. <td align="right">Card Number:</td>
  1505. <td><input type="text" size="19" maxlength="19" name="ACCT" value="" autocomplete="off"></td>
  1506. </tr>
  1507. <tr>
  1508. <td align="right">Expiration Date:</td>
  1509. <td><select name="expDateMonth">
  1510. <option value="01" <%if expDateMonth = "01" Then Response.Write "selected"%>>01</option>
  1511. <option value="02" <%if expDateMonth = "02" Then Response.Write "selected"%>>02</option>
  1512. <option value="03" <%if expDateMonth = "03" Then Response.Write "selected"%>>03</option>
  1513. <option value="04" <%if expDateMonth = "04" Then Response.Write "selected"%>>04</option>
  1514. <option value="05" <%if expDateMonth = "05" Then Response.Write "selected"%>>05</option>
  1515. <option value="06" <%if expDateMonth = "06" Then Response.Write "selected"%>>06</option>
  1516. <option value="07" <%if expDateMonth = "07" Then Response.Write "selected"%>>07</option>
  1517. <option value="08" <%if expDateMonth = "08" Then Response.Write "selected"%>>08</option>
  1518. <option value="09" <%if expDateMonth = "09" Then Response.Write "selected"%>>09</option>
  1519. <option value="10" <%if expDateMonth = "10" Then Response.Write "selected"%>>10</option>
  1520. <option value="11" <%if expDateMonth = "11" Then Response.Write "selected"%>>11</option>
  1521. <option value="12" <%if expDateMonth = "12" Then Response.Write "selected"%>>12</option>
  1522. </select>
  1523. <select name="expDateYear">
  1524. <option value="2017" <%if expDateYear = "2017" Then Response.Write "selected"%>>2017</option>
  1525. <option value="2018" <%if expDateYear = "2018" Then Response.Write "selected"%>>2018</option>
  1526. <option value="2019" <%if expDateYear = "2019" Then Response.Write "selected"%>>2019</option>
  1527. <option value="2020" <%if expDateYear = "2020" Then Response.Write "selected"%>>2020</option>
  1528. <option value="2021" <%if expDateYear = "2021" Then Response.Write "selected"%>>2021</option>
  1529. <option value="2022" <%if expDateYear = "2022" Then Response.Write "selected"%>>2022</option>
  1530. <option value="2023" <%if expDateYear = "2023" Then Response.Write "selected"%>>2023</option>
  1531. <option value="2024" <%if expDateYear = "2024" Then Response.Write "selected"%>>2024</option>
  1532. <option value="2025" <%if expDateYear = "2025" Then Response.Write "selected"%>>2025</option>
  1533.  
  1534. </select></td>
  1535. </tr>
  1536. <tr>
  1537. <td align="right" nowrap>Card Verification Number:</td>
  1538. <td><input type="text" size="3" maxlength="4" name="CVV2" value="" autocomplete="off"> <a href="javascript:alert('The Verification Code is a three or four digit number on the back or front of your credit card. The full credit card number is reprinted and at the end of the number is the Verification Code.');void(0);">what's this</a></td>
  1539. </tr>
  1540. <tr>
  1541. <td colspan="2" align="right"><input type="submit" name="Submit" value="Make Payment"></td>
  1542. </tr>
  1543. </table>
  1544. <input type="hidden" name="Action" value="PROCESS">
  1545. </form>
  1546. <%
  1547.  
  1548. End Sub
  1549.  
  1550.  
  1551. Sub ShowCCForm()
  1552. %>
  1553. <form action="<%=SCRIPT&"?"&QryString%>" method="post" name="form1">
  1554. <table class="checkoutboxes">
  1555. <tr>
  1556. <td colspan="2" class="heading">Payment Method</td>
  1557. </tr>
  1558. <tr>
  1559. <td align="right" width="18%">Card Type:</td>
  1560. <td><select name="CREDITCARDTYPE">
  1561. <option value="Visa" <%if CREDITCARDTYPE = "Visa" Then Response.Write "selected"%>>Visa</option>
  1562. <option value="MasterCard" <%if CREDITCARDTYPE = "MasterCard" Then Response.Write "selected"%>>MasterCard</option>
  1563. <option value="Discover" <%if CREDITCARDTYPE = "Discover" Then Response.Write "selected"%>>Discover</option>
  1564. <option value="Amex" <%if CREDITCARDTYPE = "Amex" Then Response.Write "selected"%>>American Express</option>
  1565. </select> &nbsp;&nbsp;
  1566. <img src="images/creditcards.jpg" height="20"> </td>
  1567. </tr>
  1568. <tr>
  1569. <td align="right">Card Number:</td>
  1570. <td><input type="text" size="19" maxlength="19" name="ACCT" value="" autocomplete="off"></td>
  1571. </tr>
  1572. <tr>
  1573. <td align="right">Expiration Date:</td>
  1574. <td><select name="expDateMonth">
  1575. <option value="01" <%if expDateMonth = "01" Then Response.Write "selected"%>>01</option>
  1576. <option value="02" <%if expDateMonth = "02" Then Response.Write "selected"%>>02</option>
  1577. <option value="03" <%if expDateMonth = "03" Then Response.Write "selected"%>>03</option>
  1578. <option value="04" <%if expDateMonth = "04" Then Response.Write "selected"%>>04</option>
  1579. <option value="05" <%if expDateMonth = "05" Then Response.Write "selected"%>>05</option>
  1580. <option value="06" <%if expDateMonth = "06" Then Response.Write "selected"%>>06</option>
  1581. <option value="07" <%if expDateMonth = "07" Then Response.Write "selected"%>>07</option>
  1582. <option value="08" <%if expDateMonth = "08" Then Response.Write "selected"%>>08</option>
  1583. <option value="09" <%if expDateMonth = "09" Then Response.Write "selected"%>>09</option>
  1584. <option value="10" <%if expDateMonth = "10" Then Response.Write "selected"%>>10</option>
  1585. <option value="11" <%if expDateMonth = "11" Then Response.Write "selected"%>>11</option>
  1586. <option value="12" <%if expDateMonth = "12" Then Response.Write "selected"%>>12</option>
  1587. </select>
  1588. <select name="expDateYear">
  1589. <option value="2017" <%if expDateYear = "2017" Then Response.Write "selected"%>>2017</option>
  1590. <option value="2018" <%if expDateYear = "2018" Then Response.Write "selected"%>>2018</option>
  1591. <option value="2019" <%if expDateYear = "2019" Then Response.Write "selected"%>>2019</option>
  1592. <option value="2020" <%if expDateYear = "2020" Then Response.Write "selected"%>>2020</option>
  1593. <option value="2021" <%if expDateYear = "2021" Then Response.Write "selected"%>>2021</option>
  1594. <option value="2022" <%if expDateYear = "2022" Then Response.Write "selected"%>>2022</option>
  1595. <option value="2023" <%if expDateYear = "2023" Then Response.Write "selected"%>>2023</option>
  1596. <option value="2024" <%if expDateYear = "2024" Then Response.Write "selected"%>>2024</option>
  1597. <option value="2025" <%if expDateYear = "2025" Then Response.Write "selected"%>>2025</option>
  1598.  
  1599. </select></td>
  1600. </tr>
  1601. <tr>
  1602. <td align="right" nowrap>Card Verification Number:</td>
  1603. <td><input type="text" size="3" maxlength="4" name="CVV2" value="" autocomplete="off"> <a href="javascript:alert('The Verification Code is a three or four digit number on the back or front of your credit card. The full credit card number is reprinted and at the end of the number is the Verification Code.');void(0);">what's this</a></td>
  1604. </tr>
  1605. <tr>
  1606. <td colspan="2" align="right"><input type="submit" name="Submit" value="Make Payment"></td>
  1607. </tr>
  1608. </table>
  1609. <input type="hidden" name="Action" value="PROCESS">
  1610. </form>
  1611. <%
  1612.  
  1613. End Sub
  1614.  
  1615.  
  1616.  
  1617.  
  1618. Function ChargeFieldError()
  1619. Dim YYMM
  1620. if Len(Month(Date)) > 1 Then
  1621. YYMM = Year(Date) & Month(Date)
  1622. Else
  1623. YYMM = Year(Date) & "0" & Month(Date)
  1624. End if
  1625. if expDateYear&expDateMonth < YYMM Then ChargeFieldError = ChargeFieldError & "<li>Expiration date is not current." & VbNewLine
  1626. if Not ACCT <> "" Then ChargeFieldError = ChargeFieldError & "<li>Account number is missing." & VbNewLine
  1627. if Not CVV2 <> "" Then ChargeFieldError = ChargeFieldError & "<li>Verification Number is missing." & VbNewLine
  1628. End Function
  1629.  
  1630.  
  1631.  
  1632. Function SaveCredit()
  1633. Dim Qry_cc_str, Addcc
  1634. 'update order exist
  1635. Qry_cc_str= "UPDATE PPOrders SET " &_
  1636. "CREDITCARDTYPE = '" & CREDITCARDTYPE & "', " &_
  1637. "ACCT = '*" & ACCT & "', " &_
  1638. "EXPDATE = '" & expDateMonth & expDateYear & "', " &_
  1639. "CVV2 = '" & CVV2 & "' " &_
  1640. "WHERE OrderID = " & Session("OrderID") & ";"
  1641.  
  1642.  
  1643. Set Addcc = Server.CreateObject("ADODB.Command")
  1644. Addcc.ActiveConnection = Application("DBConn_UncleSamSQL")
  1645. Addcc.CommandText = Qry_cc_str
  1646. Addcc.Execute
  1647. Addcc.ActiveConnection.Close
  1648. End Function
  1649.  
  1650.  
  1651.  
  1652. Function TransactionError(PPErrorLMsg)
  1653.  
  1654. if PPErrorLMsg <> "" Then
  1655. Oops("<LI>"&PPErrorLMsg)
  1656. Else
  1657. Oops("<LI> - Please confirm all the information is correct and try again.**")
  1658. End if
  1659. End Function
  1660.  
  1661. Function PageThankYou()
  1662.  
  1663. %>
  1664. <table class="checkoutboxes">
  1665. <tr>
  1666. <TD>
  1667.  
  1668. <!-- Jing add we are ... on 09/11/12 -->
  1669. <p class="confirm" ><span class="style1">Thank you, your payment was received. We are only AUTHORIZING your purchase<br>and WE DO NOT CHARGE UNTIL WE SHIP your order.Thanks!</span></p></td>
  1670.  
  1671. <td class="heading">Order Summery</td>
  1672. </tr>
  1673. <tr>
  1674. <td>
  1675. <p>&nbsp;<br>
  1676. <span class="sans-1"><font size="+1">Your Order Number is: <B># <%=Session("OrderID")%></B></font>.<br>Please refer to this when contacting us.</font><br><BR>You should receive a receipt by email in a few minutes. If you do not, please contact us at 877-872-7267 or review your order in your "My Account" section. We will begin processing your order immediately and will contact you should we encounter any problems.<br><BR>
  1677. <a href="http://www.armynavydealsblog.blogspot.com/" target="_blank"><img src="http://www.armynavydeals.com/asp/images/RightMenu/blogger_2014.jpg" border="0" width="35" height="35"></a>&nbsp;&nbsp;
  1678. <a href="https://www.facebook.com/pages/ArmyNavyDealscom/212548175504691?ref=hl" target="_blank"><img src="http://www.armynavydeals.com/asp/images/RightMenu/facebook_2014.jpg" border="0" width="35" height="35"></a>&nbsp;&nbsp;
  1679. <a href="https://twitter.com/armynavydeals" target="_blank"><img src="http://www.armynavydeals.com/asp/images/RightMenu/twitter_2014.jpg" border="0" width="35" height="35"></a>&nbsp;&nbsp;
  1680. <a href="http://www.youtube.com/user/UncleSamsTube" target="_blank"><img src="http://www.armynavydeals.com/asp/images/RightMenu/youtube_2014.jpg" border="0" width="35" height="35"></a>&nbsp;&nbsp;
  1681. </span>
  1682. </p>
  1683. </td>
  1684. <td width="250">
  1685. <style>
  1686. .knototal {
  1687. background-color:#EDF3F2;
  1688. border:#D7E8E8 thin outset;
  1689. padding:10 20 10 20;
  1690. }
  1691. .knototal TD{
  1692. background-color:#FBFDFC;
  1693. width:100px;
  1694. text-align:right;
  1695. font-size:13px;
  1696. }
  1697. </style>
  1698.  
  1699. <%
  1700. 'if debug() Then
  1701. %>
  1702. <table class="knototal">
  1703. <tr>
  1704. <td>Order Number:</td>
  1705. <td><B><font size="3"># <%=Session("OrderID")%></B></td>
  1706. </tr>
  1707. <tr>
  1708. <td>Sub Total:</td>
  1709. <td><%=FormatCurrency(CartTotalBFCoupon)%></td>
  1710. </tr>
  1711. <tr>
  1712. <td>Promotions:</td>
  1713. <td>-<%=FormatCurrency(CartTotalBFCoupon-CartTotal)%></td>
  1714. </tr>
  1715. <tr>
  1716. <td>Freight:</td>
  1717. <td><%=FormatCurrency(AMT-TaxAMT-CartTotal-Session("Insurance"))%></td>
  1718. </tr>
  1719. <tr>
  1720. <td>Insurance:</td>
  1721. <td><%=FormatCurrency(Session("Insurance"))%></td>
  1722. </tr>
  1723. <tr>
  1724. <td>N.Y. Sales Tax:</td>
  1725. <td><%=FormatCurrency(TaxAMT)%></td>
  1726. </tr>
  1727. <tr>
  1728. <td><B>Total:</B></td>
  1729. <td><B><%=FormatCurrency(AMT)%></B></td>
  1730. </tr>
  1731. </table>
  1732. <%
  1733. 'End if
  1734. %>
  1735. </td>
  1736. </tr>
  1737. </table>
  1738.  
  1739. </p>
  1740. <!-- begin AdBrite, Purchases/sales tracking -->
  1741. <img border="0" hspace="0" vspace="0" width="1" height="1" src="https://stats.adbrite.com/stats/stats.gif?_uid=422539&_pid=0" />
  1742. <!-- end AdBrite, Purchases/sales tracking -->
  1743.  
  1744. <!----shareasale.com---->
  1745. <img src="https://shareasale.com/sale.cfm?amount=<%=FormatNumber(CartTotal)%>&tracking=<%=Session("OrderID")%>&transtype=sale&merchantID=17071" width="1" height="1">
  1746.  
  1747. <!----CJ.com---->
  1748. <img src="https://www.emjcd.com/u?AMOUNT=<%=FormatNumber(CartTotal)%>&CID=1512239&OID=<%=Session("OrderID")%>&TYPE=326539&CURRENCY=USD&METHOD=IMG" height="1" width="20">
  1749.  
  1750.  
  1751. <SCRIPT language="JavaScript" type="text/javascript">
  1752. <!-- Yahoo! Inc.
  1753. window.ysm_customData = new Object();
  1754. window.ysm_customData.conversion = "transId=,currency=,amount=";
  1755. var ysm_accountid = "1G6Q69EIH227O9VV4OOLT3DE5UC";
  1756. document.write("<SCR" + "IPT language='JavaScript' type='text/javascript' " + "SRC=//" + "srv3.wa.marketingsolutions.yahoo.com" + "/script/ScriptServlet" + "?aid=" + ysm_accountid + "></SCR" + "IPT>");
  1757. // -->
  1758. </SCRIPT>
  1759.  
  1760.  
  1761. <!-- Google AdWords Code for purchase Conversion Page -->
  1762. <script language="JavaScript" type="text/javascript">
  1763. <!--
  1764. var google_conversion_id = 1071985679;
  1765. var google_conversion_language = "en_US";
  1766. var google_conversion_format = "2";
  1767. var google_conversion_color = "FFFFFF";
  1768. if (1.0) {
  1769. var google_conversion_value = 1.0;
  1770. }
  1771. var google_conversion_label = "purchase";
  1772. //-->
  1773. </script>
  1774. <script language="JavaScript" src="https://www.googleadservices.com/pagead/conversion.js"></script>
  1775. <noscript>
  1776. <img height=1 width=1 border=0 src="https://www.googleadservices.com/pagead/conversion/1071985679/imp.gif?value=1.0&label=purchase&script=0">
  1777. </noscript>
  1778. <!-- End of Google AdWords Code for purchase Conversion Page -->
  1779.  
  1780. <%
  1781. call GoogleAnalyticsTrackTrans(Session("OrderID"))
  1782. %>
  1783.  
  1784.  
  1785. <script>
  1786. //Website Optimizer
  1787. if (typeof (urchinTracker) != 'function') document.write('<sc' + 'ript src="' +
  1788. 'http' + (document.location.protocol == 'https:' ? 's://ssl' : '://www') +
  1789. '.google-analytics.com/urchin.js' + '"></sc' + 'ript>')
  1790. </script>
  1791. <script>
  1792. _uacct = 'UA-2589048-2';
  1793. urchinTracker("/0960454370/goal");
  1794. </script>
  1795.  
  1796.  
  1797.  
  1798. <SCRIPT>
  1799. // bing code
  1800. microsoft_adcenterconversion_domainid = 599028;
  1801. microsoft_adcenterconversion_cp = 5050;
  1802. microsoft_adcenterconversionparams = new Array();
  1803. microsoft_adcenterconversionparams[0] = "dedup=1";
  1804. </SCRIPT>
  1805. <SCRIPT SRC="https://0.r.msn.com/scripts/microsoft_adcenterconversion.js"></SCRIPT>
  1806. <NOSCRIPT><IMG width=1 height=1 SRC="https://599028.r.msn.com/?type=1&cp=1&dedup=1"/></NOSCRIPT><a href="http://advertising.microsoft.com/MSNadCenter/LearningCenter/adtracker.asp" target="_blank"></a>
  1807.  
  1808. <%
  1809. End Function
  1810.  
  1811. Function DoOnSuccessManual()
  1812. Dim Fqry
  1813. dim intHold : intHold =0
  1814.  
  1815.  
  1816.  
  1817. Fqry = "UPDATE Orders SET OrderDate='"&Now&"', OrderComplete=1, CardType='Authorize CC', VerisignID='MANUAL' WHERE OrderID = " & Session("OrderID")
  1818. Dim PP_Respo
  1819. Set PP_Respo = Server.CreateObject("ADODB.Command")
  1820. PP_Respo.ActiveConnection = Application("DBConn_UncleSamSQL")
  1821. PP_Respo.CommandText = Fqry
  1822. PP_Respo.Execute
  1823. PP_Respo.ActiveConnection.Close
  1824.  
  1825. End Function
  1826.  
  1827.  
  1828. Function DoOnSuccess(ByVal AuthResponse)
  1829. Dim Fqry
  1830. dim intHold : intHold =0
  1831.  
  1832. if AuthResponse(0)="4" then intHold =1
  1833. Fqry = "UPDATE PPOrders SET AVSCODE='"&Ucase(AuthResponse(39))&"', CVV2MATCH='"&Ucase(AuthResponse(38))&"', TRANSACTIONID='"&Ucase(AuthResponse(6))&"' WHERE OrderID = " & Session("OrderID")
  1834. Fqry = Fqry & "UPDATE Orders SET OrderDate='"&Now&"', OrderComplete=1, CardType='Authorize CC', VerisignID='"&Ucase(AuthResponse(6))&"' , NewSystem=1, Hold=" & intHold & " WHERE OrderID = " & Session("OrderID")
  1835. Dim PP_Respo
  1836. Set PP_Respo = Server.CreateObject("ADODB.Command")
  1837. PP_Respo.ActiveConnection = Application("DBConn_UncleSamSQL")
  1838. PP_Respo.CommandText = Fqry
  1839. PP_Respo.Execute
  1840. PP_Respo.ActiveConnection.Close
  1841.  
  1842. End Function
  1843.  
  1844.  
  1845.  
  1846. Function OrderCompliteEmail()
  1847. Dim AT
  1848. Dim RS_OrderDetails, OrderDetails, ItmAttriArry, EmTbody
  1849. Set RS_OrderDetails = Server.CreateObject("ADODB.Recordset")
  1850. RS_OrderDetails.ActiveConnection = Application("DBConn_UncleSamSQL")
  1851. RS_OrderDetails.Source = "SELECT OrderDetails.OrderID, OrderDetails.OrderDetailID, OrderDetails.ItemName, Products.ExtraShipping, OrderDetails.SKU, OrderDetails.ItemPrice, OrderDetails.QTY, OrderDetails.Size, OrderDetails.Waist, OrderDetails.Inseam, OrderDetails.Chest, OrderDetails.ShoeSize, OrderDetails.ShoeWidth, OrderDetails.HatSize, OrderDetails.Color, OrderDetails.Color2, OrderDetails.DogTagPrinted, OrderDetails.DogTagInfo, OrderDetails.ItemName FROM OrderDetails Inner Join Products On OrderDetails.SKU = Products.SKU WHERE OrderDetails.OrderID=" & Session("OrderID") & " Order By OrderDetails.SKU DESC"
  1852. RS_OrderDetails.CursorType = 0
  1853. RS_OrderDetails.CursorLocation = 2
  1854. RS_OrderDetails.LockType = 1
  1855. RS_OrderDetails.Open()
  1856.  
  1857. While Not(RS_OrderDetails.EOF)
  1858. OrderDetails = OrderDetails & "SKU: " & RS_OrderDetails.Fields.Item("SKU").Value & vbCrLf
  1859. OrderDetails = OrderDetails & "Item: " & RS_OrderDetails.Fields.Item("ItemName").Value & vbCrLf
  1860.  
  1861. ItmAttriArry = CartItemAttributes(RS_OrderDetails.Fields.Item("OrderDetailID").Value)
  1862. if IsArray(ItmAttriArry) Then
  1863. For AT= 0 to ubound(ItmAttriArry,2)
  1864. OrderDetails = OrderDetails & Trim(ItmAttriArry(0,AT)) & ": " & ItmAttriArry(1,AT) & vbCrLf
  1865. Next
  1866. End if
  1867.  
  1868. OrderDetails = OrderDetails & "Price: " & FormatCurrency(RS_OrderDetails.Fields.Item("ItemPrice").Value) & vbCrLf
  1869. OrderDetails = OrderDetails & "QTY: " & RS_OrderDetails.Fields.Item("QTY").Value & vbCrLf
  1870. If RS_OrderDetails.Fields.Item("Size").Value <> "" Then OrderDetails = OrderDetails & "Size: " & RS_OrderDetails.Fields.Item("Size").Value & vbCrLf
  1871. If RS_OrderDetails.Fields.Item("Waist").Value <> "" Then OrderDetails = OrderDetails & "Waist: " & RS_OrderDetails.Fields.Item("Waist").Value & vbCrLf
  1872. If RS_OrderDetails.Fields.Item("Inseam").Value <> "" Then OrderDetails = OrderDetails & "Inseam: " & RS_OrderDetails.Fields.Item("Inseam").Value & vbCrLf
  1873. If RS_OrderDetails.Fields.Item("Chest").Value <> "" Then OrderDetails = OrderDetails & "Chest: " & RS_OrderDetails.Fields.Item("Chest").Value & vbCrLf
  1874. If RS_OrderDetails.Fields.Item("Color").Value <> "" Then OrderDetails = OrderDetails & "Color: " & RS_OrderDetails.Fields.Item("Color").Value & vbCrLf
  1875. If RS_OrderDetails.Fields.Item("DogTagPrinted").Value = true Then OrderDetails = OrderDetails & RS_OrderDetails.Fields.Item("DogTagInfo").Value & vbCrLf
  1876. OrderDetails = OrderDetails & "----------------------------------------------------" & vbCrLf
  1877. RS_OrderDetails.MoveNext()
  1878. Wend
  1879. RS_OrderDetails.Close
  1880. set RS_OrderDetails = Nothing
  1881.  
  1882. EmTbody = "Dear " & FIRSTNAME &" " & LASTNAME & "," & vbCrLf & vbCrLf _
  1883.  
  1884. & "Thanks for your order! We hope you enjoy your purchase." & vbCrLf & vbCrLf _
  1885. & "Ship to Address:" & vbCrLf _
  1886. & SHIPTONAME & vbCrLf _
  1887. & SHIPTOSTREET & vbCrLf _
  1888. & SHIPTOSTREET2 & vbCrLf _
  1889. & SHIPTOCITY & ", " & SHIPTOSTATE & ". " & SHIPTOZIP & vbCrLf & vbCrLf _
  1890. & "Your order details are as follows:" & vbCrLf & vbCrLf _
  1891. & "Order Date: " & now & vbCrLf _
  1892. & "Order ID: " & Session("OrderID") & " " & vbCrLf _
  1893. & "Sub Total: " & FormatCurrency(ITEMAMT) & vbCrLf _
  1894. & "Freight: " & FormatCurrency(SHIPPINGAMT) & vbCrLf _
  1895. & "Insurance: " & FormatCurrency(Session("insurance")) & vbCrLf _
  1896. & "Sales Tax: " & FormatCurrency(TaxAMT) & vbCrLf _
  1897. & "Grand Total: " & FormatCurrency(AMT) & vbCrLf & vbCrLf _
  1898.  
  1899. & "----------------------------------------------------" & vbCrLf _
  1900. & OrderDetails & vbCrLf _
  1901.  
  1902. & "You may access your order online at the following URL:" & vbCrLf _
  1903. & "http://www.armynavydeals.com/asp/my_account.asp" & vbCrLf & vbCrLf _
  1904.  
  1905. & "If you need to refund or exchange something please be sure to print out our Return Form and include it with your return shipment. You may access it at the following URL:" & vbCrLf _
  1906. & "http://www.armynavydeals.com/asp/promos.asp#refunds" & vbCrLf & vbCrLf _
  1907.  
  1908. & "If you have any questions or comments about your order please contact service@armynavydeals.com" & vbCrLf & vbCrLf _
  1909.  
  1910. & "We have included a new coupon for you. Please enter Coupon Number 100 on your next order. it will give you additional discount"
  1911.  
  1912.  
  1913. Dim objCDO
  1914. Set objCDO = CreateObject("CDO.Message")
  1915. objCDO.From = "service@armynavydeals.com"
  1916. objCDO.To = EMAIL
  1917. objCDO.CC = "service@armynavydeals.com"
  1918. objCDO.Subject = "Order ID (" & Session("OrderID") & ") - Your armynavydeals.com Receipt"
  1919. objCDO.TextBody = EmTbody
  1920. objCDO.Send
  1921. Set objCDO = Nothing
  1922.  
  1923. 'Jing remove 09/11/2012
  1924. 'call sendemail(NULL, "NewOrder - " & Session("OrderID"),EmTbody)
  1925.  
  1926. End Function
  1927.  
  1928.  
  1929. Function HeaderSteps(STP)
  1930. 'if Debug() Then
  1931. %>
  1932. <table width="599" border="0" cellspacing="0" cellpadding="0">
  1933. <tr>
  1934. <td colspan="3"><img src="/asp/images/homepage/checkout_steps.gif" width="599" height="41"></td>
  1935. </tr>
  1936. <tr>
  1937. <td width="200" align="center"><%if STP=1 Then %><img src="/asp/images/homepage/arr_up.gif" width="25" height="30"><%End if%></td>
  1938. <td width="200" align="center"><%if STP=2 Then %><img src="/asp/images/homepage/arr_up.gif" width="25" height="30"><%End if%></td>
  1939. <td width="199" align="center"><%if STP=3 Then %><img src="/asp/images/homepage/arr_up.gif" width="25" height="30"><%End if%></td>
  1940. </tr>
  1941. </table>
  1942. <%
  1943. 'End if
  1944. End Function
  1945.  
  1946.  
  1947.  
  1948.  
  1949. Function Oops(MSG)
  1950. %>
  1951. <table class="oops">
  1952. <tr>
  1953. <td>
  1954. <%=MSG%>
  1955. </td>
  1956. </tr>
  1957. </table>
  1958. <%
  1959. End Function
  1960.  
  1961.  
  1962. Public FIRSTNAME : FIRSTNAME = Trim(Request.Form("FIRSTNAME"))
  1963. Public LASTNAME : LASTNAME = Trim(Request.Form("LASTNAME"))
  1964. Public STREET : STREET = Trim(Request.Form("STREET"))
  1965. Public STREET2 : STREET2 = Trim(Request.Form("STREET2"))
  1966. Public CITY : CITY = Trim(Request.Form("CITY"))
  1967. Public STATE : STATE = Trim(Request.Form("STATE"))
  1968. Public COUNTRYCODE : COUNTRYCODE = Trim(Request.Form("COUNTRYCODE"))
  1969. Public ZIP : ZIP = Trim(Request.Form("ZIP"))
  1970. Public PHONENUM : PHONENUM = Trim(Request.Form("PHONENUM"))
  1971. Public EMAIL : EMAIL = Trim(Request.Form("EMAIL"))
  1972. Public SHIPTONAME : SHIPTONAME = Trim(Request.Form("SHIPTONAME"))
  1973. Public SHIPTOSTREET : SHIPTOSTREET = Trim(Request.Form("SHIPTOSTREET"))
  1974. Public SHIPTOSTREET2 : SHIPTOSTREET2 = Trim(Request.Form("SHIPTOSTREET2"))
  1975. Public SHIPTOCITY : SHIPTOCITY = Trim(Request.Form("SHIPTOCITY"))
  1976. Public SHIPTOSTATE : SHIPTOSTATE = Trim(Request.Form("SHIPTOSTATE"))
  1977. Public SHIPTOCOUNTRYCODE : SHIPTOCOUNTRYCODE = Trim(Request.Form("SHIPTOCOUNTRYCODE"))
  1978. Public SHIPTOZIP : SHIPTOZIP = Trim(Request.Form("SHIPTOZIP"))
  1979. Public SHIPTOPHONENUM : SHIPTOPHONENUM = Trim(Request.Form("SHIPTOPHONENUM"))
  1980. Public CUSTOM : CUSTOM = Trim(Request.Form("CUSTOM"))
  1981. Public strLocation : strLocation = REquest.Form("selLocation")
  1982.  
  1983.  
  1984. Public CREDITCARDTYPE : CREDITCARDTYPE = Trim(Request.Form("CREDITCARDTYPE"))
  1985. Public ACCT : ACCT = Trim(Replace(Trim(Request.Form("ACCT"))," ",""))
  1986. Public expDateMonth : expDateMonth = Trim(Request.Form("expDateMonth"))
  1987. Public expDateYear : expDateYear = Trim(Request.Form("expDateYear"))
  1988. Public CVV2 : CVV2 = Trim(Request.Form("CVV2"))
  1989. Public EXPDATE
  1990. Public AMT
  1991. Public TaxAMT
  1992. Public OrderID
  1993. Public ITEMAMT
  1994. Public SHIPPINGAMT
  1995. Public INSURANCEAMT
  1996.  
  1997.  
  1998.  
  1999. Public Freight : Freight = Request.Form("Freight")
  2000. Public SAMEASBILL : SAMEASBILL = Request.Form("SAMEASBILL")
  2001.  
  2002. Public QryString : QryString = Request.QueryString()
  2003. Public SCRIPT : SCRIPT = Request.ServerVariables("SCRIPT_NAME")
  2004. Dim PAYMENTACTION, IPADDRESS, AVSCODE, CVV2MATCH, TRANSACTIONID
  2005.  
  2006.  
  2007. Dim nvpstr, PPansw, PPkey, PPval, TransactStatus, ACK
  2008.  
  2009.  
  2010. %>
  2011.  
  2012. <style>
  2013. .checkoutboxes {
  2014. background-color:#F7F9F0;
  2015. border-width:1px;
  2016. border-color:#062000;
  2017. border-style:outset;
  2018. padding: 20px;
  2019. margin-bottom: 10px;
  2020. width:100%;
  2021. font-size:13px;
  2022.  
  2023. }
  2024. .oops {
  2025. background-color:#FFFFCC;
  2026. border-width:1px;
  2027. border-color:#6699CC;
  2028. border-style:dashed;
  2029. padding: 30px;
  2030. width:100%;
  2031. margin-bottom: 8px;
  2032. color:#F90006;
  2033. font-size:15px;
  2034. text-align:left;
  2035. }
  2036.  
  2037.  
  2038. </style>
  2039.  
  2040.  
  2041. <table align="center" width="780" height="100%" border="0" cellpadding="0" cellspacing="0">
  2042. <tr>
  2043. <td align="center" valign="top">
  2044. <BR>
  2045. <%
  2046. If RequestQueryString("page") = "address" Then
  2047.  
  2048. call HeaderSteps(1)
  2049. if Request.Form("Action") = "ADDADDRESS" Then
  2050. If AddressFieldError <> "" Then
  2051. ''Call Oops(AddressFieldError) ''turn off Oops on shipping address only
  2052. Else
  2053. SaveAddressInfo()
  2054. if SHIPTOSTATE = "NY" Then
  2055. call ApplyTaxRate(SHIPTOZIP,Session("OrderID"))
  2056. Else
  2057. Call ApplyTaxRate("SetToZero" ,Session("OrderID"))
  2058. End if
  2059. Response.Redirect Request.ServerVariables("SCRIPT_NAME")&"?"&"page=freight"
  2060. End if
  2061. Else
  2062. call ReadPPorders()
  2063. End if
  2064. call PageAddress()
  2065.  
  2066. ElseIf RequestQueryString("page") = "freight" Then
  2067. call HeaderSteps(2)
  2068. if Request.Form("Action") = "SETFREIGHT" Then
  2069. If Freight <> "" Then
  2070. call SetFreight(Freight)
  2071. Response.Redirect Request.ServerVariables("SCRIPT_NAME")&"?"&"page=charge"
  2072. Else
  2073. Call Oops("<li>Plese Select Shipping Option.")
  2074. End if
  2075. End if
  2076.  
  2077. 'Jing updated on 2/18/15
  2078. if Session("CustomerCountry") = "US" and (Session("CustomerState") = "HI" or Session("CustomerState") = "AK") Then
  2079. call DisplayShippingOptions("PR")
  2080. Else
  2081. call DisplayShippingOptions(Session("CustomerCountry"))
  2082. End if
  2083. ElseIf RequestQueryString("page") = "charge" Then
  2084.  
  2085.  
  2086.  
  2087. TaxAMT = salestax(Session("OrderID")) * (CartTotal/CartTotalBFCoupon)
  2088. call HeaderSteps(3)
  2089. if Request.Form("Action") = "PROCESS" Then
  2090.  
  2091.  
  2092. If ChargeFieldError <> "" Then
  2093. Call Oops(ChargeFieldError)
  2094. Else
  2095. call SaveCredit()
  2096. call ReadPPorders()
  2097.  
  2098. ' the only additional line added
  2099. ' Response.Redirect(request.ServerVariables("SCRIPT_NAME") & "?page=thankyou")
  2100.  
  2101. '//////////////////////////////////////////////////////
  2102. '-----------------------------------------------------------------------------
  2103. '-----------------------------------------------------------------------------
  2104. nvpstr = "&PAYMENTACTION=Authorization" & _
  2105. "&METHOD=DoDirectPayment" &_
  2106. "&IPADDRESS=" & Request.ServerVariables("REMOTE_ADDR") &_
  2107. "&AMT="& FormatNumber(AMT) &_
  2108. "&CREDITCARDTYPE="&CREDITCARDTYPE &_
  2109. "&ACCT="&ACCT & _
  2110. "&EXPDATE=" & EXPDATE &_
  2111. "&CVV2=" & CVV2 &_
  2112. "&FIRSTNAME=" & FIRSTNAME &_
  2113. "&LASTNAME=" & LASTNAME &_
  2114. "&STREET=" & STREET &_
  2115. "&STREET2=" & STREET2 &_
  2116. "&CITY=" & CITY &_
  2117. "&STATE=" & STATE &_
  2118. "&ZIP=" &ZIP &_
  2119. "&COUNTRYCODE=" & COUNTRYCODE &_
  2120. "&EMAIL=" & EMAIL &_
  2121. "&PHONENUM=" & PHONENUM &_
  2122. "&CUSTOM=" & CUSTOM &_
  2123. "&INVNUM=" & Session("OrderID") &_
  2124. "&SHIPTONAME=" & SHIPTONAME &_
  2125. "&SHIPTOSTREET=" & SHIPTOSTREET &_
  2126. "&SHIPTOSTREET2=" & SHIPTOSTREET2 &_
  2127. "&SHIPTOCITY=" & SHIPTOCITY &_
  2128. "&SHIPTOSTATE=" & SHIPTOSTATE &_
  2129. "&SHIPTOZIP=" & SHIPTOZIP &_
  2130. "&SHIPTOCOUNTRYCODE=" & SHIPTOCOUNTRYCODE &_
  2131. "&SHIPTOPHONENUM=" & SHIPTOPHONENUM
  2132.  
  2133. 'Disabled tracing possible CC fraud (exposed in email)
  2134. 'Call sendemail("","CHECKOUT TRANSACTION HASH CALL "&Session("OrderID"),nvpstr)
  2135.  
  2136.  
  2137. Dim post_values
  2138. Set post_values = CreateObject("Scripting.Dictionary")
  2139. post_values.CompareMode = vbTextCompare
  2140.  
  2141. 'the API Login ID and Transaction Key must be replaced with valid values
  2142. post_values.Add "x_login", LOGINAPI
  2143. post_values.Add "x_tran_key", TRANSACTIONKEY
  2144.  
  2145. post_values.Add "x_delim_data", "TRUE"
  2146. post_values.Add "x_delim_char", "|"
  2147. post_values.Add "x_relay_response", "FALSE"
  2148.  
  2149. 'Card Info
  2150. post_values.Add "x_type", "AUTH_ONLY"
  2151. post_values.Add "x_method", "CC"
  2152. post_values.Add "x_card_num", ACCT
  2153. post_values.Add "x_exp_date", EXPDATE
  2154. post_values.Add "x_card_code", CVV2
  2155.  
  2156. post_values.Add "x_amount", FormatNumber(AMT)
  2157. post_values.Add "x_invoice_num", Session("OrderID")
  2158. post_values.Add "x_description", "AND Transaction"
  2159.  
  2160. 'Customer Info
  2161. post_values.Add "x_first_name", FIRSTNAME
  2162. post_values.Add "x_last_name", LASTNAME
  2163. post_values.Add "x_address", STREET
  2164. post_values.Add "x_state", STATE
  2165. post_values.Add "x_city", CITY
  2166. post_values.Add "x_zip", ZIP
  2167. post_values.Add "x_phone", PHONENUM
  2168. post_values.Add "x_country", COUNTRYCODE
  2169. post_values.Add "x_email", EMAIL
  2170. post_values.Add "x_customer_ip", Request.ServerVariables("REMOTE_ADDR")
  2171. post_values.Add "x_cust_id", Session("MM_Username")
  2172.  
  2173. 'Shipping Info
  2174. dim arrShipName : arrShipName = split(SHIPTONAME," ")
  2175.  
  2176. if isarray(arrShipName) then
  2177. if(ubound(arrShipName)=1) then
  2178. post_values.Add "x_ship_to_first_name", arrShipName(0)
  2179. post_values.Add "x_ship_to_last_name", arrShipName(1)
  2180. else
  2181. post_values.Add "x_ship_to_first_name", arrShipName(0)
  2182. post_values.Add "x_ship_to_last_name", ""
  2183.  
  2184. end if
  2185.  
  2186. else
  2187.  
  2188. post_values.Add "x_ship_to_first_name", "Empty"
  2189. post_values.Add "x_ship_to_last_name", SHIPTONAME
  2190.  
  2191. end if
  2192.  
  2193. post_values.Add "x_ship_to_address", SHIPTOSTREET
  2194. post_values.Add "x_ship_to_city", SHIPTOCITY
  2195. post_values.Add "x_ship_to_state", SHIPTOSTATE
  2196. post_values.Add "x_ship_to_zip", SHIPTOZIP
  2197. post_values.Add "x_ship_to_country", SHIPTOCOUNTRYCODE
  2198.  
  2199. 'Post Authorize.net
  2200. dim post_response
  2201. post_response = PostHTTP(AUTHORIZEURL,ConvertToPostString(post_values))
  2202.  
  2203. Dim response_array
  2204. response_array = split(post_response, post_values("x_delim_char"), -1)
  2205. 'Get Response
  2206.  
  2207.  
  2208. 'Jing modify 10-02-2012; change email address to camojing
  2209. Call sendemail("camojing@gmail.com","Authorize Response ",post_response)
  2210. Call sendemail("camojing@gmail.com","CHECKOUT TRANSACTION "&Session("OrderID"),TransactStatus)
  2211. 'end of Jing modify 10-02-2012
  2212.  
  2213.  
  2214.  
  2215. if SHIPTONAME = "ARMYNAVYDEALS.COM" Then
  2216. ACK = "1"
  2217. Else
  2218. ACK = response_array(0)
  2219. End if
  2220.  
  2221. If ACK="1" or ACK="4" Then 'SuccessWithWarning still charges CC check 'If ACK="SUCCESS" OR ACK="SUCCESSWITHWARNING" Then
  2222. 'if True then
  2223. call OrderCompliteEmail
  2224. call DoOnSuccess(response_array)
  2225. 'call DoOnSuccessManual()
  2226. Response.Redirect(request.ServerVariables("SCRIPT_NAME") & "?page=thankyou")
  2227. Else
  2228. call TransactionError(response_array(3))
  2229. End If
  2230. '-----------------------------------------------------------------------------
  2231. '-----------------------------------------------------------------------------
  2232. '//////////////////////////////////////////////////////
  2233. set post_values = nothing
  2234. End if
  2235. End if
  2236. call ReadPPorders()
  2237. call PageCharge()
  2238. ElseIf RequestQueryString("page") = "thankyou" Then
  2239.  
  2240. call ReadPPorders()
  2241. call PageThankYou()
  2242.  
  2243. '///// Clear sessions all good
  2244. Session("DogTag") = ""
  2245. Session("Coupon") = ""
  2246. Session("Freight") = ""
  2247. Session("OrderID") = ""
  2248. ' Session.Abandon
  2249.  
  2250.  
  2251. End if
  2252. %>
  2253. </td>
  2254. </tr>
  2255. </table>
  2256. <%
  2257.  
  2258. response.Write Session("OrderID")
  2259.  
  2260. %>
  2261. <!--#include file="incld/fter.asp" -->
  2262. checkout_payments.txt
  2263. Open with Google Docs
  2264. Displaying checkout_payments.txt.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!