---

jeg har f.eks et link der lyder /vis.asp?id=40

kan i hjælpe med hvad for nogle koder/kommandoer jeg skal bruge i
vis.asp filen , for at den skriver indhold fra de kolloner i min
tabel jeg
ønsker den skal skrive, er det ligesom en form at jeg skal skrive
f.eks "'"
& Request.Form("overskrift") & "',"

eller er jeg helt gal på den?

--
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

---

"jan nielsen" <jan20@jubiimail.dk> wrote in message
news:bjcvoi$fmh$1@sunsite.dk...
> jeg har f.eks et link der lyder /vis.asp?id=40
>
> kan i hjælpe med hvad for nogle koder/kommandoer jeg skal bruge i
> vis.asp filen , for at den skriver indhold fra de kolloner i min
> tabel jeg
> ønsker den skal skrive


<%

Function openRecordset(strSQL)
Dim oRs, oConn
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.Recordset")

oConn.Open Session("MINFORBINDELSE")

oRs.ActiveConnection = oConn
oRs.CursorType = adOpenKeyset
oRs.LockType = adLockOptimistic
oRs.Source = strSQL
oRs.Open
Set openRecordset = oRs
Set oRs = Nothing
Set oConn = nothing
End Function

%>

<%
dim strArticleID, oRsArticle, strSQLArticle
strArticleID = request.querystring("articleid")

strSQLArticle = "SELECT * FROM tblArticle WHERE (ArticleID = "& strArticleID
&")"
Set oRsArticle = openRecordset(strSQLArticle)

%>


Jeg har medsendt den måde jeg åbner forfindelsen til databasen på.

Nu kan du udskrive de data du vil for den pågældende record. Hvis du ikke
har brug for alle, så lad være med at bruge * i select sætningen.

Brug <%=Replace(oRsArticle("FFFFFFF"), vbCrLf, "<br>")%> når du henter data
fra et notat/tekst felt hvor du vil hav linieskift med, hvor FFFFFFFer
feltnavnet

Andre felter hente på denne måde.

<%=oRsArticle("XXXXXX")%> hvor XXXXXXer feltnavnet
--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
"If you kneel at the fence by the priest, you get dog biscuits. Anna 6
years."

---

Christian M. Nielsen wrote in dk.edb.internet.webdesign.serverside.asp:
> "jan nielsen" <jan20@jubiimail.dk> wrote in message
> news:bjcvoi$fmh$1@sunsite.dk...
> > jeg har f.eks et link der lyder /vis.asp?id=40
> >
> > kan i hjælpe med hvad for nogle koder/kommandoer jeg skal bruge i
> > vis.asp filen , for at den skriver indhold fra de kolloner i min
> > tabel jeg
> > ønsker den skal skrive
>
>
> <%
&gt;
&gt; Function openRecordset(strSQL)
&gt; Dim oRs, oConn
&gt; Set oConn = Server.CreateObject("ADODB.Connection")
&gt; Set oRs = Server.CreateObject("ADODB.Recordset")
&gt;
&gt; oConn.Open Session("MINFORBINDELSE")
&gt;
&gt; oRs.ActiveConnection = oConn
&gt; oRs.CursorType = adOpenKeyset
&gt; oRs.LockType = adLockOptimistic
&gt; oRs.Source = strSQL
&gt; oRs.Open
&gt; Set openRecordset = oRs
&gt; Set oRs = Nothing
&gt; Set oConn = nothing
&gt; End Function
&gt;
&gt; %>
>
> <%
&gt; dim strArticleID, oRsArticle, strSQLArticle
&gt; strArticleID = request.querystring("articleid")
&gt;
&gt; strSQLArticle = "SELECT * FROM tblArticle WHERE (ArticleID = "&
strArticleID
&gt; &")"
&gt; Set oRsArticle = openRecordset(strSQLArticle)
&gt;
&gt; %>
>
>
> Jeg har medsendt den måde jeg åbner forfindelsen til databasen på.
>
> Nu kan du udskrive de data du vil for den pågældende record. Hvis du ikke
> har brug for alle, så lad være med at bruge * i select sætningen.
>
> Brug <%=Replace(oRsArticle("FFFFFFF"), vbCrLf, "<br>")%> når du henter data
> fra et notat/tekst felt hvor du vil hav linieskift med, hvor FFFFFFFer
> feltnavnet
>
> Andre felter hente på denne måde.
>
> <%=oRsArticle("XXXXXX")%> hvor XXXXXXer feltnavnet
> --
>
> Mvh / Regards
> -=< Christian >=-
> What capital has 164 letters in its name? See my web page to find out.
> http://www.cmnielsen.dk ICQ: 25308942
> "If you kneel at the fence by the priest, you get dog biscuits. Anna 6
> years."
>
>
>
>
hej, jeg har sat den op, men kan ikke rigtig få det til at virke. den skriver..

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/vis.asp, line 34
&")"

