Here's another case where it fails, although this html was making an "expected
end of statement" error that i was not able to be rid of (after switching from
the asp to just html), the document.all error is also reproduced.
HTML:
<html><head>
<title>my page 2</title>
<SCRIPT LANGUAGE=vbscript>
<!--
Sub chkZeroDecimals_OnClick
frmInsert.chkTwoDecimals.status = false
End Sub
Sub chkTwoDecimals_OnClick
frmInsert.chkZeroDecimals.status = false
End Sub
Sub hplTwo_OnClick
dim intSearch
dim intInitialPosition
dim intFinalPosition
dim intAuxiliaryCount
dim strValuesP23
dim strFields
dim intDecimals
if document.all("txtIdentification").value <> "" and
IsNumber(trim(document.all("txtIdentification").value)) = true then
if len(trim(document.all("txtIdentification").value))=8 then
document.all("txtCheckDigit").value =
CheckDigit(document.all("txtIdentification").value)
frmFields.action = "ClearingEntityP2C.asp"
frmFields.submit
else
window.alert "Por favor, digite una Identificación
válida (8 dígitos)."
end if
end if
End Sub
-->
</SCRIPT>
</head>
<body>
<table width="100%" border="0">
<tr>
<td align="middle" valign="top" colspan="2" width="68%"><hr
color="#000066">
</td>
<td align="middle" width="32%" bgcolor="#000066"><font
color="white" size="3" face="Verdana, arial"><strong>Page
Title</strong></font></td>
</tr>
</table><meta HTTP-EQUIV="REFRESH" CONTENT="1860; URL=LoginC.asp"
target="mainFrame">
<input type="hidden" name="txtProcessControl" id="txtProcessControl"
value="0">
<TABLE border=0 cellPadding=1 cellSpacing=1 width="100%" bgcolor="#000066"
align="center">
<TR bgcolor="#000066">
<TD width="20%">
<P align=left><font ID="idMenuTitle1"
CLASS="clsMenuTitle" color="#FFFFFF">Inicio</font></P>
</TD>
</TR>
</TABLE>
<SCRIPT LANGUAGE=vbscript>
<!--
Sub idMenuTitle1_Onclick
location.href = "HomeC.asp"
End Sub
-->
</SCRIPT>
<Script Language="JavaScript">
<!--
if (document.all && window.print) {
document.oncontextmenu = right;
}
function right(e) {
return false;
}
//-->
</Script>
<table width="100%" border="0">
<tr style="BORDER-BOTTOM: black">
<td colspan="6" bordercolor="#000000" bgcolor="#ffffff">
<p><u><font color="#000066"><b><font color="#000066"
face=Tahoma
>Información</font></b></font></u></p>
</td>
</tr>
<form action="ClearingEntityI.asp" method="post" id=frmInsert
name=frmInsert onSubmit="return CheckData()">
<tr>
<td colspan="3"><font size="2" face="Tahoma"><b><font
color="#000066">Identificación:</font></b></font></td>
<td colspan="3" width="50%"><font size="2"
face="Tahoma"><b><font color="#000066">Digito de
Chequeo:</font></b></font></td>
</tr>
<tr>
<td colspan="3"> <font size="2" face="Tahoma">
<input name="txtIdentification" size="8" maxlength="8"
id=txtIdentification value="" onBlur="VerifyIdentification(this.value);">
<Script language="JavaScript">
function VerifyIdentification(ValueSet){
if (ValueSet.replace(' ', '') != '')
{
if ("98989898".indexOf(ValueSet) > -1){
alert("La Identification que está
queriendo utilizar, \nestá siendo utilizada por otra Camara de
Compensación.\nPor favor cambie la identificación.");
document.frmInsert.txtIdentification.value = '';
document.frmInsert.txtIdentification.focus();
}
}
}
</script>
<IMG alt ="" height=14 src="images/required.gif" width=18
></font></td>
<td colspan="3" width="50%"> <font size="2" face="Tahoma">
<input name="txtCheckDigit" size="1" maxlength="1" disabled
style="BACKGROUND-COLOR: silver"
id=txtCheckDigit value="">
</font></td>
</tr>
<input type="hidden" name="txtDistributeInternationalTransactions"
id="txtDistributeInternationalTransactions" value="0">
<input type="hidden" name="txtItemLevelReject" id="txtItemLevelReject"
value="0">
<tr>
<td colspan="3"><font size="2" face="Tahoma"><b><font
color="#000066">Nombre:</font></b></font></td>
<td colspan="3" width="50%"><font size="2"
face="Tahoma"><b><font
color="#000066">Fax:</font></b></font></td>
</tr>
<tr>
<script language="JavaScript">
function VerifyName(ValueSet){
if (ValueSet.replace(' ', '') != '')
{
if
("OPERADOR,".toUpperCase().indexOf(ValueSet.toUpperCase()) > -1){
alert("El nombre que está queriendo
utilizar, \nestá siendo utilizado por otra Camara de Compensación.\nPor favor
cambie el nombre.");
document.frmInsert.txtName.value = '';
document.frmInsert.txtName.focus();
}
}
}
</script>
<td colspan="3"><font size="2" face="Tahoma">
<input name="txtName" size="23" maxlength="23" id=txtName value=""
onBlur="javascript: VerifyName(this.value);">
<IMG alt ="" height=14 src="images/required.gif" width=18 >
</font></td>
<td colspan="3" width="50%"> <font size="2" face="Tahoma">
<input name="txtFax" size="10" maxlength="10" id=txtFax value="">
</font></td>
</tr>
<tr>
<td colspan="3"><font size="2" face="Tahoma"><b><font
color="#000066">Dirección:</font></b></font></td>
<td colspan="3" width="50%"><font size="2"
face="Tahoma"><b><font color="#000066">Correo
Electrónico:</font></b></font></td>
</tr>
<tr>
<td colspan="3"> <font size="2" face="Tahoma">
<input name="txtAddress" maxlength="20" id=txtAddress value="">
<IMG alt ="" height=14 src="images/required.gif" width=18 >
</font></td>
<td colspan="3" width="50%"> <font size="2" face="Tahoma">
<input name="txtEmail" size="40" maxlength="40" id=txtEmail value="">
<IMG alt ="" height=14 src="images/required.gif" width=18 >
</font></td>
</tr>
<tr>
<td colspan="3"><font size="2" face="Tahoma"><b><font
color="#000066">Teléfono:</font></b></font></td>
<td colspan="3" width="50%"><font color="#000066" size="2"
face="Tahoma"><b>Decimales:</b></font></td>
</tr>
<tr>
<td colspan="3"> <font size="2" face="Tahoma">
<input name="txtPhone" size="10" maxlength="10" id=txtPhone value="">
<IMG alt ="" height=14 src="images/required.gif" width=18 >
</font></td>
<td colspan="3" width="50%"> <font size="2" face="Tahoma">
<input type="radio" name="ZeroDecimals" value="radiobutton" checked
id=chkZeroDecimals>
<b><font color="#000066">Sin decimales
<input type="radio" name="chkTwoDecimals" value="radiobutton"
id=chkTwoDecimals>
Dos decimales<IMG alt ="" height=14 src="images/required.gif" width=18
> </font></b></font></td>
</tr>
<tr>
<td colspan="3"> </td>
<td colspan="3" width="50%"> </td>
</tr>
<tr>
<td colspan="3"> </td>
<td colspan="3" width="50%"> </td>
</tr>
<tr>
<td colspan="3"><font face="Tahoma"
size="2"><b></b></font></td>
<td colspan="3" width="50%">
<div align="right"><font face="Tahoma" size="2"><b><IMG alt
="" height=14 src="images/required.gif" width=18 > <font
color="#000066">Información
requerida.</font></b></font></div>
</td>
</tr>
<tr height="10">
<td width="16%">
<div align="center"><font face="Tahoma" size="2"><b>
<input type="submit" name="cmdInsert" value="Guardar" id=cmdInsert
onclick="return checkdata()">
<input name="txtFieldsH" size="2" id=txtFieldsH style="VISIBILITY:
hidden" value=",,,,,,,,,,,,,,,,">
</b></font></div>
</td>
</form>
<form action="ClearingEntityP0.asp" method="post" id=frmCancel
name=frmCancel>
<td width="16%">
<div align="center">
<input type="submit" name="cmdCancel" value="Cancelar" id=cmdCancel>
</div>
</td>
</form>
<td width="18%">
</td>
<form method="post" id=frmFields name=frmFields>
<TD width="25%">
<input name="txtFields" size="2" id=txtFields style="VISIBILITY: hidden"
value=",,,,,,,,,,,,,,,,">
<input type="hidden" name="txtIdentificationIntV"
Id="txtIdentificationIntV" value="">
<input type="hidden" name="txtCheckDigitIntV" Id="txtCheckDigitIntV"
value="">
</TD>
</form>
<td colspan="2" width="25%">
<div align="right"><font size="1"
face="Tahoma"><b></b></font></div>
<div align="right"><font size="1" face="Tahoma"><b><font
color="#000066">1 <A id=hplTwo name=hplTwo
style="cursor:hand"><u>2</u></A> <A id=hplThree name=hplThree
style="cursor:hand"><u>3</u></A></font></b></font></div>
</td></TR>
</table>
</body>
</html>
WATIR:
require "Watir"
include Watir
def random_string( len )
chars = ("A".."Z").to_a + ("0".."9").to_a
newpass = ""
1.upto(len) { |i| newpass << chars[rand(chars.size-1)] }
return newpass
end
def random_int( len )
chars = ("0".."9").to_a
newpass = ""
1.upto(len) { |i| newpass << chars[rand(chars.size-1)] }
return newpass
end
test_site = "http://192.168.1.24/watirReproduce2.html";
mainFrame = IE.new
mainFrame.goto(test_site)
randIdent = random_int(8)
randomName = random_string(16)
mainFrame.text_field(:name,"txtIdentification").set(randIdent)
mainFrame.text_field(:name,"txtName").set(randomName)
mainFrame.text_field(:name,"txtFax").set(randIdent)
mainFrame.text_field(:name,"txtAddress").set(randomName)
mainFrame.text_field(:name,"txtEmail").set(randomName+"@hotmail.com")
mainFrame.text_field(:name,"txtPhone").set(randIdent)
mainFrame.link(:id,%r{hplTwo}).click
I hope this helps you narrow down the issue a bit further.
Thanks for all you do!!!
---------------------------------------------------------------------
Posted via Jive Forums
http://forums.openqa.org/thread.jspa?threadID=6554&messageID=18841#18841
_______________________________________________
Wtr-general mailing list
[email protected]
http://rubyforge.org/mailman/listinfo/wtr-general
