H.j.ä.l.p---
Okej nu ska vi se om jag kan vara tydlig!
Börja med att gå in på: http://www.citruz.nu/GB/gb.asp
* Skriv in något i formuläret
[KOD]
<form method="POST" action="gbproc.asp">
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Namn</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">:
<input type="text" size="20" name="FirstName">
<br>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">:
<input type="text" size="30" name="Email">
<br>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Kommentar:
<input type="text" size="30" name="Kommentar">
</font></p>
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Skicka!">
</font></p>
</form>
[KOD]
Som ni kan se skickar denna form kod till ett annat dokument, "logistiken" för input datan från formen i detta dokumentet är:
[KOD]
<%
=Request.Form("FirstName")
Request.Form("Email")
Request.Form("Kommentar")
%>
<p>
<%
Dim filesys, peoplefile
Set filesys = CreateObject("Scripting.FileSystemObject")
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
%>
[KOD]
som ni kan se sparar denna kodsnutt "från logistik" koden i det andra dokumentet inputen från den andra sidan i en fil...
Längre ner på gb.asp (sidan du med formen). ligger den del som visar innehållet i filen dit datan skrevs som erhölls av formen på samma sida (högre upp).
[KOD]
<%
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="0" bgcolor="#000000">
<tr bgcolor="#CCCCCC">
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Namn: </b>
<% Response.Write fname %>
</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>E-mail: </b>
<% Response.Write email %>
</font></td>
</tr>
<tr>
<td colspan="2" bgcolor="#CCCCCC"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% Response.Write kommentar %>
</font></td>
</tr>
</table>
<p>
<%
loop
peoplefile.Close
%>
[KOD]
Men detta tycker jag verkar onödigt, så jag vill flytta logistiken till samma sidan och även lägga in någon form av (javascript kanske) som uppdaterar sajten efter det att man skrivit in data i form-fälten...
Nu till den stor frågan...
Hur gör jag detta?
Tack på förhand och ursäkta om jag låter luddig i det jag beskriver...
------------------
/Patrik B