<%

Function openRecordset(strSQL)
Dim oRs, oConn
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.Recordset")

oConn.Open Session("database.mdb")

oRs.ActiveConnection = oConn
oRs.CursorType = adOpenKeyset
oRs.LockType = adLockOptimistic
oRs.Source = strSQL
oRs.Open
Set openRecordset = oRs
Set oRs = Nothing
Set oConn = nothing
End Function

%>

<%
dim strArticleID, oRsArticle, strSQLArticle
strArticleID = request.querystring("overskrift")

strSQLArticle = "SELECT * FROM salg WHERE (ArticleID = "& strArticleID
&")" <--------- linie 34
Set oRsArticle = openRecordset(strSQLArticle)

%>

hvad er det jeg gør forkert?

--
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

---

jan nielsen wrote:
> hej, jeg har sat den op, men kan ikke rigtig få det til at virke. den skriver..
>
> Error Type:
> Microsoft VBScript compilation (0x800A0400)
> Expected statement
> /vis.asp, line 34
> &")"
>
> strSQLArticle = "SELECT * FROM salg WHERE (ArticleID = "& strArticleID
> &")" <--------- linie 34

De to liniers kode herover skal stå på samme linie. Dvs der skal ikke
linieskift efter strArticleID.

/Torben

---

Torben Brandt wrote in dk.edb.internet.webdesign.serverside.asp:
> jan nielsen wrote:
> > hej, jeg har sat den op, men kan ikke rigtig få det til at virke. den skriver..
> >
> > Error Type:
> > Microsoft VBScript compilation (0x800A0400)
> > Expected statement
> > /vis.asp, line 34
> > &")"
> >
> > strSQLArticle = "SELECT * FROM salg WHERE (ArticleID = "& strArticleID
> > &")" <--------- linie 34
>
> De to liniers kode herover skal stå på samme linie. Dvs der skal ikke
> linieskift efter strArticleID.
>
> /Torben
>

okay, tak...

når jeg skriver
Function openRecordset(strSQL)
Dim oRs, oConn
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.Recordset")

oConn.Open Session("database.mdb") <---linie 16 skriver den

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver
specified
/vis.asp, line 16

er det fordi den ikke kan finde min database? for det er den rigtig,

--
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

---

> oConn.Open Session("database.mdb") <---linie 16 skriver den
>
> er det fordi den ikke kan finde min database? for det er den rigtig,

I din Global.asa fil skal der stå følgende (det er en fil du har liggende i
roden af webserveren/den mappe du kører dit asp fra)

dette er DET ENESTE der skal stå (du kan senere udvide med flere ting hvis
du ønsker)
***************************************
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart

Session.LCID = 1030
Session.CodePage = 1252

Session("MINFORBINDELSE") =
"DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/database.mdb;" &_
"DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/;" &_
"Driver={Microsoft Access Driver (*.mdb)};" &_
"DriverId=25;FIL=MS Access;" &_
"ImplicitCommitSync=Yes;" &_
"MaxBufferSize=512;" &_
"MaxScanRows=8;" &_
"PageTimeout=95;" &_
"SafeTransactions=0;" &_
"Threads=3;UID=admin;" &_
"UserCommitSync=Yes;"

END SUB
</SCRIPT>
***********************************
bemærk linien
Session("MINFORBINDELSE") =
"DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/database.mdb;" &_

hvor jeg angiver stien til min database samt "Session("MINFORBINDELSE")"

