sammenlægning af to forms
jeg har disse to forms jeg gerne skulle kunne submitte på en gang<form name="sampleform" action="sideopret.asp" method=post>
<table>
<tr><h4>Her kan du oprette nye sider</h4></tr>
<tr>
<td>
SideNavn:</td><td><input type=text name=page size=70> f.eks test.asp skriv test.asp
</td>
</tr>
<tr>
<td>
Overskrift:</td><td> <input type=text name=overskrift size=70>vis siden skal ha en overskrift
</td>
</tr>
<tr>
<td>Tekst:</td><td><br> <textarea rows="6" name=tekst cols="60"></textarea></td>
</tr>
</table><br><br>
<!--<input type=submit value=Opret name=Valg>-->
<script language="JavaScript1.2" defer>
editor_generate('tekst');
</script>
</form>
<%
dim Valg, tekst, foto1, foto2 ,oCon, strConnect, SQL
Valg = request.form("Valg")
if Valg = "" then
else
page = request.form("page")
overskrift = request.form("overskrift")
tekst = request.form("tekst")
SQL = "Insert into sider (page, overskrift, tekst) values('" & page & "','" & overskrift &"','" & tekst & "')"
set oCon = server.createobject("ADODB.Connection")
oCon.Open strConnect
oCon.Execute SQL
oCon.Close
Set oCon = nothing
'Response.write "Posten er oprettet - hvis du vil oprette flere projekter <a href=projektopret.asp>klik her</a><br><br>"
response.write "Posten er oprettet og jeg vil tilbage til oversigten <a href=sideliste.asp>klik her</a>"
end if
%>
<%
if request.querystring("act") = "rename" then
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFile server.mappath("blankside.asp"), server.mappath("" & request.form("filnavn"))
set fs=nothing
response.redirect request.servervariables("SCRIPT_NAME")
else
%>
<html>
<body>
<form action="<%=request.servervariables("SCRIPT_NAME")%>?act=rename" method="post">
<input type="text" name="filnavn" size="40">
<br>
<input type="submit" value="opret">
</form>
</body>
</html>
<%end if%>
</body>
