Antal klick i databas och automarkera options select

<a href=update.asp?id=<% =rs("id")%>><% =rs("url")%></a>

sedan på update.asp

set rs = connect.execute("select url from links where id = " & request.querystring("id"))
if not rs.eof then
   url = rs("url")
   connect.execute "update links set klick = klick + 1 where id = " & request.querystring("id"),,128
end if
rs.close
connect.close
if url <> "" then
   response.redirect url
end if
response.write "sidan finns ej"

vad är problemet med Nr2?

------------------
essentitia preter non sans multiplicandum

tack jag skall genast testa detta ;) Jo saken med Nr.2 är följande ;)

jag har en form där innehållet sparas i en databas, sedan så har jag en form till för att ändra inlägget i databasen där jag har alla fält ifyllda men jag vet inte riktigt hur jag ska få options selecten att vara inställd på den som man sparat i databasen.. jag har sparat det som vanlig text men kanske finns det något annat sätt ??!!

Form1.asp

<table background="bilder/tbg.gif" width="300" cellspacing="0" cellpadding="0"><td><img src="bilder/tleft.gif"><img src="bilder/icopladder.gif"><img src="bilder/space.gif"><img src="bilder/textskickapladder.gif"></td><td align="right"><img src="bilder/tright.gif"></td></table>
<table width="300" class="input" cellspacing="8" bgcolor="#F7F7F7"><tr><td align="right">

<form action="links_send.asp" method="post" name="add">

<b>Länknamn</b> : </td><td><input name="linkname" size="20" class="input">
</td></tr><tr><td align="right">
<b>Länk</b> : </td><td><input name="link" size="20" class="input" value="http://">
</td></tr><tr><td align="right">
<b>Namn</b> : </td><td><input name="namn" size="20" class="input">
</td></tr><tr><td align="right">
<b>Kategori</b> : </td><td><select name="kategori" class="input">
<option selected>-- Välj Kategori --</option>
<option name="kategori" value="Kodning/Script">Kodning/Script</option>
<option name="kategori" value="Personlig Sida">Personlig Sida</option>
<option name="kategori" value="Spel">Spel</option>
<option name="kategori" value="Webdesign">Webdesign</option>
<option name="kategori" value="Övrigt">Övrigt</option>
</select>
</td></tr><tr><td align="right" valign="top">
<b>Beskrivning</b> : </td><td><textarea name="beskrivning" class="input"></textarea>
</td></tr><tr><td colspan="2"><center>
<a href="javascript:document.add.submit()"><img SRC="bilder/skicka.gif" name="skicka" value="Skicka" class="input"></a>
<a href="javascript:document.add.reset()"><img SRC="bilder/radera.gif" name="radera" value="Radera" class="input"></a>
</td></tr></table>
<img src="bilder/copytext.gif">
</form>

Och form2.asp där alla fälten är ifyllda

<table><tr><td>
<form action="links_change.asp?ID=<% =Request.Querystring("id") %>" method="post" name="add">
<b>Länknamn</b> : </td><td><input name="linkname" size="20" class="input" value="<%=RecSet("linkname")%>">
</td></tr><tr><td align="right">
<b>Länk</b> : </td><td><input name="link" size="20" class="input" value="<%=RecSet("link")%>">
</td></tr><tr><td align="right">
<b>Namn</b> : </td><td><input name="namn" size="20" class="input" value="<%=RecSet("namn")%>">
</td></tr><tr><td align="right">
<b>Kategori</b> : </td><td><select name="kategori" class="input">
<option selected>-- <%=RecSet("kategori")%> --</option>
<option name="kategori" value="Kodning/Script">Kodning/Script</option>
<option name="kategori" value="Personlig Sida">Personlig Sida</option>
<option name="kategori" value="Spel">Spel</option>
<option name="kategori" value="Webdesign">Webdesign</option>
<option name="kategori" value="Övrigt">Övrigt</option>
</select>
</td></tr><tr><td align="right" valign="top">
<b>Beskrivning</b> : </td><td><textarea name="beskrivning" class="input"><%=RecSet("beskrivning")%></textarea>
</td></tr><tr><td colspan="2">
<a href="javascript:document.add.submit()"><img SRC="bilder/skicka.gif" name="skicka" value="Skicka" class="input"></a> 
<a href="javascript:document.add.reset()"><img SRC="bilder/radera.gif" name="radera" value="Radera" class="input"></a>
</td></tr></table>
</form>

------------------
*brölar ljudligt*

Jag kommer inte på något bra sätt utom att lägga ut if-satser före varje option och där jämföra med vad du har lagrat i databasen.

<select name="kategori" class="input">
<% kategori = recset("kategori") %>
<% if kategori = "" then
<option selected>
<%end if%>
<%if kategori = "Kodning/Script" then %>
<option name="kategori" value="Kodning/Script" selected>Kodning/Script</option>
<%else%>
<option name="kategori" value="Kodning/Script">Kodning/Script</option>
<%end if%>
<%
'och så vidar
%>
</select>

Det blir enklare kod om du även lagrar kategorierna i databasen.

------------------
essentitia preter non sans multiplicandum

hmm du menar alltså att värdena ska läsas från databasen... värt att testa! Hör av mig om det inte funkar som d var tänkt ;)

Föresten din uppdate kod funkade inte redigt hehe kan typ nada men antar att d fattas några rader du skulle inte kunna ge mig hela koden eh? ;)

------------------
*brölar ljudligt*

