webForumDet fria alternativet

visa/tabort poster

3 svar · 266 visningar · startad av Ylleh

YllehMedlem sedan apr. 200219 inlägg
#1

Har flertal formulär som anropar komponent med olika metoder vars uppgifter är att:
ta bort ur sqldatabas (metod=TaBort)
visa inmatade värden (metod=VisaAnlaeggning)
fylla i anltyp (metod=FyllAnlTyp)

Men just detta formulär listar upp de inmatningar du har gjort i sqldben, och efter varje post du har matat in finns en knapp= tabort.

Det som inte funkar för mig är att det går bara att ta bort det nyss inmatade först för att sedan ta bort det näst nyss inmatade osv... men jag vill ju kunna ta bort den post som var inmatad först före den som är inmatad sist osv.

(själva tabort komponenten finns på en egen aspsida)

delar ur kod:

dim ObjInventAnlF
set rs = ObjInventAnlF.FyllAnlTyp
set VisaAnlaeggning =ObjInventAnlF.VisaAnlaeggning(session("strUser"))

<body>
<form method="post" action="tabort.asp">

<%
while not VisaAnlaeggning.eof
%>

<table border="0" cellPadding="1" cellSpacing="1" width="75%" style="HEIGHT: 74px; WIDTH: 746px">
<tr>
<td><font face="verdana" size="2">Anläggningsnummer</font></td>
<tr>
<td valign="top"><input id="text1" name="Anlnr" value="<%=VisaAnlaeggning("Anlnr")%>"></td>

<%
while not rs.EOF
if (resultat = "0") then

end if

rs.moveNext
wend
%>
</table>
</font>
</form>

<%
VisaAnlaeggning.MoveNext
wend
%>

\</body\>
\</html\>
solbulleMedlem sedan mars 20015 287 inlägg
#2

Vart är "tabort"-knappen?
Hur ser sidan som tar emot infon du posta i formuläret ut?
Det är väl eg. den som är av största intresse!?!

YllehMedlem sedan apr. 200219 inlägg
#3

Nja, jag vet inte... jag har fått för mig att det senast inmatade ligger "uppe" och att man borde gå och hämta det som finns i basen typ (uppdatera) men jag vet inte....

Tabortknappen ligger med (men jag tog ej med koden för den)=
<td><font face="verdana" size="2"> <input type="submit" value="Ta bort" id="button1" name="Tabort"></td>

Tabort sidan innehåller komponent och metod
<%@ Language=VBScript %>

<%
AnlNr=Request.Form ("Anlnr")
dim ObjInventAnlF
set ObjInventAnlF=Server.CreateObject("InventAnlF.AnlNrF")

ObjInventAnlF.TaBortAnlaeggning(AnlNr)

Response.Redirect "uppdatera.asp"
%>

Har testat med VB och denna komponent med metoden TaBortAnlaeggning funkar utmärkt.

YllehMedlem sedan apr. 200219 inlägg
#4

fixat!

133 ms totalt · 3 externa anrop · v20260731065814-full.ca5a5675
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)