<% @Language="VBScript" %>
<%
Const VOTE = "Voting abgeben"
Dim msg
Dim objAttendant
Set objAttendant = New Attendant
objAttendant.AttendantId = Int(Request("aid")) - ADD_TO_ATTENDANT_ID
objAttendant.Load()
If objAttendant.Website = "" Then
Response.Redirect("http://www.web-reporter.at")
End If
Set rs = con.execute("select * from awardwinner where attendantId=" & Int(Request("aid")) - ADD_TO_ATTENDANT_ID)
If Not rs.EOF And Not rs.BOF Then
Response.Redirect("http://www.web-reporter.at")
End If
rs.Close()
msg = ""
If Request("submit") = VOTE Then
If Int(Request("voting")) > 0 And _
Int(Request("voting")) <= 10 Then
If Request.Cookies("wr_" & objAttendant.AttendantId).Count = 0 Then
Response.Cookies("wr_" & objAttendant.AttendantId)("voted") = "true"
Response.Cookies("wr_" & objAttendant.AttendantId).Domain = "web-reporter.at"
Response.Cookies("wr_" & objAttendant.AttendantId).Expires = Date() + 365
Response.Cookies("wr_" & objAttendant.AttendantId).Secure = False
objAttendant.Vote(Int(Request("voting")))
msg = "Vielen Dank für Ihr Voting!
" & Chr(13) & _
"Sie werden zur Startseite weitergeleitet." & Chr(13) & _
""
Else
msg = "Ihr Voting wurde bereits erfasst!
" & Chr(13) & _
"Sie werden zur Startseite weitergeleitet." & Chr(13) & _
""
End If
Else
msg = "!!! Ungültiges Voting !!!"
End If
End If
%>
Der Webreporter Award - Auszeichnung für die moderne, originelle und empfehlenswerte Website - powered by: www.pc24.at und www.ipool.biz | <% = keywords %>