05. juli 2003 - 18:32Der er
13 kommentarer og 1 løsning
Bedømmelses Script !
Nogen der ved hvor man kan finde et bedømmelses script på internettet... Det skal være sådan et script hvor man kan bedømme en ting fra 0 til 5 stjerner...
Det kræver tabel som hedder stemmeTbl med disse kolonner:
id : autonummer givetTil : tal ID på den vare som stemmes på stemmer : tal antal stemmer totalStjerner total antal stjerner.
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then stempaa = Request.Form("stempaa") karakter = Request.Form("karakter") strSQL = "SELECT id FROM stemmeTbl WHERE givetTil = " & stempaa set rs = Conn.Execute (strSQL) 'Tjek om der er stem på filmen før eller det er føtste gang. if rs.EOF then strSQL = "INSERT INTO stemmeTbl (stemmer, totalStjerner, givetTil) VALUES (1, " & karakter & ", " & stempaa & ")" else strSQL = "UPDATE stemmeTbl SET stemmer = stemmer + 1, totalStjerner = totalStjerner + " & karakter & " WHERE givetTil = " & stempaa end if Conn.Execute (strSQL) end if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.