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"
%\>