Nybörjarfråga — webForum

deoizMedlem sedan juni 200031 inlägg

Frågan4 okt. 2001 17:56#1

Hello alla!

Först tack alla som svarade i går, nu fungerar det allt sammans i samma dokument.

Nu till ett annat problem. Som ni ser längst ned på: http://citruz.nu/kunskap/artiklar/scroller/index.asp

kan man lägga in sin kommentar på artikeln, testa att skriv något, vad som hälst, klicka sedan på skicka...
Det dyker upp, okej så längt allt väl (typ)...
Men om du nu klickar på uppdatera igen och klickar på retry, kommer inlägget upp en gång till...

Detta är nödvändigtvis ingen "bugg" som jag behöver få bort eftersom de flesta inte kommer att trcka på uppdatera... men jag stör på den och jag skulle gärna vilja veta hur man gör för att bli av med det?

Koden ser ut som nedan:

<form method="POST" action="index.asp">
                  <table width="200" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="74" height="2"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Namn</b></font><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">:</font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                        </font></td>
                      <td width="148" height="2"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                        <input type="text" size="30" name="FirstName" maxlength="30">
                        </font></td>
                    </tr>
                    <tr> 
                      <td width="74"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>E-mail</b></font><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">:</font></b></td>
                      <td width="148"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                        <input type="text" size="30" name="Email" maxlength="100">
                        </font></td>
                    </tr>
                    <tr> 
                      <td width="74"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Kommentar:</b></font></td>
                      <td width="148" rowspan="2"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                        <textarea cols="30" name="Kommentar"></textarea>
                        </font></td>
                    </tr>
                    <tr> 
                      <td width="74">&nbsp;</td>
                    </tr>
                  </table>
                  <input type="submit" name="Submit" value="Skicka!">
                </form>
                <% Request.Form("FirstName")%>
                <% Request.Form("Email")%>
                <% Request.Form("Kommentar")%>
                <%
Dim filesys1, peoplefile1

Set filesys1 = CreateObject("Scripting.FileSystemObject")
Set peoplefile1 = filesys1.OpenTextFile("gbpeople.txt", 8, true)
peoplefile1.WriteLine Request.Form("FirstName")
peoplefile1.WriteLine Request.Form("Email")
peoplefile1.WriteLine Request.Form("Kommentar")
peoplefile1.Close
%>
                <%
Dim filesys, peoplefile, fname, email, kommentar
Set filesys = CreateObject("Scripting.FileSystemObject")
Set peoplefile = filesys.OpenTextFile("gbpeople.txt", 1)
do while not peoplefile.AtEndOfStream
  fname = peoplefile.ReadLine
  email = peoplefile.ReadLine
  kommentar = peoplefile.ReadLine
%>
                
              <table width="300" border="0" cellspacing="1" cellpadding="3" bgcolor="#000000" align="center">
                <tr bgcolor="#CCCCCC"> 
                    <td bgcolor="#336666"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFCC66">Namn:<br></font> 
                      </b> 
                      <% Response.Write fname %>
                      </font></td>
                    <td bgcolor="#336666"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFCC66">E-mail:<br>
                    <a href="mailto:<% Response.Write email %>"><font color="#FFFFFF"><% Response.Write email %></font></a></font></b> 
                    
                    </font></td>
                  </tr>
                  <tr bgcolor="#CCCCCC"> 
                    <td colspan="2"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <% Response.Write kommentar %>
                      </font></td>
                  </tr>
                </table>
                <p> 
<%
loop
peoplefile.Close
%>

Vad skall jag ändra?
Tack på förhand

------------------
/Patrik B

emissionMedlem sedan dec. 19996 721 inlägg

4 okt. 2001 18:30#2

<%
Dim filesys, peoplefile, contents
Set filesys = CreateObject("Scripting.FileSystemObject")

Set peoplefile = filesys.OpenTextFile("gbpeople.txt", 1)
contents = peoplefile.ReadAll
peopleFile.Close

if not instr(contents,Request.Form("FirstName") & vbcrlf & Request.Form("Email") & vbcrlf & Request.Form("Kommentar"))>0 then

Set peoplefile = filesys.OpenTextFile("gbpeople.txt", 8, true)
peoplefile.WriteLine Request.Form("FirstName")
peoplefile.WriteLine Request.Form("Email")
peoplefile.WriteLine Request.Form("Kommentar")
peoplefile.Close
end if

Dim fname, email, kommentar
Set peoplefile = filesys.OpenTextFile("gbpeople.txt", 1)
do while not peoplefile.AtEndOfStream
fname = peoplefile.ReadLine
email = peoplefile.ReadLine
kommentar = peoplefile.ReadLine
%>

------------------
/emission
If you see someone without a smiley, give them your colon.

deoizMedlem sedan juni 200031 inlägg

4 okt. 2001 18:38#3

Okaj...

Nu låter jag kanske dumm...
Men vilken del/vilka delar skall jag ersätta med din kod?

------------------
/Patrik B

deoizMedlem sedan juni 200031 inlägg

4 okt. 2001 18:46#4

Okej... jag tror at jag fik cin det rätt...
men det är ingen skilnad från den kod somjag skrev ???

vad gör jag fel...

den tycks skriva ut info e namn, mail och kommentar varje gång man går inpå sidan ?

------------------
/Patrik B