Avatar billede mickill Nybegynder
16. januar 2002 - 14:34 Der er 2 kommentarer og
1 løsning

Hjælp!!!

Jeg har lavet en formular med to tekst felter som skal udfyldes (emne og question).

Teksten fra de to felter bliver lagret i en database (access) således:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"Driver={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/brevkasse/brevkasse.mdb\")
Conn.Open DSN
%>
<%
strSQL = \"INSERT INTO helse (emne, question) values(\'\" & Request.Form(\"emnequestion\") & \"\', \'\" & Request.Form(\"questionquestion\") & \"\') \"

Conn.Execute(strSQL)

Conn.close
Set Conn = Nothing

Response.Write \"Tak for dit spørgsmål. Det vil blive besvaret hurtigst muligt\"
%>

Jeg har så lavet en side som udskriver de forskellige spørgsmål :

<!--#include file=\"clssfd.asp\"-->

<%
Dim rsSvar
Set rsSvar = Server.CreateObject(\"ADODB.RecordSet\")
rsSvar.Open \"helse\", objConn

If Not rsSvar.EOF Then
    Response.Write _
        \"<TABLE BORDER=\"\"1\"\" CELLSPACING=\"\"3\"\" CELLPADDING=\"\"3\"\">\" & _
        \"<TR>\" & _
        \"    <TH><FONT SIZE=\"\"-1\"\">Klik for<BR>at svare</FONT></TH>\" & _
        \"    <TH>Emne</TH>\" & _
        \"    <TH>Spørgsmål</TH>\" & _
        \"</TR>\"
    Do While Not rsSvar.EOF
        Response.Write _
            \"<TR ALIGN=CENTER>\" & _
            \"    <TD><A HREF=\"\"svar.asp\"\">\" & _
                        rsSvar(\"Id\") & \"</A></TD>\" & _
            \"    <TD>\" & rsSvar(\"emne\") & \"</TD>\" & _
            \"    <TD>\" & rsSvar(\"question\") & \"</TD>\" & _
            \"</TR>\"
        rsSvar.MoveNext
    Loop
    Response.Write \"</TABLE>\"
Else
    Response.Write \"<CENTER><H2>Der er ikke nogen spørgsmål i øjeblikket</H2></CENTER>\"
End If
rsSvar.Close
%>

Nu kunne jeg godt tænke mig at når man trykker på et af tallene bliver kun det spørgsmål udfra tallet man har trykket på udskrevet på en ny side sammen med et tekstfelt hvori man kan give et svar på spørgsmålet.

Håber det er til at forstå....

Avatar billede software Nybegynder
16. januar 2002 - 16:01 #1
Der hvor du skriver <A HREF=\"\"svar.asp\"\">\" & _
prøv at skriv dette i stedet:

<A HREF=\"\"svar.asp?Id=\" & rsSvar(\"Id\") & \"\"\">\" & _

Derefter laver du en side som kunne se sådan ud:

strSQL = \"SELECT * FROM helse WHERE Id = \" & Request.QueryString(\"Id\") & \"\"
Set rsSvar = Conn.Execute(strSQL)
%>
<FORM ACTON=\"\" METHOD=\"POST\">
<TABLE BORDER=\"1\">
    <TR>
        <TD>Emne:</TD>
        <TD><% Response.Write rsSvar(\"emne\") %></TD>
    </TR>
    <TR>
        <TD>Spørgsmål:</TD>
        <TD><% Response.Write rsSvar(\"question\") %></TD>
    </TR>
    <TR>
        <TD>Svar:</TD>
        <TD><INPUT TYPE=\"text\" NAME=\"svar\"></TD>
    </TR>
</TABLE>
</FORM>

Du skal selvfølgelig huske at lave en databaseforbindelse...

Det skulle virke
Avatar billede software Nybegynder
16. januar 2002 - 16:02 #2
virker det ??
Avatar billede Slettet bruger
16. januar 2002 - 16:03 #3
<%
dim conn, sql, rs

    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    SQL = \"select * from brugere where uid = \'\" & request.querystring(\"id\") & \"\'\"
    Set RS = conn.Execute(SQL)
    if rs.eof then
    response.write(\"Der kunne ikke findes et spørgsmål med ID som passede!\")
    end if
    do while not rs.eof
    %>
    Her udskriver du spørgsmålets data!
    <%
    rs.movenext
    loop
    %>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester