Generere nyt asp Dokument

Brug følgende:

Session("Afdeling") = request.form("afdeling")

'Danner filen ud fra afdelingens navn
filEfternavn = ".asp"

'Find et filnavn
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
fileName = Session("Kundenr")&filEfternavn

i = 1

do while objFSO.FileExists(Server.MapPath("./filmappe/"&fileName))
        fileName = Session("Afdeling")&"("&i&")"&filEfternavn
        i = i + 1
loop
   
Set objTextStream = objFSO.CreateTextFile(Server.MapPath("./filmappe/"&fileName))

Ups - alle Session("Kundenr") skal selvfølgelig rettes til Session("Afdeling")

ASP dokumentet skal også indeholde SQL, altså den bygger et helt dokumnet fra bunden, den skal lave et nyt dokumnet hvor der er et nyt SQL udtræk fra den nye afd.

Her er et udkast af noget jeg har forsøgt:

strFileName = "C:\Inetpub\wwwroot\www.Plus-Intranet\Personaleoversigt\" & strAfd & ".asp"
        QUOT = Chr(34)
        CRLF = VbCrLf
       
        'Laver en ny fil, overskriver den eksisterende.
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set ObjFile = objFSO.CreateTextFile(strFilename, true)
       
        'Skriver start tag på siden HEAD, Meta, Titel til filen.
        strLine = "<html><head><title>" & QUOT & strAfd & QUOT & "</title>"
        objFile.WriteLine strLine & CRLF
       
        'Skriver include filerne ind (root node)
        strLine =" <link rel=stylesheet href=../CSS/border.css type=text/css>"
        objFile.WriteLine strLine & CRLF
       
        'Dim til databasen.
        strLine =" <% Dim objConn %>"
        objFile.WriteLine strLine & CRLF
       
        strLine =" <% Dim objRS %>"
        objFile.WriteLine strLine & CRLF
       
        strLine =" <% Dim strQ %>"
        objFile.WriteLine strLine & CRLF
       
        strLine =" <% Dim DSN %>"
        objFile.WriteLine strLine & CRLF
       
        strLine =" <% Dim sEmail %>"
        objFile.WriteLine strLine & CRLF
       
        'Åbner databasen
        strLine =" <% Set objConn = Server.CreateObject(ADODB.Connection) %>"
        objFile.WriteLine StrLine & CRLF
       
        strLine =" <% DSN = DRIVER={Microsoft Access Driver (*.mdb)}; %>"
        objFile.WriteLine StrLine & CRLF
       
        strLine =" <% DSN = DSN & DBQ= & Server.MapPath(../database/plusDatabase.mdb) %>"
        objFile.WriteLine StrLine & CRLF

Hmmm - hvorfor vil du lave det på den måde???

Du kan da nøjes med én asp-fil til at vise ALLE afdelinger - det er bare et spørgsmål om at din sql-sætning er rigtig.

Hvordan laver jeg så evt. en SQL streng i et link ?

Du skal lave querystrings i dit link.

Et eksempel

<html>
<head>
<title>Afdelinger</title>
</head>
<%
Set Conn = Server.createobject("ADODB.Connection")
Conn.Open "dsn_name"

strSQL = "SELECT * FROM Afdelinger ORDER BY Navn"
Set rs = Conn.Execute(strSQL)
%>
<body>
<%
Do while not (rs.bof or rs.eof)
%>
<a href="vis_afdeling.asp?id=<%=rs("Id")%>"><%=rs("Navn")%></a>
<%
rs.movenext
loop
%>
</body>
</html>

Ovenstående lister alle de afdelinger der er oprettet i din database.

Filen vis_afdeling.asp laves så som følger:

<html>
<head>
<title>Afdelingen vises</title>
</head>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "dsn_name"

'sql der vælger den specifikke afdeling
strSQL = "SELECT * FROM Afdelings_info WHERE AfdId="&request.querystring("id")
Set rs = Conn.Execute(strSQL)
%>
<body>
<%=rs("Navn")%>
<br>
............
</body>
</html>

Kommentarer:

Tabellen Afdelinger indeholder kun et Id-felt (autonummerering) og et Navn-felt (tekst).

Afdelings_info indeholder alle specifikke data for den enkelte afdeling, samt feltet AfdId, der er relationen mellem tabellen Afdelings_info og tabellen Afdelinger.

Det er den smarteste måde at gøre det på! ;0)

Takker :)

Det var så lidt! ;0)