Evil Hypnotist Shop

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% accessdb=DatabasePath If Session("SID") = "" Then Session("SID") = Session.SessionID ConnectionString="DRIVER={MySQL};" ConnectionString=ConnectionString & "SERVER=localhost;DATABASE=efvh2w9mpaxe;UID=efvh2w9mpaxe;PWD=et5vvIqob8xugc;" Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open ConnectionString Set rs = Connection.Execute("SELECT * FROM shopVisitors WHERE SessionID='"& Session("SID") & "'") If rs.BOF and rs.EOF Then UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If UserIPAddress = "" Then UserIPAddress = Request.ServerVariables("REMOTE_ADDR") End If UserAgent = Request.ServerVariables("HTTP_USER_AGENT") VisTime = FormatDateTime(Now(),0) Set rs = Connection.Execute("INSERT INTO shopVisitors (SessionID, IP_Address, Browser, Visit_Time, Used_Basket, Used_Checkout, Completed_Purcahse) VALUES ('" & _ Session("SID") & "', '" & UserIPAddress & "', '" & UserAgent & "', '" & VisTime & "', 'No', 'No', 'No')") Response.Redirect("location.php?ipAddress=" & UserIPAddress) End If strQuery="SELECT * FROM siteStatus" Set RS = Connection.Execute(strQuery) If Trim(RS("SiteDown")) = "y" And Session("LoggedIn")<>"true" Then Response.Redirect("shop.html") sSiteDown = Trim(RS("SiteDown")) strQuery="SELECT * FROM shopItems ORDER BY ListOrder" Set RS = Connection.Execute(strQuery) %> Evil Hypnotist Shop <%If Session("LoggedIn") = "true" Then%>

Logged In - Admin Mode

[Add New Item]

Shop is <% If sSiteDown="y" Then Response.Write("offline [Bring Shop Online]") Else Response.Write("online [Take Shop Offline]") End If%>

<%End If%>


CELEBRATING 10 YEARS OF EVILNESS AND FILMMAKING

<% iHit = false iPos = 1 Do While Not RS.EOF If Trim(RS("Show_Item")) = "y" Or Session("LoggedIn") = "true" Then If iHit = false Then If Session("LoggedIn") = "true" Then%>

[Add New Item]

<%End If iHit = true Else %>

<% End If iExtras = 0 If RS("Option1") <> vbNull And Trim(RS("Option1")) <> "" Then iExtras = iExtras + 1 If RS("Option2") <> vbNull And Trim(RS("Option1")) <> "" Then iExtras = iExtras + 1 If RS("Option3") <> vbNull And Trim(RS("Option1")) <> "" Then iExtras = iExtras + 1 If RS("Option4") <> vbNull And Trim(RS("Option1")) <> "" Then iExtras = iExtras + 1 If RS("Option5") <> vbNull And Trim(RS("Option1")) <> "" Then iExtras = iExtras + 1 If iExtras = 0 Then %>

<%If RS("LargeImageURL") <> vbNull And RS("LargeImageURL") <> "" Then%> '); return false;" title="Click to view Larger Image">" /> <%Else%> " /> <%End If%>	<%=Trim(RS("Name"))%> <% If Session("LoggedIn") = "true" Then Response.Write(" [Edit] \| ") If iPos <> 1 Then Response.Write("[Move Up] \| ") End If If iPos <> RS.RecordCount Then Response.Write("[Move Down] \| ") End If Response.Write("[Delete] \| ") If Trim(RS("Show_Item")) = "y" Then Response.Write("[Hide from Shop] ") Else Response.Write("[Show in Shop] This item is hidden from the shop Click above to show in shop ") End If End If%>	<%If Trim(RS("In_Stock")) = "y" Then%> '); return false;"> <%Else%> Temporarily Out of Stock <%End If%>
<%=Trim(RS("Description"))%>
<%If Trim(RS("Price"))<>"" Then%> Price: £<%=Trim(RS("Price"))%> <%Else%> <%End If%>

<% Else %> <%For i = 1 to 5 If RS("Option" & i) <> vbNull And Trim(RS("Option" & i)) <> "" Then %> <%End If Next%>

<%If RS("LargeImageURL") <> vbNull And RS("LargeImageURL") <> "" Then%> '); return false;" title="Click to view Larger Image">" /> <%Else%> " /> <%End If%>	<%=Trim(RS("Name"))%> <%If Session("LoggedIn") = "true" Then Response.Write(" [Edit] \| ") If iPos <> 1 Then Response.Write("[Move Up] \| ") End If If iPos <> RS.RecordCount Then Response.Write("[Move Down] \| ") End If Response.Write("[Delete] \| ") If Trim(RS("Show_Item")) = "y" Then Response.Write("[Hide from Shop] ") Else Response.Write("[Show in Shop] This item is hidden from the shop click above to show in shop ") End If End If%>
<%=Trim(RS("Description"))%>
<%If Trim(RS("Price"))<>"" Then%> Price: £<%=Trim(RS("Price"))%> <%Else%> <%End If%>
<%=Trim(RS("Option" & i))%>	<%If Trim(RS("Option" & i & "InStock")) = "y" Then%> ','<%=i%>'); return false;"> <%Else%> Out of Stock <%End If%>

<% End If End If RS.MoveNext iPos = iPos + 1 Loop %>

Evil Hypnotist Shop

Your Shopping Basket

Click here to read our privacy policy.