Hittade felet, det e sent nu 
<select name="vinst">
<option value="<% =RecSet("vinst") %>"><% =RecSet("vinst") %></option>
<option value="<% = ev %>"><% =ev %></option>
</select>
Så ska det givetvis vara 
Trådstart#1
Hej
Jag har en spelsida och tänkte att när man skulle rätta spel så ska man välja mellan 0 och den ev vinsten.
Så jag har ett formular som ser ut så här:
<select name="vinst">
<option value="fel"><% =RecSet("vinst") %></option>
<option value="ratt"><% =ev %></option>
</select>
"RecSet Vinst" = 0 eftersom jag skickar in det så när jag bokar spelet, "ev" är ev vinst.
Problemet är alltså när jag ska skicka det till databasen, jag får inte rätt värde 
Jag får ett felmeddelande, är det kanske inte möjligt att göra så här? men det måste det ju vara.
För att vara tydlig så skickar jag med hela koden:
change.asp
-----------------------------
<!--#include file="adovbs.inc"-->
<HTML>
<head>
</head>
<BODY>
<table border="0" cellpadding="2" cellspacing="2">
<tr>
<td>
<p>
<%
ev = 0
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("spel.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM spel WHERE id = " & Trim(Request.QueryString("id")) & " "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
</p>
<p><strong>Ändra spel</strong></p>
\<%
ev = RecSet("odds") * RecSet("insats")
%>
<form method="POST" action="change2.asp">
<table border="0" cellpadding="2" cellspacing="2">
<tr>
<td><input type="hidden" name="AD" value="<% =Request.QueryString("id") %>"></td>
<td></td>
</tr>
<tr>
<td>Match:</td>
<td><input type="text" size="30" name="match" value="<% =RecSet("match") %>"></td>
</tr>
<td>Odds:</td>
<td><input type="text" size="30" name="odds" value="<% =RecSet("odds") %>"></td>
</tr><tr>
<td>Insats:</td>
<td><input type="text" size="30" name="insats" value="<% =RecSet("insats") %>"></td>
</tr><tr>
<td>Bolag:</td>
<td><input type="text" size="30" name="bolag" value="<% =RecSet("bolag") %>"></td>
</tr>
<tr>
<td>Vinst:</td>
<td>
<select name="vinst">
<option value="fel"><% =RecSet("vinst") %></option>
<option value="ratt"><% =ev %></option>
</select>
</td>
</tr>
<tr>
<td>Resultat:</td>
<td><input type="text" size="30" name="res" value="<% =RecSet("res") %>"></td>
</tr>
</table>
<INPUT TYPE="submit" name="btn1" value="Skicka till databasen">
</form>
<%
RecSet.Close
Connect.Close
%>
<p><a href="alla.asp">Redigera annan post!</a>
</td>
</tr>
</table>
</body>
</html>
*********************
change2.asp
------------------------
<!-- #include file = "adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("spel.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM spel WHERE ID = " & Request.Form("ad") & " "
RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic
RecSet("match") = Request.Form("match")
RecSet("odds") = Request.Form("odds")
RecSet("bolag") = Request.Form("bolag")
RecSet("vinst") = Request.Form("vinst")
RecSet("res") = Request.Form("res")
RecSet("insats") = Request.Form("insats")
RecSet.Update
RecSet.Close
Connect.Close
Response.Redirect "main.asp"
%\>