Notifikationer

Markér alle som læst Log ud

freud Nybegynder

04. december 2001 - 15:24 Der er 34 kommentarer og
1 løsning

hvorfor..............

Hvorfor kan jeg ikke slette ? - denne opgave er blevet bragt i asp-gruppen uden held HJÆLP !

<%@ LANGUAGE=\"VBScript\" %>

<% Response.Expires = 0 %>

<HTML>
<HEAD>
<TITLE>SeniorNet</TITLE>
</HEAD>
<BODY>

<% If Request.QueryString(\"slet\")=\"\" then

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

\' SQL forespørgsel
strSQL = \"Select * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

set rs = my_Conn.Execute(strSQL)

%>

<% ID = rs(\"KalenderID\") %>

<h1 ALIGN=\"left\">Kalender Oversigt</h1>

<HR>
<p ALIGN=\"left\"><size=\"+1\">Overskrift<b><%=rs(\"Overskrift\")%></B></font></p>
<p ALIGN=\"left\"><size=\"+1\">Besked<b><%=rs(\"Besked\")%></B></font></p>
<HR>
<p ALIGN=\"left\"><size=\"+1\">Indtastet den:<b><%=rs(\"Tidspunkt\")%></B></p>
<P ALIGN=\"left\"><size\"+1\">Indtastet af:<b><%=rs(\"BeboerID\")%></B></font></p>
<hr>
<p ALIGN=\"left\">

<form>
<input type=\"submit\" value=\"Slet\" name=\"Slet\">
</form>

<FORM ACTION=\"slet_indtast.asp\">
<input type=\"submit\" value=\"Tilbage\">
</FORM>

<% else

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

\' SQL forespørgsel
strSQL = \"Delete * From Kalender Where KalenderID = \'ID\"; (DET ER HER PROBLEMET ER !)

set rs = my_Conn.Execute(strSQL)

my_conn.Close
Set my_Conn = Nothing
%>

<% end if %>

</BODY>
</HTML>

Synes godt om

nute Nybegynder

04. december 2001 - 15:28 #1

do overfører slett ikke hvilken ID du vil slette...

hvis du bytter dette:

<form>
<input type=\"submit\" value=\"Slet\" name=\"Slet\">
</form>

<FORM ACTION=\"slet_indtast.asp\">
<input type=\"submit\" value=\"Tilbage\">
</FORM>

ut med dette:

<FORM>
<input type=\"hidden\" value=\"<%= ID %>\" name=\"ID\">
<input type=\"submit\" value=\"Slet\" name=\"Slet\"><input type=\"button\" value=\"Tilbage\" onclick=\"location.href=\'slet_indtast.asp\';\">
</form>

deretter bytter du denne:

strSQL = \"Delete * From Kalender Where KalenderID = \'ID\";

ut med denne:

strSQL = \"Delete * From Kalender Where KalenderID = \" & Request.form(\"ID\")

/ntue

Synes godt om

terry Ekspert

04. december 2001 - 15:32 #2

I am NOT an ASP ekspert, but I think I can see the problem!

First the ; is outside the \"\"
Next you have to getthe VALUE of ID into the SQL string, in your cod eyou are trying to delete those where KalenderID = \"\'ID\"

I assume that you are trying to delete records where KalenderID = ID (The value) for example 10.
So you have to alter your SQL to SOMETHING like this

strSQL = \"Delete * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

Not sure if you have access to Request.Querystring(\"ID\") but it explains what the problem is!

Synes godt om

terry Ekspert

04. december 2001 - 15:34 #3

thats right nute :o)

Synes godt om

freud Nybegynder

04. december 2001 - 15:53 #4

it did not help much !
The Id is comming from this site :
------------------------------------------------
<%@ LANGUAGE=\"VBScript\" %>

<% Response.Expires = 0 %>

<%

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

\' SQL forespørgsel
strSQL = \"SELECT * FROM Kalender ORDER BY Tidspunkt Desc\"

\' Udfør forespørgsel (rs indeholder nu resultatet)
set rs = my_Conn.Execute(strSQL)

%>

<HTML>
<HEAD>
<link rel=\"stylesheet\" href=\"../css/ramme_iframe.css\" type=\"text/css\">
<TITLE>SeniorNet</TITLE>

</HEAD>
<BODY>

<TABLE WIDTH=\"100%\" HEIGHT=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR ALIGN=\"center\">
<TD WIDTH=\"25%\"></TD>
<TD WIDTH=\"50%\">

<FONT SIZE=\"-1 ALIGN=\"left\">Kalender Oversigt</h1>
<%
IF rs.EOF THEN
%>
<b>Der er ikke registrede nogle ordrer</b>
<%
ELSE
%>

<TABLE BORDER=\"0\" WIDTH=\"100%\" CELLPADDING=\"0\" CELLSPACING=\"0\">
<TR BGCOLOR=\"#808080\">
<TH>Overskrift</TH>
<TH>Oprettet den:</TH>
<TH>Oprettet af:</TH>

</TR>

<%
WHILE NOT rs.EOF
%>

<TR ALIGN=\"center\">
<TD> <a href=\"test.asp?ID=<%=rs(\"KalenderID\")%>\"><%=rs(\"Overskrift\")%></a></TD>
<TD> <%=rs(\"BeboerID\")%></TD>

<TD> <%=rs(\"Tidspunkt\")%></TD>
</TR>

<%
rs.MoveNext
WEND
%>
</TABLE>
<%
END IF

\' Rydder op i vores connection objekt
my_Conn.Close
set my_Conn = Nothing

%>

</TD>
<TD WIDTH=\"25%\"></TD>
</TR>
</TABLE>

</BODY>
</HTML>

Synes godt om

nute Nybegynder

04. december 2001 - 15:56 #5

så skal det være nok å bare ende din SQL til dette:

strSQL = \"Delete * From Kalender Where KalenderID = \" & Request.form(\"ID\")

Synes godt om

terry Ekspert

04. december 2001 - 15:58 #6

freud> Your the ASP ekspert, you have to getthe correct field into your SQL statement, and as far as I can see you have a table which may contain more than one single ID, so some how you have to indicate which one your interested in deleting

Synes godt om

freud Nybegynder

04. december 2001 - 16:15 #7

the problems are not over then I do like the nute one says =
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket \"KalenderID =\".

/ASP/seniornet/DIVERSE/test.asp, linje 59

Synes godt om

nute Nybegynder

04. december 2001 - 16:17 #8

så er det fordi du ikke får sendt over ID parameteret...

har du ikke et link til hvor vi kan se det...det gjør saken mane ganger enklere...

Synes godt om

freud Nybegynder

04. december 2001 - 16:26 #9

linket er på vej

Synes godt om

freud Nybegynder

04. december 2001 - 16:41 #10

det driller linket kommer hurtigst muligt

Synes godt om

freud Nybegynder

04. december 2001 - 17:17 #11

her er linket:
http://www.nesdam.dk/seniornet/slet_indtast.asp

Synes godt om

terry Ekspert

04. december 2001 - 19:32 #12

This code is making a table is it not?
WHILE NOT rs.EOF
%>

<TR ALIGN=\"center\">
<TD> <a href=\"test.asp?ID=<%=rs(\"KalenderID\")%>\"><%=rs(\"Overskrift\")%></a></TD>
<TD> <%=rs(\"BeboerID\")%></TD>

<TD> <%=rs(\"Tidspunkt\")%></TD>
</TR>

<%
rs.MoveNext
WEND

OK! If that is correct´, then which ID out of maybe many are you wanting to delete? You have to somehow indicated which one your deleting and I cant see how you are! Once you know which one you are deleting then you can us ethis in your delete statement!!!!!

Synes godt om

freud Nybegynder

04. december 2001 - 22:15 #13

What Can I Do ? :-(

<a href=\"test.asp?ID=
(this is the site we are going to)

<%=rs(\"KalenderID\")%>\">
(this is the ID, which is to be sent alonge)

<%=rs(\"Overskrift\")%>
(this is the name of the link. f.eks. flemming...)

Synes godt om

terry Ekspert

05. december 2001 - 09:01 #14

freud> As I have stated I am NO ekspert at ASP so I am not sure of the ASP code.
I can see that your going to test.asp with a field called ID. Can you see in the browser address field that it shows ...test.asp?ID=XXXXX
where XXXXX is the value you sent (rs(\"KalenderID\")) ?

If there is no value the thats the problem, if there is a value then Nutes code should work
I would have thought!

strSQL = \"Delete * From Kalender Where KalenderID = \" & Request.form(\"ID\")

Synes godt om

nute Nybegynder

05. december 2001 - 09:11 #15

oki....for å være sikker på at du får hentet verdien, så skriv:

strSQL = \"Delete * From Kalender Where KalenderID = \" & request(\"ID\")

dette er litt grimt, men så er man iallefall sikker på at du henter verdien. jeg kan godt se at du får sendt over verdien...problemet er bare at du ikke får hentet den ned ordentlig.

hvis det ikke fungerer, legg så all kode i test.asp over i en .txt fil som du legger tilgjengelig sp vi kan kikke på den...

Synes godt om

terry Ekspert

05. december 2001 - 09:16 #16

Try this

strSQL = \"Delete * From Kalender Where KalenderID = \" & Clng(Trim(Request.form(\"ID\")))

Synes godt om

nute Nybegynder

05. december 2001 - 09:21 #17

terry >> no use...it is irrelevant if the value is a number or a string. when you concatinate, the number will be converted into a string anyway...

Synes godt om

terry Ekspert

05. december 2001 - 09:28 #18

I wouldnt think it necessary either, but if the value is visible then why should Request.form(\"ID\") not work?
Isnt it possible to test how many paramaters were sent to test.asp?

Synes godt om

nute Nybegynder

05. december 2001 - 09:34 #19

AHA !!!

he hasn\'t specified if he wants to send the form by neither post nor get...therefor it is sent by GET as default, and the request.form() won\'t work ;-)

freud >> bytt ut ditt formular med dette:

<FORM method=\"POST\">
<input type=\"hidden\" value=\"<%= ID %>\" name=\"ID\">
<input type=\"submit\" value=\"Slet\" name=\"Slet\"><input type=\"button\" value=\"Tilbage\" onclick=\"location.href=\'slet_indtast.asp\';\">
</form>

så er vi ihvertfall sikre på hvordan du poster dine data

terry >> why are you writing in english ? where do you come from ?

Synes godt om

terry Ekspert

05. december 2001 - 09:36 #20

Jeg er fra England :o)

Synes godt om

freud Nybegynder

05. december 2001 - 16:24 #21

Thank you for trying to help me :-) but I have by now found the answer - the answer is session\'s
-------------------------------------------------
<%@ LANGUAGE=\"VBScript\" %>

<% Response.Expires = 0 %>

<HTML>
<HEAD>

<TITLE>SeniorNet</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<link rel=\"stylesheet\" href=\"../css/ramme_iframe.css\" type=\"text/css\">
</HEAD>
<BODY>

<% If Request.QueryString(\"slet\")=\"\" then

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

\' SQL forespørgsel
strSQL = \"Select * From Kalender Where KalenderID = \" & Request.Querystring(\"ID\")

set rs = my_Conn.Execute(strSQL)

session(\"ID\")= rs(\"KalenderID\")

%>

<h1 ALIGN=\"left\">Kalender Oversigt</h1>

<HR>
<%= session(\"ID\") %>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100\" align=\"left\"><b>Overskrift:</b></td>
<td><%=rs(\"Overskrift\")%></td>
</tr>
<tr>
<td width=\"100\" align=\"left\"> </td>
<td> </td>
</tr>
<tr>
<td width=\"100\" align=\"left\" valign=\"top\"><b>Dato:</b></td>
<td align=\"left\"> </td>
</tr>
<tr>
<td width=\"100\" align=\"left\" valign=\"top\"> </td>
<td align=\"left\"> </td>
</tr>
<tr>
<td width=\"100\" align=\"left\" valign=\"top\"><b>Besked:</b></td>
<td align=\"left\"><%=rs(\"Besked\")%></td>
</tr>
</table>

<br>
<HR>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100\"><b>Indtastet den:</b></td>
<td><%=rs(\"Tidspunkt\")%></td>
</tr>
<tr>
<td width=\"100\"> </td>
<td> </td>
</tr>
<tr>
<td width=\"100\"><b>Indtastet af:</b></td>
<td><%=rs(\"BeboerID\")%></td>
</tr>
</table>

<br>
<HR>

<FORM>
<table width=\"200\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"30\">
<input type=\"hidden\" value=\"<%= ID %>\" name=\"ID\">
</td>
<td width=\"85\" align=\"center\" valign=\"middle\">
<input type=\"submit\" value=\"Slet\" name=\"Slet\">
</td>
<td width=\"85\" align=\"center\" valign=\"middle\">
<input type=\"button\" value=\"Tilbage\" onClick=\"location.href=\'slet_indtast.asp\';\" name=\"button\">
</td>
</tr>
</table>
</form>

<% else

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

\' SQL forespørgsel

strSQL = \"Delete * From Kalender Where KalenderID = \" & session(\"ID\") &\";\"

set rs = my_Conn.Execute(strSQL)

my_conn.Close
Set my_Conn = Nothing
%>

Aktiviteten er slettet
<form>
<table width=\"200\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"30\"> </td>
<td width=\"85\" align=\"center\" valign=\"middle\">
<input type=\"button\" value=\"Tilbage\" onClick=\"location.href=\'slet_indtast.asp\';\" name=\"button2\">
</td>
<td width=\"85\" align=\"center\" valign=\"middle\"> </td>
</tr>
</table>
</form>

<% end if %>

<%

\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon

strSQL = \"Select * From Kalender order by KalenderID desc\"

set rs = my_conn.execute(strSQL)

%>

<br>
<br>
<%
if rs.EOF then

Response.write \"Der er ingen aktiviteter i Kalenderen\"
%>

<b>Kalender Oversigt</b>

<%

else

Do Until rs.EOF

\'Tekst
BS= rs(\"Besked\")
\'Hvormeget skal der vises af teksten
Bk = Left(BS,15)
\'Overskrift
OS = rs(\"Overskrift\")

Response.write \"<b>\" & OS & \"</b>\"
Response.write \"<br>\"
Response.write \"<br>\"
Response.write \"\" & BK & \"\"
Response.write \".............\"
Response.write \"<br>\"
Response.write \"<A HREF=test.asp?id=\" & rs(\"KalenderID\") & \">Læs mere her........</A>\"
Response.write \"<HR SIZE=1 COLOR=Black>\"
RS.MoveNext

Loop

end if

my_conn.Close
Set my_conn = Nothing
%>
</BODY>
</HTML>

Synes godt om

nute Nybegynder

05. december 2001 - 16:26 #22

hmmm...takk for ingenting... :-|

Synes godt om

freud Nybegynder

05. december 2001 - 16:32 #23

ja....... der er altid nogen som vil brokke sig
:-( , hvorfor ikke bare være glad fordi jeg viste løsningen - eller er det måske kun points det handler om.........

Synes godt om

nute Nybegynder

05. december 2001 - 16:39 #24

nei...ikke om poeng, men om *prinsipper*

jeg har brukt tid på å hjelpe deg...jeg postet samme løsningsforslag (om ikke flere) som det som ble akseptert. alle løsningsforslag jeg har kommet med var valide, og så viser det seg at det er du som har gjort feil...well, det er fair nok...alle kan gjøre feil. når du så velger å akseptere svar, så velger du ikke å akseptere begge svar som er gitt når de er relativt identiske. hvis du selv fant svaret, hvorfor tok du ikke heller poengene tilbake ??

dette er en type oppførsel som jeg overhodet ikke ser grunn til å akseptere, og om jeg ser ditt navn igjen som den som stiller spørsmål, så kommer jeg nok til å tenke meg grundig om før jeg (igjen) poster korrekte svar til deg...

Synes godt om

terry Ekspert

05. december 2001 - 18:00 #25

nute> How many of the points do you want? you have done your share of the work here too!
:o)

Synes godt om

freud Nybegynder

05. december 2001 - 18:05 #26

Nu er jeg ret ny her på eksperten.dk så jeg ved ikke helt hvordan man bruger point systemet.

Selvfølgelig vil jeg der gerne give points til dem som har hjulpet mig - det skal der ikke være tvivl om, eller får jeg nok ikke \"rigtig\" hjælp en anden gang......

Jeg ved ikke hvordan jeg skal gøre det godt igen, men en undskyldning er vel ikke nok !

Synes godt om

terry Ekspert

05. december 2001 - 18:07 #27

freud>You can make a new question giving the points to nute and make a reference to this question, so that others dont get up tight!

Synes godt om

freud Nybegynder

05. december 2001 - 18:12 #28

I will do that..... ones again thank u terry for trying to help me :-)

Synes godt om

terry Ekspert

05. december 2001 - 18:15 #29

and thank you too freud :o)

Synes godt om

nute Nybegynder

05. december 2001 - 19:11 #30

hmmm...det ville vært mer rettferdig om terry hadde delt ut 50% av det han mottok, jeg synes ikke det skal gå ut over deg... du har utlovet 50 poeng, og ikke 100...

jeg burde ha sett at du var ny her inne, så jeg unnskylder dette \"harde\" møte med sitet.

også som jeg skrev...det er ikke så mye om poeng, men om prinsipper...poeng har jeg nok av, så jeg er ikke så \"avhengig\" av å få dem, men jeg synes allikevel i rettferdighetens navn at dem som svarer korrekt skal få sin del av kaken ;)

jeg har ikke så lyst til å motta noen poeng fra deg. ville bli mer tilfredstilt av å få dem av terry...jeg foresl¨år at du poster et svar selv i det spørsmålet du opprettet og tar poengene selv.

/nute

Synes godt om

freud Nybegynder

05. december 2001 - 19:20 #31

tak - \"nute\" hvis jeg havde vidst at jeg kunne dele de udlovede 50 points hvade I selvfølgelig fået del i dem begge to undskyld :-(

Synes godt om

nute Nybegynder

05. december 2001 - 19:27 #32

man skal jo lære det en gang :)

unnskyldning godtatt ;-) det har skjedd et par ganger i de siste dager, og det ble beklageligvis deg det gikk ut over. sannheten er at du er nesten den eneste som har \"tatt til fornuft\", så du har ikke gjort noe galt :-)

Synes godt om

terry Ekspert

05. december 2001 - 20:11 #33

Hey Nute! Just out of interest I was the only one that gave an answer :o)

Synes godt om

nute Nybegynder

05. december 2001 - 20:18 #34

well...if I interpret your posting literally...that means that if you don\'t post an answer, you actually don\'t post an answer. it should therefore not be used ?? ;-)

if it\'s the correct solution, it does not cost much to ask the person posting this solution to post an answer... ;-)

Synes godt om

terry Ekspert

05. december 2001 - 20:19 #35

Nute, I\'m only joking:o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

SQL kurser

Computerworld tilbyder specialiserede kurser i database-management

Se alle SQL kurser

Flere spørgsmål fra MS SQL kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan ikke connecte til Microsoft SQL 2005 server fra Windows 11 Af MartinBall i MS SQL	2	24/06/202509:38	24/06/202511:31
Danske karakterter i simpel insert Af boris i MS SQL	2	25/04/202414:05	29/04/202411:41
Kan ikke connecte til sql serveren Af simsen i MS SQL	2	05/01/202417:02	05/01/202420:51
Count med NOT IN og 2 conditions Af sorenmt84 i MS SQL	2	08/11/202308:37	08/11/202310:32
Top X af group Af totalpc i MS SQL	1	18/10/202321:23	09/11/202313:08

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS