Afstemning ASP
Jeg mangler en venlig sjæl der er god til ASP.Nedenfor poster jeg to stykker asp script. Det første er mit nuværende afstemningsscript. ( se. evt: http://www.trailersiden.dk/default.asp?page=taltilhende )
Men nu er jeg ved at lave en database til alle mine film. Hvilke kolonner der er i det nye, kan ses i den sidste kode. Det nuværende afstemningsscript dur ikke sammen med den nye database og ASP script. Problemet er at der kommer mere end 360 ID'er i den nye database, og det skifter hele tiden afhængigt af hvilket id der bliver kaldt. Der er jo kun én asp side med fast struktur til den nye database. (Lige nu bruger jeg alm. html sider hvor de nuværende afstemningsscript er inkluderet).
Her kommer mit nuværende afstemningsscript som er i samtlige 360 html dokumenter.Med egen database.
<table border="0" cellspacing="0" cellpadding="0" width="70%">
<tr>
<td width="80%" valign="top">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db1.mdb")
Conn.Open ConnStr
Set rs = Server.CreateObject("ADODB.RecordSet")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
stempaa = Request.Form("stempaa")
karakter = Request.Form("karakter")
strSQL = "UPDATE stemmeTbl SET stemmer = stemmer + 1, totalStjerner = totalStjerner + " & karakter & " WHERE ID = " & stempaa
Conn.Execute (strSQL)
end if
%>
<%
'Her skriver du i SQL ID=xx på det nummer som du vil havde vist + stemme på
strSQL = "SELECT stemmer, totalStjerner FROM stemmeTbl WHERE ID = 246"
set rs = conn.Execute (strSQL)
if rs.EOF then
billede = "s0"
else
stemmer = 1*rs("stemmer")
totalStjerner = 1*rs("totalStjerner")
if stemmer = 0 then
billede = "s0"
else
snit = Round(totalStjerner / stemmer,3) * 2
snit = round(snit) / 2
snit = replace(snit, ".", "k")
snit = replace(snit, ",", "k")
billede = "s" & snit
end if
end if
Response.Write "<img src=""" & billede & ".gif"">"
%>
<form action="abeautifulmind.asp" method="post">
<input type="hidden" name="stempaa" value="246">
<input type="radio" name="karakter" value="1">1
<input type="radio" name="karakter" value="2">2
<input type="radio" name="karakter" value="3">3
<input type="radio" name="karakter" value="4">4
<input type="radio" name="karakter" value="5">5
<input type="submit" name="Stem" value="Stem">
</form>
<%
Conn.Close
%>
<a href="trailersa.html"><b>Tilbage</b></a></td>
</tr>
</table>
Her kommer den nye asp struktur med tilhørende database:
<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("trailer.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
strSQL = "SELECT * FROM sider WHERE id LIKE '" & Request.QueryString("id") & "'"
Set rs = objConn.Execute(strSQL)
If Not rs.EOF Then
titel = rs("titel")
pic = rs("pic")
tlink = rs("tlink")
omtale = rs("omtale")
premiere = rs("premiere")
skuespil = rs("skuespil")
instruk = rs("instruk")
studio = rs("studio")
genre = rs("genre")
tid = rs("tid")
tilbage = rs("tilbage")
tilbaget = rs("tilbaget")
hplink = rs("hplink")
hptekst = rs("hptekst")
Else
Response.Write "<b>Der er noget galt med id'et</b><br /><br />"
End If
%>
<html>
<head>
<title><%=titel%></title>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<body bgcolor="#efefef" text="#000000" leftmargin="5" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="overflow:auto">
<span id="font">Trailers » Sektion A » <%=titel%></span>
<br> <br>
<center>
<table border="0" cellspacing="0" cellpadding="0" width="70%">
<tr>
<td width="80%" valign="top">
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="menuc" width="140"><b>Premiere:</b></td>
<td class="menuc"><%=premiere%></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="menuc" width="140"><b>Skuespillere:</b></td>
<td class="menuc"><%=skuespil%></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="menuc" width="140"><b>Instruktør:</b></td>
<td class="menuc"><%=instruk%></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="menuc" width="140"><b>Studio:</b></td>
<td class="menuc"><%=studio%></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="menuc" width="140"><b>Genre:</b></td>
<td class="menuc"><%=genre%></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="menuc" width="140"><b>Spilletid:</b></td>
<td class="menuc"><%=tid%></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="menuc" width="140"><b>Officiel HP:</b></td>
<td class="menuc"><a href="<%=hplink%>" target="_new"><%=hptekst%></a></td>
</tr>
</table>
<br>
<Table border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><a href="<%=tlink%>"><b>»</b> <u>Afspil Trailer [Quicktime]</U></a></td>
</tr>
</table>
</td>
<td align="right"><img src="../pics/<%=pic%>" width="200" height="300" border="0"></a></td>
</tr>
<tr>
<td colspan="2"><span id="font2"><br><hr color="#970000" size="2"><%=omtale%>
</td>
</tr>
</table>
<br>
<a href="<%=tilbage%>"><b><%=tilbaget%></b></a></td>
</body>
</html>
Er det til at forstå?
