" END IF IF fail = "" THEN Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "purchasing@guardian-computer.com" Mailer.FromAddress = "cindy1@mycomputersupport.com" Mailer.RemoteHost = "server.trivalley.com" Mailer.Encoding = 2 Mailer.AddRecipient Request("contact_name"), Request("contact_email") Mailer.Subject = "Guardian Purchasing Form Submission" strBody = "" strBody = strBody & "Dear " & Request("contact_name") & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Thank you for your Request for Quotation from mycomputersupport.com." strBody = strBody & " We will return a written quote asap. It can take up to a week to 10 days" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Sincerely, " & Chr(13) & Chr(10) strBody = strBody & "Cindy from mycomputersupport.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10) Mailer.BodyText = strBody ' Make sure that the mail was sent IF Mailer.SendMail THEN Mail1Sent = true ELSE Response.Write "It didn't work because " & Mailer.Response END IF Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request("contact_name") Mailer.FromAddress = Request("contact_email") Mailer.RemoteHost = "server.trivalley.com" Mailer.Encoding = 2 Mailer.AddRecipient "Cindy", "cindy1@mycomputersupport.com" ' Mailer.AddBCC "corelli", "dcosta@mycomputersupport.com" Mailer.Subject = "MCS RFQ Svc Agreement " strBody = "" strBody = strBody & "Contact form submitted " & NOW & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Contact Name: " & Request("contact_name") & Chr(13) & Chr(10) strBody = strBody & "Contact Company: " & Request("contact_company") & Chr(13) & Chr(10) strBody = strBody & "Contact City: " & Request("contact_city") & Chr(13) & Chr(10) strBody = strBody & "Contact State: " & Request("contact_state") & Chr(13) & Chr(10) strBody = strBody & "Contact Zip: " & Request("contact_zip") & Chr(13) & Chr(10) strBody = strBody & "Contact Phone: " & Request("contact_phone") & Chr(13) & Chr(10) strBody = strBody & "Contact Exten: " & Request("contact_extension") & Chr(13) & Chr(10) strBody = strBody & "Contact Email: " & Request("contact_email") & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Description1: " & Request("Description1") & Chr(13) & Chr(10) strBody = strBody & "Discovery Method: " & Request("discovery_method") & Chr(13) & Chr(10) strBody = strBody & "Select Type: " & Request("select_type") & Chr(13) & Chr(10) strBody = strBody & "qty1: " & Request("qty1") & Chr(13) & Chr(10) strBody = strBody & "make1: " & Request("make1") & Chr(13) & Chr(10) strBody = strBody & "model1: " & Request("model1") & Chr(13) & Chr(10) strBody = strBody & "descrip1: " & Request("descrip1") & Chr(13) & Chr(10) strBody = strBody & "qty2: " & Request("qty2") & Chr(13) & Chr(10) strBody = strBody & "make2: " & Request("make2") & Chr(13) & Chr(10) strBody = strBody & "model2: " & Request("model2") & Chr(13) & Chr(10) strBody = strBody & "descrip2: " & Request("descrip2") & Chr(13) & Chr(10) strBody = strBody & "qty3 " & Request("qty3") & Chr(13) & Chr(10) strBody = strBody & "make3: " & Request("make3") & Chr(13) & Chr(10) strBody = strBody & "model3: " & Request("model3") & Chr(13) & Chr(10) strBody = strBody & "descrip3: " & Request("descrip3") & Chr(13) & Chr(10) strBody = strBody & "qty4: " & Request("qty4") & Chr(13) & Chr(10) strBody = strBody & "make4: " & Request("make4") & Chr(13) & Chr(10) strBody = strBody & "model4: " & Request("model4") & Chr(13) & Chr(10) strBody = strBody & "descrip4: " & Request("descrip4") & Chr(13) & Chr(10) strBody = strBody & "response: " & Request("response_time") & Chr(13) & Chr(10) Mailer.BodyText = strBody ' Make sure that the mail was sent IF Mailer.SendMail THEN Response.Redirect "thankyouq.html" ELSE Response.Write "It didn't work because " & Mailer.Response END IF END IF End If %>

PURCHASING   Here is a list of products which we are looking to buy for usage in our labs or as spare parts. If you wish to submit sales offers to us, please go to this page and fill out the form. Cond: CW=Complete Working   UC=Unknown Complete   Manufacturer & Model# Comments Qty Cond Price Acer 9000 Computer Rality opeating system 01 CW Best ADDS M3430 Computer runs MOE operating systeme   CW Best ADDS M3455 Computer runs MOE operating systeme   CW Best ADDS M3333 Computer aka ADDS 3000   CW Best ADDS M6000 Computer     CW Best ADDS M7000 Computer aka NCR 32/700   CW Best ADP Computers (all) Car dealership Systems   CW Best ALPS P2100 Printer   TBA CW $100 Compaq Proliant P5/9   01 CW Best Cipher F880-2 Tape Drive     CW $100 Esprit Opus 2 Terminals     CW $25 GA A800 Computer aka. General Automation A800 Computer 01 CW $1000 GA A200XL Computer     CW Best GA 3000 Computer     CW $200 GA 5820 Computer pending shipping costs   CW $300 IBM RS6000 59H Computer     CW Best IBM RS6000 53H Computer     CW Best IBM RS6000 260 Computer     CW Best IBM RS6000 340 Computer     CW Best IBM RS6000 350 Computer     CW Best IBM RS6000 360 Computer     CW Best IBM RS6000 520 Computer     CW Best IBM RS6000 530 Computer     CW Best IBM RS6000 560F Computer     CW Best IBM RS6000 F30 Computer     CW Best M4 Data 9914 Tape Drive     CW $300 Microdata 6600 Computer aka Microdata Spirit   CW TBA Microdata 6000 Computer aka Microdata Spirit   CW TBA Microdata 9000 Computer aka Microdata Sequal TBD CW $500 Monolith 3000 Computer     CW Best Motorola 921 Computer   01 UW $300 Motorola 922 Computer     CW $400 Motorola 8640 Computer     CW 300 Motorola 8000 Computer     CW Best NCR 3445 Computer w/unix os tape   CW Best NCR 3476 Computer     CW Best Okidata 395 Printers     CW Best Printroniz P300 Printer depends on shipping costs   CW $100 Printronix P600 Printer depends on shipping costs   CW $250 Printronix P6080L Printer     CW Best Sun Ultra II 1200 Server     CW Best Sun Ultra II 300 Workstation     CW Best Sun S10 Sparcstation 10     CW Best Sun 1000E Sparserver     CW Best Sun 4/75 Sparcstation     CW Best Tally T6050       Best Tally T6065       Best Tally T6180       Best           For more information on Guardian Computer's services, click here or call 1-800-752-8733 ext 116 Copyright (c) 1998 Guardian Computer, Inc. All rights reserved. Do not duplicate or redistribute in any form.