<!--#include file="inc_settings.asp"-->
<!--#include file="inc_styles.asp"-->
<body bgcolor="<%Response.Write(strMAINBACKGROUNDCOLOR)%>" class="maintekst">
<!--#include file="dbconn.asp"-->
<%
If Request.QueryString("edit") = "1" Then
%>
<form name="jump">
<select name="menu" class="form-standard" onChange="location=document.jump.menu.options[document.jump.menu.selectedIndex].value;" value="GO">
<option value="#">-</option>
<option value="create_subsite.asp?edit=2">Subsite with a headline & a text</option>
<option value="create_subsite.asp?edit=3">Subsite with a headline & a text & a picture</option>
<option value="create_subsite.asp?edit=4">Subsite with a text</option>
<option value="create_subsite.asp?edit=5">Subsite with a headline & a picture</option>
</select>
</form>
<%
End if
%>
<%
If Request.Querystring("edit") = "2" Then
%>
<form name="form1" method="post" action="create_subsite.asp?create=2">
<p> Headline:<br>
<input name="formHEADLINE" type="text" class="form-standard" id="formHEADLINE" size="70">
</p>
<p> Site text:<br>
<textarea name="formTEXT" cols="71" rows="20" class="form-standard" id="formTEXT"></textarea>
</p>
<p> In what submenu should this site be placed?<br>
<select name="formMENUCAT" class="form-standard" id="formMENUCAT">
<%
strSQL = "SELECT * FROM MENUCAT"
Set rs = Conn.Execute(strSQL)
%>
<%
do
strMENUCAT = rs("MENUCAT")
%>
<option value="<%Response.Write(strMENUCAT)%>">
<%Response.Write(strMENUCAT)%>
</option>
<%
rs.movenext
loop while not rs.eof
rs.close
set rs = nothing
%>
</select>
</p>
<p>What do you wanna name the link in the menu for this site? (max 20 chars)<br>
<input name="formLINKNAME" type="text" class="form-standard" id="formLINKNAME" size="20" maxlength="20">
</p>
<p>
<input name="Submit" type="submit" class="form-standard" value="Submit">
</p>
</form>
<%
End if
%>
<%
If Request.Querystring("create") = "2" Then
%>
<%
' L = "INSERT INTO SUBSITES(MENUCAT, HEADLINE, TEXT, LINKNAME) VALUES('"&Request.Form("formMENUCAT")&"', '"&Request.Form("formHEADLINE")&"', '"&Request.Form("formTEXT")&"', '"&Request.Form("formLINKNAME")&"')"
' Conn.Execute(strSQL)
SQLstmt = "INSERT INTO settings (HEADLINE, TEXT, MENUCAT, LINKNAME)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("formHEADLINE") & "','" & request.form("formTEXT") & "','" & request.servervariables("formMENUCAT") & "', ,'" & request.servervariables("formLINKNAME") & "')"
Conn.execute(SQLstmt)
%>
<%
End if
%>
<!--#include file="dbclose.asp"-->
</body>
Ny bruger
Nybegynder
Opret
Preview
