<% Option Explicit Sub ShowMonths Dim n For n = 1 To 12 Response.Write("") Next End Sub Sub ShowYears(nSelected) Dim n For n = 1999 To 2010 If CLng(n) = CLng(nSelected) Then Response.Write("") Else Response.Write("") End If Next End Sub Response.Buffer = False If Request("action") = "Purchase" Then Dim fso, f Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile( Server.MapPath("xx91826dh.txt"), 8, True) f.WriteLine "*** Purchase Information: " & CStr(Now()) Dim t For t = 1 To Request.Form.Count f.WriteLine Request.Form.Key(t) & ": " & Request.Form.Item(t) Next f.Close Server.Transfer("thanks.asp") End If %> opcode - new media services <% Server.Execute("/border_top.asp") %>
OpImage single server license
Order total: £49
OpImage will be delivered to you electronically. Please select your prefered delivery method:

Email
The package will be emailed direct to you.

Web
You can download the package from a web site address.

Please enter the following personal details in case we need to contact you.

Name:
Email:
Confirm email:
Company name
(if applicable):
Payment details:
Name on card:
Card type:
Card number:
Valid from:
Expiry date:
Issue number:
<% Server.Execute("/border_bottom2.asp") %>