I tried this page, but at load up it gives me this error: Expected End of STatement, Line 86 char 33 that line is <input name="txtIdentification" size="8" maxlength="8" id=txtIdentification value="" onBlur="VerifyIdentification(this.value);">
Im using IE7 on WIn Xp If you can fix this problem, then I will have another go at repeating the watir issue Paul ----- Original Message ----- From: "Federico Vela" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, February 16, 2007 2:10 PM Subject: Re: [Wtr-general] VBScript Fails with Watir 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 _______________________________________________ Wtr-general mailing list [email protected] http://rubyforge.org/mailman/listinfo/wtr-general
