Jag håller på med ett rakning system och det funkar bra. Men jag har problem med ett admin system där man ska kunna uppdaterad databasen ifrån.
Sidan som slänger fram lagen ser ut såhär.
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
SQL = "SELECT * FROM lag Order by poeng Desc"
Set RS = Connection.Execute(SQL)
%> <%
i = 0
Do Until RS.EOF or i = 10
%>
<%=Rs("lag1")%>
<%=Rs("land")%>
<%=Rs("poeng")%>
<% i = i +1
Rs.MoveNext
Loop %>
Såhär långt funkar allt bra och den slänger fram lagen efter poäng ordning. Men när ja ska uppdatera den så har jag gjort såhär.
En Add sida:
<form action="Add_lag.asp" method="POST">
Lag:
<input type="TEXT" name="Lag1" size="40">
<br>
<br>
Land:
<input type="TEXT" name="Land" size="20">
<br>
<br>
Poäng
<input type="TEXT" name="poeng" size="20">
<br>
<br>
<input type="SUBMIT" value="Lägg till" name="SUBMIT"
Sen Add_lag sida:
""Det är denna som krånglar""
<%
'vi hämtar informationen som man har fyllt i
Lag1 = Request.form("lag1")
land = Request.form("land")
poeng = Request.form("poeng")
'Kollar så att man inte har glömt någon ruta
If Lag1 = "" Then
Response.write("Du måste fylla i ett lag")
ElseIf land = "" Then
Response.write("Du måste fylla i ett land")
Else
'öppnar databasen
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
SQL = "Select * from lag"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql, conn, 3, 3
'Lägger till informationen
Rs.Addnew
Rs("lag1") = lag1
Rs("land") = land
Rs("poeng") = poeng
Rs.Update
Rs.close
Conn.close
Response.write("Du har nu lagt till ett lag med namnet:\<br\>")
Response.write( lag1 & "\<br\>")
Response.write("Tillbaka till \<a href='index.asp'\>Listan\</a\>")
End if
%>
Jag får error messet
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/news/Add_Pers_Do.asp, line 30
Line 30 ser ut såhär.
Rs.Open sql, conn, 3, 3
------------------
da main man :-)