Jeg kan ikke tilskrive variabel i java
<script language="javascript"><!--
function validate(f) {
valid = true;
var lovlige = "+0123456789";
for (i=0; i<f.mobil.value.length; i++){
if (lovlige.indexOf(f.mobil.value.charAt(i)) < 0) {
alert("Fejl i mobilnummer - kan kun best\345 af tal");
f.mobil.select();
f.mobil.focus();
valid = false;
break;
}
}
if (f.mobil.value.lastIndexOf("+") != 0) {
alert("Mobilnummeret skal starte med +");
f.mobil.select();
f.mobil.focus();
valid = false;
}
return valid;
}
function changeContent(what,text)
{
document.getElementById(what).innerHTML = text;
}
function SvarSMS()
{
document.forms[0].mobil.value=document.forms[0].Sms.options[document.forms[0].Sms.selectedIndex].value;
changeContent("retSmsInd",textlist[document.forms[0].Sms.selectedIndex]);
document.forms[0].texttosend.focus();
}
function VisSMS()
{
changeContent("retSmsInd",textlist[document.forms[0].Sms.selectedIndex]);
}
function SmsId()
{
document.forms[0].smsid.value=idlist[document.forms[0].Sms.selectedIndex];
// document.forms[0].elements[0].value=idlist[document.forms[0].Sms.selectedIndex];
}
//-->
</script>
<style type="text/css">
.inputs
{
overflow:auto;
width:100%;
color:#330033;
font-family:Verdana;
font-weight:700; font-size:8pt;
Background-color:#FFFFFF;
}
.inputs2
{
color:#3300FF;
border-style:dotted; border-width:1px;
font-family:Verdana;
font-weight:700; font-size:8pt;
}
</style>
</head>
<body onLoad="document.forms[0].texttosend.focus();VisSMS();" topmargin="2">
<form method=Post action="SMSsend.asp" OnSubmit="SmsId();return validate(this);">
<Input type="text" name"smsid" Value="">
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td Width="50%" style="MARGIN-LEFT: 10px">
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td><font size="2"><b><%=Request.Querystring("navn")%></b></font></td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td>
<%if Len(Trim(Request.Querystring("Mobil")))=8 Then%>
<input type="text" name="mobil" value="+45<%=Trim(Request.Querystring("Mobil"))%>">
<%else
Dim Mobilnr
Mobilnr=Trim(Replace(Request.Querystring("Mobil")," ",""))
if len(mobilnr)>2 Then Mobilnr="+"&Right(Mobilnr,len(Mobilnr)-2)
%>
<input type="text" name="mobil" value="<%=Mobilnr%>">
<% end if%>
<font size="2"><b><%=Request.Querystring("Kontakt")%></b></font>
</td>
</tr>
</table>
<table width=90% border=0 cellspacing=0 cellpadding=0>
<tr>
<td> <textarea class="inputs" name="texttosend" rows=5 cols=50></textarea></td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td align=left>
<INPUT type="Submit" name=Action style="HEIGHT: 20px; WIDTH: 75px" value="Send SMS">
<INPUT type="button" name=Action style="HEIGHT: 20px; WIDTH: 75px" value="Annuller" onClick="self.close()">
</td>
</tr>
</table>
</td>
<td Width="50%" style="MARGIN-LEFT: 10px">
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<%
Dim IoConn,Rs,Sqlstr,dato,tidsec,tid,DatoStart,NavnList,TextList,navn,IdList
Set IoConn=createobject("adodb.connection")
set rs=server.Createobject("adodb.Recordset")
IoConn.Open("DSN=Hesselholt")
IoConn.Execute("DELETE FROM SMSIncoming WHERE type=3")
sqlstr="SELECT * from SMSIncoming Where type=1 order by tmstamp asc "
rs.open sqlstr, IoConn,3,3
DatoStart=""
NavnList=""
IdList="var idlist=new Array("
TextList="var textlist=new Array("
While Not RS.EOF
If DatoStart<>left(rs.fields("tmstamp"),8) Then
NavnList=NavnList & "<optgroup Class=inputs Label='" &"Indg. SMS - " & left(rs.fields("tmstamp"),8) & "'"&">"
DatoStart=left(rs.fields("tmstamp"),8)
end if
Dato=left(rs.fields("tmstamp"),8)
TidSec=right(rs.fields("tmstamp"),8)
Tid=left(TidSec,5)
NavnList=NavnList & "<option class=inputs2 value='" &"+"& Rs.Fields("phonenumber") &"' SELECTED>" &Tid&" "&"+"&RS.Fields("phonenumber")&" - "&Rs.Fields("data")&"</option>"
TextList=TextList&"'" & Rs.Fields("data") &"',"
IDList=IDList &"'" & Rs.Fields("id") &"',"
RS.MoveNext
Wend
TextList=Mid(TextList,1,Len(TextList)-1) & ");"
IdList=Mid(IdList,1,Len(IdList)-1) & ");"
%>
<script>
<%=TextList%>
<%=IDList%>
</script>
<td width="100%" height="10">
<select Class="inputs2" name="Sms" style="width: 100%" onClick="VisSMS();" onChange="VisSMS();" size=5><%=navnlist%>
</select>
</td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td width="100%" style="color:#666699;border-style:solid; border-width:2px;">
<div Class="inputs" name="retSmsInd" id="retSmsInd" STYLE="margin-right:0px; width:100%; height:45px;" frameborder=1 scrolling=no>
</div>
</td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td align=left>
<INPUT type=button name=Action style="HEIGHT: 20px; WIDTH: 75px" value="Besvar" onClick="SvarSMS();">
<INPUT type=button name=Action style="HEIGHT: 20px; WIDTH: 75px" value="Slet" onClick="SmsId();">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
RS.Close
IoConn.Close
Set IoConn = nothing
set rs=nothing
%>
Jeg har en variabel smsid som jeg forsøger at tilskrive i
function smsid() det sker ikke - hvad er galt ?
