<%

		Set myConn = Server.CreateObject("ADODB.Connection")
		myConn.Open "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"

	strSQL = "SELECT subject, name FROM Entries WHERE (ID = " & Request("id") & ")"
	Set rs = myConn.Execute(strSQL)
	strPrint = "Indlæg: """ & rs("subject") & """<br>Skrevet af: " & rs("name")
	intID = Request("id")
	
		myConn.Close
		Set myConn = Nothing

%>

<html>

<head>
<title>Nominér indlæg</title>
</head>

<body text="#FFFFFF" bgcolor="#000000">
<form method="POST" action="spoawardsskriv.asp?id=<%=intID%>">
	<font face="Arial" size="1" color="#99CCFF"><%=strPrint%></font><br>
  <font face="Arial">Kategori:
  <select size="1" name="kat" style="color: #FFFFFF; font-weight: bold; border: 1px dotted #99CCFF; background-color: #000000">
  <option>Bedste indlæg</option>
  <option>Mest meningsløse indlæg</option>
  <option>Andet (skriv i kommentaren)</option>
  </select></font></p>
  <p><font face="Arial">Kommentar:
  <textarea rows="3" name="kommentar" cols="30" style="font-family: Arial; color: #FFFFFF; font-weight: bold; border: 1px dotted #99CCFF; background-color: #000000"></textarea></font></p>
  <p><font face="Arial">
  <input type="submit" value="Nominér!" name="B1" style="font-family: Arial; color: #FFFFFF; font-weight: bold; border: 1px dotted #99CCFF; background-color: #000000"></font></p>
</form>

</body>

</html>