Beste,
Ik heb een vragen systeem. De vragen worden uit een Access db gehaald. Via het web vraag ik de vragen mbv van ASP pagina's. Bij de vragen, die per categorie zijn verdeeld, kan ik ook antwoorden geven. Dat gaat allemaal prima.
Ik wil nu een afdrukmogelijkheid maken, maar dat lukt mij niet zo goed.
Ik heb het nu voor elkaar gekregen om het als volgt te laten tonen, maar dit wil ik niet:
De indeling van de pagina wil ik uiteindelijk als volgt indelen:
Voor een beter overzicht hoe het nu eruit ziet, heb ik een afbeelding hierbij in de bijlage gedaan.
De code van de ASP pagina die het overzicht moet tonen, heb ik hieronder gezet.
Mijn eerste vraag:
Wat moet ik aan de code aanpassen zodat ik de categorie eenmaal kan laten tonen? Zoals mijn voorbeeld hierboven waar je per categorie de vragen ziet.
Voor de volledigheid: Ik wil alle categorien met de betreffende vragen/antwoorden op een pagina tonen. En niet per pagina een categorie.
Mijn tweede vraag:
Ik zou graag de vragen willen autonummeren. In de tabel waar de vragen zitten heb ik al een ID veld, maar die wil ik niet gebruiken (dat loopt tot 10duizenden). Per enquete vink ik de vragen die ik wil gebruiken, en die nummers (bv 5321, 7546..) hoeft de gebruiker niet te zien.
De vragen wil ik dan ook per categrie weer opnieuw willen laten nummeren, te beginnen bij 1 zoals op onderstaande voorbeeld:
Wie o wie begrijpt mijn vraag en mij hierbij helpen?
Excuses voor de lange bericht. En bijvoorbaat dank voor de reacties/hulp.
Gr,
Albi
Ik heb een vragen systeem. De vragen worden uit een Access db gehaald. Via het web vraag ik de vragen mbv van ASP pagina's. Bij de vragen, die per categorie zijn verdeeld, kan ik ook antwoorden geven. Dat gaat allemaal prima.
Ik wil nu een afdrukmogelijkheid maken, maar dat lukt mij niet zo goed.
Ik heb het nu voor elkaar gekregen om het als volgt te laten tonen, maar dit wil ik niet:
Code:
[B]
Catergorie 1[/B]
vraag 1
antwoord 1
opmerkingen 1
[B]Catergorie 1[/B]
vraag 2
antwoord 2
opmerkingen 2
[B]Catergorie 2[/B]
vraag 3
antwoord 3
opmerkingen 3
[B]Catergorie 2[/B]
vraag 4
antwoord 4
opmerkingen 4De indeling van de pagina wil ik uiteindelijk als volgt indelen:
Code:
[B]Catergorie 1[/B]
vraag 1
antwoord 1
opmerkingen 1
vraag 2
antwoord 2
opmerkingen 2
etc
[B]Categorie 2[/B]
vraag 1
antwoord 1
opmerkingen 1
vraag 2
antwoord 2
opmerkingen 2
etcVoor een beter overzicht hoe het nu eruit ziet, heb ik een afbeelding hierbij in de bijlage gedaan.
De code van de ASP pagina die het overzicht moet tonen, heb ik hieronder gezet.
Code:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
' Teksten uit de database
Dim objRSTeksten
Set objRSTeksten = Server.CreateObject("ADODB.Recordset")
function HaalTekstOp( byval nTekstID )
Dim strSQL
strSQL = "SELECT Tkst_inhoud FROM Teksten WHERE Tkst_id = " & CStr( nTekstID )
objRSTeksten.Open strSQL, Application("strConnectionVrEv4")
if objRSTeksten.BOF = true and objRSTeksten.EOF = true then
HaalTekstOp = "<B>[Tekst met ID " & CStr( nTekstID ) & " niet gevonden]</B>"
else
HaalTekstOp = objRSTeksten("Tkst_inhoud")
end if
objRSTeksten.Close
end function
%>
<HTML>
<HEAD>
<title>Rapportage vragen en antwoorden</title>
<LINK REL=STYLESHEET HREF="../main.css" TYPE="text/css">
<base target="_self">
</head>
<BODY onLoad="window.print()">
<%
Dim objRS
Dim strSQL
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<TABLE BORDER="0" CELLSPACING="0" width=670 style="border-left-width: 0px; border-right-width: 0px">
<TR>
<BR><TD colspan="2"><H3><%=HaalTekstOp(11)%></H3></TD>
</TR>
<tr valign="top">
<%
set objRS = Server.CreateObject( "ADODB.Recordset" )
strSQL = "SELECT * FROM qr_antwoorden ORDER BY Ctgr_omschrijving"
objRS.Open strSQL,Application("strConnectionVrEv4"),3,3
If Not objRS.EOF Then
objRS.MoveFirst
do while not objRS.EOF
%>
<td>Categorie</td>
<TD colspan="2" bgcolor="#AFDADA"><STRONG>
<%
Response.Write objRS.Fields("Ctgr_omschrijving")
%>
</STRONG></TD>
</TR>
<TR style="cel3" valign="top">
<TD width=102>Vraag</TD>
<TD bgcolor="#AFDADA" width=564>
<%
Response.Write objRS.Fields("Vrgn_oms")
%>
</TD>
</TR>
<TR style="cel3" valign="top"><td>Antwoord</td>
<TD width=525 bgcolor="#E1F1F1" style="border-style: none; border-width: medium" colspan="2" >
<%Response.Write objRS.Fields("Antw_antwoord")%>
</TD>
</TR>
<TR style="cel3" valign="top"><td>Opmerkingen</td>
<TD width=525 bgcolor="#E1F1F1" style="border-style: none; border-width: medium" colspan="2" >
<%Response.Write objRS.Fields("Antw_opmerking")%>
</TD>
</TR>
<tr><td height="10" colspan="2"></td>
</tr>
<TR><TD style="border-top-style: none; border-top-width: medium" colspan="2">
</TD></TR>
<%
objRS.MoveNext
Loop
Else
%>
<TD colspan="2"><STRONG>Geen vragen!</STRONG></TD></TR>
<%
End If
objRS.Close
Set objRS = Nothing
%>
<script type="text/javascript">
_uacct = "UA-724001-1";
urchinTracker();
</script>
</BODY>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
</script>
<TR>
<BR><TD colspan="2"><%=HaalTekstOp(12)%></TD>
</TR>
</table>Mijn eerste vraag:
Wat moet ik aan de code aanpassen zodat ik de categorie eenmaal kan laten tonen? Zoals mijn voorbeeld hierboven waar je per categorie de vragen ziet.
Voor de volledigheid: Ik wil alle categorien met de betreffende vragen/antwoorden op een pagina tonen. En niet per pagina een categorie.
Mijn tweede vraag:
Ik zou graag de vragen willen autonummeren. In de tabel waar de vragen zitten heb ik al een ID veld, maar die wil ik niet gebruiken (dat loopt tot 10duizenden). Per enquete vink ik de vragen die ik wil gebruiken, en die nummers (bv 5321, 7546..) hoeft de gebruiker niet te zien.
De vragen wil ik dan ook per categrie weer opnieuw willen laten nummeren, te beginnen bij 1 zoals op onderstaande voorbeeld:
Code:
[B]Catergorie 1[/B]
vraag 1
vraag 2
etc
[B]Categorie 2[/B]
vraag 1
vraag 2
etcWie o wie begrijpt mijn vraag en mij hierbij helpen?
Excuses voor de lange bericht. En bijvoorbaat dank voor de reacties/hulp.
Gr,
Albi
Per onderdeel heb ik een andere tabel. Hieronder een overzicht van de tabellen. Daaronder zit ook een query waaruit ik de gegevens uithaal in ASP.
