[ASP] HTML in database

[Verwijderd]

Hallo,

Ben nu bezig met het bouwen van een intranet, nou heb ik een invulscherm met ASP gemaakt waarmee ik allerlei gegevens in mijn acces-database kan zetten
Nou heb verschillende dingen in die acces-database o.a. een veld ''HTML" hier heb ik dus verschillende html-sourcecodes instaan die ik dmv mijn invulscherm in mijn database heb gezet, nu wil ik mbv ASP zeg maar alle inhoud uit het veld "HTML" uit de database halen en omzetten naar een website/ html bestand...
Heeft iemand hier meer informatie over of eventuele tips hoe ik dit kan doen!?

Alvast bedankt!

[TeeDee]

Ervan uitgaande dat je weet hoe je je data uit een DB kunt halen:

1: Met FileSystemObject en je data uit de DB trekken kom je al een heel eind. Dan kan je dus voor elk Item een HTML file maken.

2: Maak 1 standaard page en laat die al het werk doen door alles uit de DB te trekken. Scheelt je snelheid en resources!

[Verwijderd]

In je global.asa

code:

Sub Application_OnStart()
    Application.Lock()

    Dim oConnWeb
    Set oConnWeb = server.CreateObject("ADODB.Connection")
    Call oConnWeb.Open("DATABASE", "LOGIN", "PASSWORD") 
    Set Application("WebSQL") = oConnWeb
    
    Set oConnWeb = NOTHING

    Application.Unlock()
End Sub

In je andere source code:

code:

Dim sQuery
Dim oRs
        
sQuery = "SELECT blaat FROM mekker"
        
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sQuery, Application("WebSQL"), 3, , 1

oRs bevat nu de geselecteerde data uit je database.

[TeeDee]

Idd WOEI

Is weer eens wat anders. En een nette oplossing.

* TeeDee vindt werken in Global.asa altijd irritant

[Verwijderd]

/me vind werken met een global.asa _wel_ fijn

[Verwijderd]

Tnxs voor de hulp!!!
kheb et nu sow gedaan:

code:

<PRE style="DISPLAY: inline">
<%
Dim sQuery
Dim oRs
        
sQuery = "SELECT HTML FROM contact"
    
    Set oConnWeb = server.CreateObject("ADODB.Connection")
    oConnWeb.Open("Contact") 
        
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sQuery,oConnWeb, 3, , 1

if oRs.EOF or oRs.BOF then 
  Response.Write "Sorry niet gevonden..."
else
  oRs.MoveFirst 
  Response.Write oRs("HTML") 
  
end if



%>
</PRE>

[Verwijderd]

Nog 1 vraagje nu wil ik zeg maar elk record in "HTML" koppelen aan een link zodat hij et in een nieuwe pagina weergeeft... iemand suggesties

[gorgi_19]

Verwijderd schreef op 23 september 2002 @ 10:48:
Nog 1 vraagje nu wil ik zeg maar elk record in "HTML" koppelen aan een link zodat hij et in een nieuwe pagina weergeeft... iemand suggesties

Je vraag iets duidelijker formuleren met iets meer informatie, want na drie keer lezen ben ik er nog niet uit wat je precies bedoeld.

[Verwijderd]

euhh ok zal et proberen
Zeg maar dat de inhoud van "HTML" wil ik zeg maar weergeven via een link op mijn site dus als ik daar op druk dat hij de inhoud weergeeft. duzz de html code die in mijn records "HTML" staan moet zeg maar gelinkt worden via een hyperlink naar een nieuwe pagina.. hoop dat je et nu snapt

[Glimi]

Waarom wil je in godesnaam HTML in je database. Stel je wil het later gaan opslaan in XML, dan zit je hopeens met een hoop HTML erdoor heen.
Probeer in godesnaam je data een beetje te scheiden van je View

[gorgi_19]

Verwijderd schreef op 23 september 2002 @ 10:59:
euhh ok zal et proberen
Zeg maar dat de inhoud van "HTML" wil ik zeg maar weergeven via een link op mijn site dus als ik daar op druk dat hij de inhoud weergeeft. duzz de html code die in mijn records "HTML" staan moet zeg maar gelinkt worden via een hyperlink naar een nieuwe pagina.. hoop dat je et nu snapt

Pagina1:

code:

...
<a href="pagina2.asp?id=2">blaat</a>
..

Pagina2:

code:

...
Dim id
id = request.querystring("id")
' Wat controles voor id mag je zelf bedenken
sQuery = "SELECT HTML FROM contact where id=" id
..

Zo iets?

Waarom wil je in godesnaam HTML in je database. Stel je wil het later gaan opslaan in XML, dan zit je hopeens met een hoop HTML erdoor heen.
Probeer in godesnaam je data een beetje te scheiden van je View

Volgens mij is het een erg eenvoudig CMS en verder dan wat <b> en <br> zal het niet gaan (hoop ik voor hem, anders is hij redelijk brak aan het bouwen)
Maar als je toch bezig bent met suggesties: Het mooiste zou natuurlijk zijn als je niet alleen een scheiding maakt tussen business logic en presentation layer, maar ook je databaselaag nog scheidt..
ASP vindt dit alleen niet zo heel leuk om te doen..:P

[Verwijderd]

Allemaal tnxs!!!
Het werkt nu!

[Verwijderd]

Set Application("WebSQL") = oConnWeb

FOUT!!! Doe dit NOOIT!!! Zodoende help je connection pooling om zeep!! Dit zal performance niet ten goede komen, wanneer aantal concurrent users op je site toeneemt!!!

[Verwijderd]

FOUT!!! Doe dit NOOIT!!! Zodoende help je connection pooling om zeep!! Dit zal performance niet ten goede komen, wanneer aantal concurrent users op je site toeneemt!!!

En je webserver gaat stopt er na een tijdje mee

[ErectionJackson]

Logisch. Je moet je connection openen op het moment dat je m nodig hebt en zo snel mogelijk weer closen om resources te besparen