/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Command Objectet
Fra : Frank Normann


Dato : 20-11-01 00:01

Fatter ikke hvad der er galt...men tror fejlen ligger i linie 6...men kan
ikke greje den
kan i hjælpe??

<%
Response.Buffer = True

akt = Request.QueryString("akt")
Set objComm = Server.CreateObject("ADODB.Command")
strConnect = "DBQ="& Server.MapPath(".") &"/fpdb/mdplan.mdb;
DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access Driver
(*.mdb)};"
objComm.ActiveConnection = strConnect
objComm.CommandText = "SELECT * FROM mdplan"
objComm.CommandType = adCmdText
Set objRS = objComm.Execute
objRS.Filter = "Id = " & akt
If Not objRS.EOF Then
objRS.Delete
End If

objRS.Close
Set objRS = Nothing

Server.Transfer ("mdplan.asp")
%>

--
\Frank

Do not underestimate the power of the Emperor and the rampage of Pharaoh



 
 
trine (20-11-2001)
Kommentar
Fra : trine


Dato : 20-11-01 13:15

Hej Frank

Prøv at ret til:
objRS.Filter = "Id = '" & akt &"'"

vh
trine

Frank Normann wrote in dk.edb.internet.webdesign.serverside.asp:
> Fatter ikke hvad der er galt...men tror fejlen ligger i linie 6...men kan
> ikke greje den
> kan i hjælpe??
>
> <%
&gt; Response.Buffer = True
&gt;
&gt; akt = Request.QueryString("akt")
&gt; Set objComm = Server.CreateObject("ADODB.Command")
&gt; strConnect = "DBQ="& Server.MapPath(".") &"/fpdb/mdplan.mdb;
&gt; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access
Driver
&gt; (*.mdb)};"
&gt; objComm.ActiveConnection = strConnect
&gt; objComm.CommandText = "SELECT * FROM mdplan"
&gt; objComm.CommandType = adCmdText
&gt; Set objRS = objComm.Execute
&gt; objRS.Filter = "Id = " & akt
&gt; If Not objRS.EOF Then
&gt; objRS.Delete
&gt; End If
&gt;
&gt; objRS.Close
&gt; Set objRS = Nothing
&gt;
&gt; Server.Transfer ("mdplan.asp")
&gt; %>
>
> --
> \Frank
>
> Do not underestimate the power of the Emperor and the rampage of Pharaoh
>
>


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Frank Normann (20-11-2001)
Kommentar
Fra : Frank Normann


Dato : 20-11-01 20:20

hmm det virkede ikke,- men er det ikke sådan at (i dette tilfælde) når akt
er et tal så skal man undlade ' ??

--
\Frank

Do not underestimate the power of the Emperor and the rampage of Pharaoh
"trine" <tp1@sol.dk> skrev i en meddelelse news:9tdhh1$pkt$1@sunsite.dk...
> Hej Frank
>
> Prøv at ret til:
> objRS.Filter = "Id = '" & akt &"'"
>
> vh
> trine
>
> Frank Normann wrote in dk.edb.internet.webdesign.serverside.asp:
> > Fatter ikke hvad der er galt...men tror fejlen ligger i linie 6...men
kan
> > ikke greje den
> > kan i hjælpe??
> >
> > <%
> &gt; Response.Buffer = True
> &gt;
> &gt; akt = Request.QueryString("akt")
> &gt; Set objComm = Server.CreateObject("ADODB.Command")
> &gt; strConnect = "DBQ="& Server.MapPath(".") &"/fpdb/mdplan.mdb;
> &gt; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access
> Driver
> &gt; (*.mdb)};"
> &gt; objComm.ActiveConnection = strConnect
> &gt; objComm.CommandText = "SELECT * FROM mdplan"
> &gt; objComm.CommandType = adCmdText
> &gt; Set objRS = objComm.Execute
> &gt; objRS.Filter = "Id = " & akt
> &gt; If Not objRS.EOF Then
> &gt; objRS.Delete
> &gt; End If
> &gt;
> &gt; objRS.Close
> &gt; Set objRS = Nothing
> &gt;
> &gt; Server.Transfer ("mdplan.asp")
> &gt; %>
> >
> > --
> > \Frank
> >
> > Do not underestimate the power of the Emperor and the rampage of Pharaoh
> >
> >
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials



NAS (20-11-2001)
Kommentar
Fra : NAS


Dato : 20-11-01 23:21

hvad det?

objRS.Filter = "Id = & '" & akt &"'"
"Frank Normann" <fnormann@mail1.stofanet.dk> skrev i en meddelelse
news:3bfaac74$0$4862$ba624c82@nntp02.dk.telia.net...
> hmm det virkede ikke,- men er det ikke sådan at (i dette tilfælde) når akt
> er et tal så skal man undlade ' ??
>
> --
> \Frank
>
> Do not underestimate the power of the Emperor and the rampage of Pharaoh
> "trine" <tp1@sol.dk> skrev i en meddelelse news:9tdhh1$pkt$1@sunsite.dk...
> > Hej Frank
> >
> > Prøv at ret til:
> > objRS.Filter = "Id = '" & akt &"'"
> >
> > vh
> > trine
> >
> > Frank Normann wrote in dk.edb.internet.webdesign.serverside.asp:
> > > Fatter ikke hvad der er galt...men tror fejlen ligger i linie 6...men
> kan
> > > ikke greje den
> > > kan i hjælpe??
> > >
> > > <%
> > &gt; Response.Buffer = True
> > &gt;
> > &gt; akt = Request.QueryString("akt")
> > &gt; Set objComm = Server.CreateObject("ADODB.Command")
> > &gt; strConnect = "DBQ="& Server.MapPath(".") &"/fpdb/mdplan.mdb;
> > &gt; DefaultDir=DBQ="& Server.MapPath(".") &";Driver={Microsoft Access
> > Driver
> > &gt; (*.mdb)};"
> > &gt; objComm.ActiveConnection = strConnect
> > &gt; objComm.CommandText = "SELECT * FROM mdplan"
> > &gt; objComm.CommandType = adCmdText
> > &gt; Set objRS = objComm.Execute
> > &gt; objRS.Filter = "Id = " & akt
> > &gt; If Not objRS.EOF Then
> > &gt; objRS.Delete
> > &gt; End If
> > &gt;
> > &gt; objRS.Close
> > &gt; Set objRS = Nothing
> > &gt;
> > &gt; Server.Transfer ("mdplan.asp")
> > &gt; %>
> > >
> > > --
> > > \Frank
> > >
> > > Do not underestimate the power of the Emperor and the rampage of
Pharaoh
> > >
> > >
> >
> >
> > --
> > Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> > - Pædagogiske tutorials på dansk
> > - Kom godt i gang med koderne
> > KLIK HER! => http://www.html.dk/tutorials
>
>



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408942
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste