<% Option Explicit %>
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Copyright 2002 Drew Gauderman All Rights Reserved.
'**
'** This program is free software; you can redistribute it and/or modify
'** it under the terms of the GNU General Public License as published by
'** the Free Software Foundation; either version 2 of the License, or
'** any later version.
'**
'** All copyright notices must remain intacked in the scripts and the
'** outputted HTML.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to www.maddogs-asp.com must remain in place and the powered by
'** link or image must remain visiable when the pages are viewed.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'** GNU General Public License for more details.
'**
'** You should have received a copy of the GNU General Public License
'** along with this program; if not, write to the Free Software
'** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
'**
'** No official support is available for this program but you may post support questions at: -
'** http://www.maddogs-asp.com/
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** webmaster@maddogs-asp.com
'**
'****************************************************************************************
Dim rsLinks
Dim strLinkID
Dim strStars
Dim strLinkName
Dim objCDOMail
strLinkID = Request.QueryString("id")
If strLinkID = "" Then Response.Redirect "default.asp"
Set rsLinks = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblLinks.* FROM tblLinks WHERE tblLinks.ID=" & strLinkID & ";"
rsLinks.CursorType = 2
rsLinks.LockType = 3
rsLinks.Open strSQL, strLinksCon
If NOT rsLinks.EOF Then
rsLinks.Fields("Status") = rsLinks("Status") + 1
rsLinks.Update
rsLinks.Requery
strLinkName = rsLinks("Link")
If strEmailNotice = "True" Then
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from
objCDOMail.From = strWebsiteName & " <" & strAdminEmail & ">"
'Who the e-mail is sent to
objCDOMail.To = strAdminEmail & " <" & strAdminEmail & ">"
'The subject of the e-mail
objCDOMail.Subject = "Prijavljen je neispravan link!"
'The main body of the e-amil
objCDOMail.Body = "Pozdrav,
netko je prijavio link " & strLinkName &" neispravnim u Vašoj bazi linkova.
" & strSiteURL
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server mail object
Set objCDOMail = Nothing
End If
Else
Response.Write ""
End If
%>
<% = strWebSiteName %> - Prijavi neispravan link
Hvala što ste prijavili da je <% = rsLinks("Link") %> neispravan link.