Det är enklare om du visar vad du har gjort och vilket fel du får än att jag gissar vad dina tabeller och kolumner heter.

------------------
essentitia preter non sans multiplicandum

hehe d va ganska smart det ;) Observera nu att jag e totalt nybörjare så min kod e nog inte direkt någon skönhet hehe!

Det här är nog all vesentlig kod
Links_Klicks.asp e motsvarigheten på din uppdatera.asp det e koden på den sidan som jag behöver klura ut..

<% 
database = Server.MapPath("links.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& database

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM links ORDER BY datum DESC"
RecSet.Open SQL, Connection, 3, 3

%>

<head>
</head>
<body>

<table background="bilder/tbg.gif" width="300" cellspacing="0" cellpadding="0"><td><img src="bilder/tleft.gif"><img src="bilder/icopladder.gif"><img src="bilder/space.gif"><img src="bilder/textsenastepladdret.gif"></td><td align="right"><img src="bilder/tright.gif"></td></table>
<table width="300" class="input" bgcolor="#F7F7F7" cellspacing="8">
<%
RecSet.MoveFirst
Do until RecSet.EOF
%>
<tr><td>
<hr>
<a href="links_klicks.asp?ID=<%=RecSet("ID")%>&URL=<%=RecSet("link")%>" target="newwindow"><%=RecSet("linkname")%></a><br>
<b>Kategori </b>: <%=RecSet("kategori")%><br>
<b>Insänd av</b> : <%=RecSet("namn")%><br>
<b>Beskrivning</b> : <%=RecSet("beskrivning")%>
</td></tr><tr><td>
- <a href="links_form.asp?ID=<%=RecSet("ID")%>" target="iframe">Ändra</a> - <a href="links_delete.asp?ID=<%=RecSet("ID")%>">Ta Bort</a> - 
<br>
</td></tr>

<%
RecSet.MoveNext
loop

RecSet.Close
connection.Close
%>
</table>

</body>

------------------
*brölar ljudligt*

Koden för att lägga ut länkarna ser helt ok ut. En sak är att du har en rs.movefirst som inte behövs. Om du vill ha bättre prestanda så kan du börja titta på andra metoder som getrows för att hämta data.

Det enda som saknas i min uppdateringskod är öppningen av databasen.

database = Server.MapPath("links.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& database

set rs = connection.execute("select link from links where id = " & request.querystring("id"))
if not rs.eof then
url = rs("link")
connect.execute "update links set klick = klick + 1 where id = " & request.querystring("id"),,128
end if
rs.close
connect.close
if url <> "" then
response.redirect url
end if
response.write "sidan finns ej"

Får du något fel med denna kod.

Kolumnnamnet klicks stämmer förmodligen inte.

------------------
essentitia preter non sans multiplicandum

tack det funkar fin fint nu! *bockar och bugar*

Och det andra funkar oxå fin fint fast som du sa d blev en hel del kod hehe, ska försöka fixa det!

<select name="kategori" class="input">
<% kategori = RecSet("kategori") %>
<% if kategori = "" then %>
<option selected>-- Välj Kategori --</option>
<% Else %>
<option>-- Välj Kategori --</option>
<% End If %>
<%if kategori = "Kodning/Script" then %>
<option name="kategori" value="Kodning/Script" selected>Kodning/Script</option>
<% Else %>
<option name="kategori" value="Kodning/Script">Kodning/Script</option>
<% End If %>
<%if kategori = "Personlig Sida" then %>
<option name="kategori" value="Personlig Sida" selected>Personlig Sida</option>
<% Else %>
<option name="kategori" value="Personlig Sida">Personlig Sida</option>
<% End If %>
<%if kategori = "Spel" then %>
<option name="kategori" value="Spel" selected>Spel</option>
<% Else %>
<option name="kategori" value="Spel">Spel</option>
<% End If %>
<%if kategori = "Webdesign" then %>
<option name="kategori" value="Webdesign" selected>Webdesign</option>
<% Else %>
<option name="kategori" value="Webdesign">Webdesign</option>
<% End If %>
<%if kategori = "Övrigt" then %>
<option name="kategori" value="Övrigt" selected>Övrigt</option>
<% Else %>
<option name="kategori" value="Övrigt">Övrigt</option>
<% End If %>
</Select>

Hehe aa du ser! men tack iaf nu har jag kommit en bit på vägen iaf!

------------------
*brölar ljudligt*

ConnyFox, du kan förminska din kod med några rader genom att lägga dina if-satser i option-taggarna:

<select name="kategori" class="input">
<% kategori = RecSet("kategori") %>
<option <% if kategori = "" then %>selected<% end if %>>-- Välj Kategori --</option>
<option name="kategori" value="Kodning/Script" <%if kategori = "Kodning/Script" then %>selected<% end if %>>Kodning/Script</option>
<option name="kategori" value="Personlig Sida" <%if kategori = "Personlig Sida" then %>selected<% end if %>>Personlig Sida</option>
<option name="kategori" value="Spel" <%if kategori = "Spel" then %>selected<% end if %>>Spel</option>
<option name="kategori" value="Webdesign" <%if kategori = "Webdesign" then %>selected<% end if %>>Webdesign</option>
<option name="kategori" value="Övrigt" <%if kategori = "Övrigt" then %>selected<% end if %>>Övrigt</option>
</Select>

Mvh,

------------------
Don't panic!

Ah tack d va smart, skulle jag med andra ord alldrig kommit på ;) First thing i will do tomorrow! Danke @nders!

------------------
*brölar ljudligt*