Sv: Något konstigt...

Något konstigt...

Postades av 2005-12-14 12:35:59 - Björn Jansson, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 424 personer

Har skapat ett enkelt formulär:
<code>
<form name="newobj.asp" method="post">
<table class="text" width="450" border="0" cellspacing="0" cellpadding="1">
<tr><td>Text</td><td><input type="text" name="text" size="18" class="textfield"></td></tr>
<tr><td>Code</td><td><input type="text" name="code" size="18" class="textfield"></td></tr>
<tr><td>URL</td><td><input type="text" name="url" size="18" class="textfield"></td></tr>
<tr><td>OpenWin</td><td><input type="text" name="opentype" size="18" class="textfield"></td></tr>
<tr><td>Misc</td><td><input type="text" name="misc" size="18" class="textfield"></td></Tr>
<tr><td>Kategori</td><td><select name="kategori" class="textfield">
<option value="2">Interaktivitet
<option value="1">Nyheter
<option value="3">Statistik
<option value="4">Övrigt
</select></td></tr>
</table>
<input type="button" class="button90" onclick="checkform_okeysubmit();" value="Spara">
<script language="javascript">
var objects = new Array();
objects[objects.length] = 'Admin';
objects[objects.length] = 'Galleri';
objects[objects.length] = 'GoIKTV';
objects[objects.length] = 'Kalender';
objects[objects.length] = 'Kronika';
objects[objects.length] = 'NyhetA';
objects[objects.length] = 'NyhetB';
objects[objects.length] = 'NyhetC';
objects[objects.length] = 'NyhetF89';
objects[objects.length] = 'NyhetGen';
objects[objects.length] = 'NyhetJ';
objects[objects.length] = 'NyhetP91';
objects[objects.length] = 'NyhetP92';
objects[objects.length] = 'NyhetP93';
objects[objects.length] = 'NyhetP94';
objects[objects.length] = 'NyhetP95';
objects[objects.length] = 'NyhetP9697';
objects[objects.length] = 'Omrost';
objects[objects.length] = 'Planbok';
objects[objects.length] = 'Planket';
objects[objects.length] = 'PlanketIP';
objects[objects.length] = 'StatSida';
objects[objects.length] = 'StatSpel';
objects[objects.length] = 'Tracker';
objects[objects.length] = 'Vykort';

function checkform_okeysubmit()
{
var errMsg = 'Följande fel hittades: \n\n';
var z = document.forms[0];
if (z.text.value.length < 3)
{
errMsg += '\n* Objektets text-variabel är för kort';
}
if (z.code.value.length < 3)
{
errMsg += '\n* Objektets code-variabel är för kort';
}
if (z.url.value.length < 5 || z.url.value.indexOf('.') == -1)
{
errMsg += '\n* Objektets url-värde är för kort och/eller är inte i korrekt format';
}
if (z.opentype.value.length > 0 && z.opentype.value.length < 6)
{
errMsg += '\n* Objektets opentype-värde är för kort';
}
for (ii = 0; ii != objects.length; ii ++)
{
if (z.code.value == objects[ii])
{
errMsg += '\n* Objektets code-variabel måste vara unik (1 träff)';
break;
}
}
if (errMsg != "Följande fel hittades: \n\n")
{
alert(errMsg)
}
else
{
document.forms[0].submit();
}
}
</Script>
</code>

Infon skickas till newobj.asp, som ser ut som följer:
<code>
<html>

<%
Response.Buffer = true
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb")
sqltext = "SELECT * FROM Objects "
rst.Open sqltext,cnn,3,3
rst.Addnew
rst("text") = request.form("text")
rst("code") = request.form("code")
rst("url") = request.form("url")
rst("opentype") = request.form("opentype")
rst("misc") = request.form("misc")
rst("kategori") = request.form("kategori")
rst.update
response.redirect("editor.asp?act=med&med=4")
%>
</html>
</code>

Jag antar att jag kommer lösa det inom två minuter, för det brukar alltid bli så när jag postar något här. Men hjälp tages tacksamt emot, just nu är jag helt väck.

Tack,
Björn

Svara