timediaMedlem sedan maj 2001420 inlägg Varför blir det Too few parameters. Expected 1. :q
<!-- #include file="adovbs.inc" -->
<body bgcolor="#FFCC66">
<center>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mindb.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Present WHERE Kommuner = " & Request.QueryString("kommun") & " "
'" & hund & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<form method="POST" action="redakt2.asp">
<input type="hidden" name="AD" value="<% =Request.QueryString("kommun") %>">
<b>BRÖDTEXT</b><br>
<textarea rows="10" cols="60" name="brodtext"> <% =RecSet("Presentation") %></textarea><br>
<input type="submit" value="Uppdatera">
</form>
<% RecSet.Close
Connect.Close %>
@ndersMedlem sedan juni 200032 969 inlägg Felmeddelandet brukar betyda att man skrivit fel på ett tabell- eller fältnamn.
Kan det vara så att fältet Kommuner är av texttyp? I så fall måste du sätta apostrofer runt värdet, annars tolkas det som ett fältnamn, och då kan du få det felmeddelandet.
Mvh,
timediaMedlem sedan maj 2001420 inlägg Tabellnamn och kolumnnamn stämmer. Nu blir det Syntax error (missing operator) in query expression 'Kommuner ='.
Jag skapar länken till sida såhär: <a href="redakt1.asp?kommun=<% =RecSet("Kommun") %>">Presentation</a> och sidan ser nu ut såhär:
<!-- #include file="adovbs.inc" -->
<body bgcolor="#FFCC66">
<center>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mindb.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Present WHERE Kommuner = "' & Request.QueryString("kommun") & '" "
'" & hund & "'"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<form method="POST" action="redakt2.asp">
<input type="hidden" name="AD" value="<% =Request.QueryString("kommun") %>">
<b>BRÖDTEXT</b><br>
<textarea rows="10" cols="60" name="brodtext"> <% =RecSet("Presentation") %></textarea><br>
<input type="submit" value="Uppdatera">
</form>
<% RecSet.Close
Connect.Close %>
@ndersMedlem sedan juni 200032 969 inlägg Du har satt apostroferna på fel ställe.
Visa = "SELECT * FROM Present WHERE Kommuner = '" & Request.QueryString("kommun") & "' "
Mvh,
timediaMedlem sedan maj 2001420 inlägg Nu funkar det. Tack Anders! :r