i din linie 16 skal der derfor stå *** oConn.Open
Session("MINFORBINDELSE")*** (uden *** selvfølgelig
du skal selv rette på scriptet så linierne ender med ***&_*** de bliver
sikkert ombrudt når jeg sender denne besked


--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
"If you kneel at the fence by the priest, you get dog biscuits. Anna 6
years."

---

"Christian M. Nielsen" <look_for_it@my.webpage> wrote in message
news:bjf45d$fau$1@sunsite.dk...

> du skal selv rette på scriptet så linierne ender med ***&_*** de bliver
> sikkert ombrudt når jeg sender denne besked

det gjorde de ikke, med undtagelse af den første linie, der skal
Session("MINFORBINDELSE") = sættes foran linien neden under, således

Session("MINFORBINDELSE") = "DBQ="&Request .............
--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
"If you kneel at the fence by the priest, you get dog biscuits. Anna 6
years."

---

Christian M. Nielsen wrote in dk.edb.internet.webdesign.serverside.asp:
> > oConn.Open Session("database.mdb") <---linie 16 skriver den
> >
> > er det fordi den ikke kan finde min database? for det er den rigtig,
>
> I din Global.asa fil skal der stå følgende (det er en fil du har liggende i
> roden af webserveren/den mappe du kører dit asp fra)
>
> dette er DET ENESTE der skal stå (du kan senere udvide med flere ting hvis
> du ønsker)
> ***************************************
> <SCRIPT LANGUAGE=VBScript RUNAT=Server>
> SUB Session_OnStart
>
> Session.LCID = 1030
> Session.CodePage = 1252
>
> Session("MINFORBINDELSE") =
> "DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/database.mdb;" &_
> "DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/;" &_
> "Driver={Microsoft Access Driver (*.mdb)};" &_
> "DriverId=25;FIL=MS Access;" &_
> "ImplicitCommitSync=Yes;" &_
> "MaxBufferSize=512;" &_
> "MaxScanRows=8;" &_
> "PageTimeout=95;" &_
> "SafeTransactions=0;" &_
> "Threads=3;UID=admin;" &_
> "UserCommitSync=Yes;"
>
> END SUB
> </SCRIPT>
> ***********************************
> bemærk linien
> Session("MINFORBINDELSE") =
> "DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/database.mdb;" &_
>
> hvor jeg angiver stien til min database samt "Session("MINFORBINDELSE")"
>
> i din linie 16 skal der derfor stå *** oConn.Open
> Session("MINFORBINDELSE")*** (uden *** selvfølgelig
> du skal selv rette på scriptet så linierne ender med ***&_*** de bliver
> sikkert ombrudt når jeg sender denne besked
>
>
> --
>
> Mvh / Regards
> -=< Christian >=-
> What capital has 164 letters in its name? See my web page to find out.
> http://www.cmnielsen.dk ICQ: 25308942
> "If you kneel at the fence by the priest, you get dog biscuits. Anna 6
> years."
>
>
hej Christian...

nu har jeg gjort det du har skrevet, men den laver fejl indnu :( ved ikke om
det er mig der ikke har forstået der korrekt, men du kan se nedenfor hvad jeg
har gjort :)

min global.asa fil

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
Session.LCID = 1030
Session.CodePage = 1252
Session("MINFORBINDELSE") = <--- min fejl
"DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"/database.mdb;" &_
"DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/;" &_
"Driver={Microsoft Access Driver (*.mdb)};" &_
"DriverId=25;FIL=MS Access;" &_
"ImplicitCommitSync=Yes;" &_
"MaxBufferSize=512;" &_
"MaxScanRows=8;" &_
"PageTimeout=95;" &_
"SafeTransactions=0;" &_
"Threads=3;UID=admin;" &_
"UserCommitSync=Yes;" &_
END SUB
</SCRIPT>

min fejl--

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
//global.asa, line 7, column 27
Session("MINFORBINDELSE") =



--
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

---

hov, så ikke lige dit sidste indlæg :) men det rettede overnævnte fejl.. men nu
har jeg en ny,, i know jeg er noob :)
den lyder

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
//global.asa, line 17
END SUB

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
Session.LCID = 1030
Session.CodePage = 1252

Session("MINFORBINDELSE") =
"DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"database.mdb;" &_
"DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"log/;" &_
"Driver={Microsoft Access Driver (*.mdb)};" &_
"DriverId=25;FIL=MS Access;" &_
"ImplicitCommitSync=Yes;" &_
"MaxBufferSize=512;" &_
"MaxScanRows=8;" &_
"PageTimeout=95;" &_
"SafeTransactions=0;" &_
"Threads=3;UID=admin;" &_
"UserCommitSync=Yes;" &_
END SUB <----- lige her
</SCRIPT>


--
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

---

"jan nielsen" <jan20@jubiimail.dk> wrote in message
news:bjf5gc$lq7$1@sunsite.dk...
> hov, så ikke lige dit sidste indlæg :) men det rettede overnævnte fejl..
men nu
> har jeg en ny,, i know jeg er noob :)
> den lyder
>
> Error Type:
> Microsoft VBScript compilation (0x800A03EA)
> Syntax error
> //global.asa, line 17
> END SUB

> "UserCommitSync=Yes;" &_
> END SUB <----- lige her
> </SCRIPT>

du skal slette *** &_ *** i sidste linie så der kun står
"UserCommitSync=Yes;"
Min fejl at jeg ikke sagde at der ikke skal være det i aller sidste linie,
sorry
--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
"If you kneel at the fence by the priest, you get dog biscuits. Anna 6
years."

---

hej, hvordan kan det være den skirver at

oRs.ActiveConnection = oConn
oRs.CursorType = adOpenKeyset
oRs.LockType = adLockOptimistic <-----*
oRs.Source = strSQL
oRs.Open
Set openRecordset = oRs
Set oRs = Nothing
Set oConn = nothing
End Function

*ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.

men hvis jeg så sletter den sammen med oRs.Open så duer det næsten, jeg kan
bare ikke skrive nogle af
<%=Replace(oRsArticle("FFFFFFF"), vbCrLf, "<br>")%>
<%=oRsArticle("XXXXXX")%>

uden den laver fejl, men det er nok fordi jeg laver lidt ged i åbningen til
databasen, ved at slette de 2 foroven, men hvad er grunden så til den laver
den fejl.

--
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