<% if session("32098hsdniushd") <> "sdbh1298usd" then response.redirect "oowl-form.asp" end if %> Website
 
Home| The script so far| Submit your script| Read and Vote| Suggestion box| discussion Forum
 
  Logged in as <%=session("32098hscreenname")%>       log out
  
 

<% OpenAll("root") sqlCheck = "SELECT * FROM info where pagename = 'D'" Set oRS = Conn.Execute (sqlCheck, , 1) 'response.write oRS("description") if isnull(oRS("data")) then paragraph = "" else descrip = oRS("Description") paragraph = Replace(Trim(oRS("data")), chr(13), "") paragraph = Replace(paragraph, chr(10), "") paragraph = Replace(paragraph, "'", "'") end if oRS.Close Set oRS = Nothing response.write clean(paragraph) function clean(datatin) datatin = datatin & "###" 'for null values datatin =replace(datatin,"&","and") datatin =replace(datatin,"’","'") datatin =replace(datatin,"“","'") datatin =replace(datatin,"”","'") datatin =replace(datatin,"","") datatin =replace(datatin,"","") datatin =replace(datatin,"–","-") datatin =replace(datatin,"'","'") datatin =replace(datatin,"

","

") datatin =replace(datatin,"

","") datatin =replace(datatin,"

","

") datatin =replace(datatin,"

","") datatin =replace(datatin,"###","") for i = 1 to 20 datatin =replace(datatin,"size="&i&"","size='"&i&"'") next clean = datatin end function %>

<% sqlCheck = "SELECT * FROM articles where Winner = '-' order by ID DESC" Set oRS = Conn.Execute (sqlCheck, , 1) if oRS.EOF Then else oRS.MoveFirst latestID = oRS("ID") HTML = HTML &"" Do While Not oRS.EOF 'HTML = HTML & "" & oRS("Title") & "
" & oRS("Preview") & "
Read More
" sqlCheck = "SELECT * from users where ID = "&oRS("userID")&"" Set oRS2 = Conn.Execute (sqlCheck, , 1) username = oRS2("username") oRS2.Close Set oRS2 = Nothing found = false if not isnull(oRS("UserVotes")) then DataArray = Split(oRS("UserVotes"), "|", -1, 1) for i = 0 to ubound(DataArray) if Cstr(DataArray(i)) = Cstr(session("32098huserID")) then found = true end if next end if HTML = HTML &"" HTML = HTML &"" if found then HTML = HTML &"" else HTML = HTML &"" end if HTML = HTML &"" HTML = HTML &"" oRS.MoveNext Loop HTML = HTML &"
"&username&"You have voted on this script already"&left(oRS("TextData"),100)&"
read the script
" end if response.write(HTML) oRS.Close Set oRS = Nothing response.write "" %>

Votes so far
<% HTML = "" sqlCheck = "SELECT * FROM articles where Winner = '-'" Set oRS = Conn.Execute (sqlCheck, , 1) if oRS.EOF Then else oRS.MoveFirst HTML = HTML &"" oRS.MoveNext Loop HTML = HTML &"
"&username&"
" end if oRS.Close Set oRS = Nothing CloseAll() response.write HTML %>