Debugging

A

Amateur

Dear Sirs,
If I preview my ASP page I receive an error "unterminated string error" for
most of the follwing code lines:

<tr><td align="center" colspan="3">
<p>
<% If cmd<>"New" And cmd<>"Copy" Then %>
<input type="button" value="¦<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir al primer registro")%>
Class="formpagebutton">
<input type="button" value="<<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Mueva un registro hacia atrás")%> Class="formpagebutton">
<input type="text" size="8" Value="<%=Session("CurRec")%> de
<%=Session("NumOfRecs")%>" Class="formpagebutton">
<input type="button" value=">>"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir para registrar después")%>
Class="formpagebutton">
<input type="button" value=">¦"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir al último registro")%>
Class="formpagebutton">
<p>

<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
salvar sus cambios")%> Class="formpagebutton">
<input type="button" value="Borrar"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
Class="formpagebutton">
<input type="button" value="Nuevo"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
Class="formpagebutton" style="float: right">
<input type="button" value="Print"
onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
<%=ShowTextOnPic("Click here to print the current record")%>
Class="formpagebutton"><input type="hidden" name="autonumber"
value="<%=session("autonumber")%>">
<input type="Hidden"name="cmd" value="Save">
<% Else %>
<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para salvar
el nuevo registro")%> Class="formpagebutton">
<input type="button" value="Anular"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
<%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
Class="formpagebutton">
<input type="hidden" name="cmd" value="SaveNew">
<%End If %>
</td></tr>

Can someone tell me what that means and how to debug that?

Thanks
Klaus
 
M

Murray

Looks to me like you have quotation problems here -

onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"

Try changing that to this -

onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>"

in every case....

--
Murray
MVP Expression Web


Amateur said:
Dear Sirs,
If I preview my ASP page I receive an error "unterminated string error"
for
most of the follwing code lines:

<tr><td align="center" colspan="3">
<p>
<% If cmd<>"New" And cmd<>"Copy" Then %>
<input type="button" value="¦<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir al primer registro")%>
Class="formpagebutton">
<input type="button" value="<<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Mueva un registro hacia atrás")%>
Class="formpagebutton">
<input type="text" size="8" Value="<%=Session("CurRec")%> de
<%=Session("NumOfRecs")%>" Class="formpagebutton">
<input type="button" value=">>"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir para registrar después")%>
Class="formpagebutton">
<input type="button" value=">¦"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir al último registro")%>
Class="formpagebutton">
<p>

<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
salvar sus cambios")%> Class="formpagebutton">
<input type="button" value="Borrar"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
Class="formpagebutton">
<input type="button" value="Nuevo"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
Class="formpagebutton" style="float: right">
<input type="button" value="Print"
onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
<%=ShowTextOnPic("Click here to print the current record")%>
Class="formpagebutton"><input type="hidden" name="autonumber"
value="<%=session("autonumber")%>">
<input type="Hidden"name="cmd" value="Save">
<% Else %>
<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para
salvar
el nuevo registro")%> Class="formpagebutton">
<input type="button" value="Anular"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
<%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
Class="formpagebutton">
<input type="hidden" name="cmd" value="SaveNew">
<%End If %>
</td></tr>

Can someone tell me what that means and how to debug that?

Thanks
Klaus
 
A

Amateur

Hello,
I changed like you said - now I get immidiately the following error message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/salespersonal/1001/contactos_1001-1form.asp, line 430

Response.Write(Session('autonumber'))
-----------------------^

The code is like follows now:

<% If cmd<>"New" And cmd<>"Copy" Then %>
<input type="button" value="¦<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>"
<%=ShowTextOnPic("Chasquido para ir al primer registro")%>
Class="formpagebutton">
<input type="button" value="<<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session('autonumber')%>"
<%=ShowTextOnPic("Mueva un registro hacia atrás")%> Class="formpagebutton">
<input type="text" size="8" Value="<%=Session("CurRec")%> de
<%=Session("NumOfRecs")%>" Class="formpagebutton">
<input type="button" value=">>"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session('autonumber')%>"
<%=ShowTextOnPic("Chasquido para ir para registrar después")%>
Class="formpagebutton">
<input type="button" value=">¦"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session('autonumber')%>"
<%=ShowTextOnPic("Chasquido para ir al último registro")%>
Class="formpagebutton">
<p>

<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
salvar sus cambios")%> Class="formpagebutton">
<input type="button" value="Borrar"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session('autonumber')%>"
<%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
Class="formpagebutton">
<input type="button" value="Nuevo"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session('autonumber')%>"
<%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
Class="formpagebutton" style="float: right">
<input type="button" value="Print"
onClick="javascript:top.frames['working_area'].location='testformprint.asp?cmd=Fromlist&autonumber=<%=CStr(Session('autonumber'))%>"
<%=ShowTextOnPic("Click here to print the current record")%>
Class="formpagebutton">
<input type="hidden" name="autonumber" value="<%=session('autonumber')%>">
<input type="Hidden"name="cmd" value="Save">
<% Else %>
<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para salvar
el nuevo registro")%> Class="formpagebutton">
<input type="button" value="Anular"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
<%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
Class="formpagebutton">
<input type="hidden" name="cmd" value="SaveNew">
<%End If %>

Line 430 is : <% If cmd<>"New" And cmd<>"Copy" Then %>

Any idea to help me would be very kind.
Thaks
Klaus


Murray said:
Looks to me like you have quotation problems here -

onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"

Try changing that to this -

onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>"

in every case....

--
Murray
MVP Expression Web


Amateur said:
Dear Sirs,
If I preview my ASP page I receive an error "unterminated string error"
for
most of the follwing code lines:

<tr><td align="center" colspan="3">
<p>
<% If cmd<>"New" And cmd<>"Copy" Then %>
<input type="button" value="¦<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir al primer registro")%>
Class="formpagebutton">
<input type="button" value="<<"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Mueva un registro hacia atrás")%>
Class="formpagebutton">
<input type="text" size="8" Value="<%=Session("CurRec")%> de
<%=Session("NumOfRecs")%>" Class="formpagebutton">
<input type="button" value=">>"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir para registrar después")%>
Class="formpagebutton">
<input type="button" value=">¦"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para ir al último registro")%>
Class="formpagebutton">
<p>

<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
salvar sus cambios")%> Class="formpagebutton">
<input type="button" value="Borrar"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
Class="formpagebutton">
<input type="button" value="Nuevo"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
<%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
Class="formpagebutton" style="float: right">
<input type="button" value="Print"
onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
<%=ShowTextOnPic("Click here to print the current record")%>
Class="formpagebutton"><input type="hidden" name="autonumber"
value="<%=session("autonumber")%>">
<input type="Hidden"name="cmd" value="Save">
<% Else %>
<input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para
salvar
el nuevo registro")%> Class="formpagebutton">
<input type="button" value="Anular"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
<%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
Class="formpagebutton">
<input type="hidden" name="cmd" value="SaveNew">
<%End If %>
</td></tr>

Can someone tell me what that means and how to debug that?

Thanks
Klaus
 
T

Trevor Lawrence

See bottom

Murray said:
Looks to me like you have quotation problems here -

onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"

Try changing that to this -

onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>"

in every case....

But there are still unmatched quotes

I would try
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>'"

At the end of the line is a single quote ( ' ) - to close
location='..........., then double quote (") to close onClick = "...........

I am no asp expert, although I have written some. I assume. however, that
the delimiters <% and %> mean that single quotes used inside them do not
clash with the single quote after location=
 
S

Stefan B Rusynko

Trevor
Your assumption about ASP is incorrect
- it is processed server side
(so by the time the browser sees the session variable it is already a value of some sort and no longer an ASP VB script parameter
with any quotes in it)
- the delimiter in the Session Variable must be inside of double quotes
So Session('autonumber') is not valid VBscript code
- is must be left as Session("autonumber")

--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________


| See bottom
|
| | > Looks to me like you have quotation problems here -
| >
| > onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
| >
| > Try changing that to this -
| >
| > onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>"
| >
| > in every case....
|
| But there are still unmatched quotes
|
| I would try
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session('autonumber')%>'"
|
| At the end of the line is a single quote ( ' ) - to close
| location='..........., then double quote (") to close onClick = "...........
|
| I am no asp expert, although I have written some. I assume. however, that
| the delimiters <% and %> mean that single quotes used inside them do not
| clash with the single quote after location=
| --
| Trevor Lawrence
| Canberra
| Web Site http://trevorl.mvps.org
|
|
 
S

Stefan B Rusynko

You are using the following general syntax for your buttons
(broken up by the button tag parameters)

<input
type="button"
value="text"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=X' "
<%=ShowTextOnPic("Some text here")%>
Class="formpagebutton">

It appears your client side code is properly delimited
(with appropriate single and/or double quotes where needed)

The server side Function <%=ShowTextOnPic("Some text here")%> must evaluate correctly server side
- as a valid client side attribute of the input tag

Without seeing the ASP server side Function in your page ShowTextOnPic()
- it is hard to debug your server side code
- but it needs to write (server side) a valid form tag attribute
(like say: title="Some text here")

Test your Function first (on a ASP page w/ just the function returns) with your string variables to verify it is working
<%
pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
Response .write pictext1
'...etc
%>

PS
You could also do all your server side code evaluation of the functions using the same technique
<%
pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
%>
And in your buttons as say:
<input type="button" value="text" onClick="... " <%=pictext1%> Class="formpagebutton">

--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________


| Dear Sirs,
| If I preview my ASP page I receive an error "unterminated string error" for
| most of the follwing code lines:
|
| <tr><td align="center" colspan="3">
| <p>
| <% If cmd<>"New" And cmd<>"Copy" Then %>
| <input type="button" value="¦<"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para ir al primer registro")%>
| Class="formpagebutton">
| <input type="button" value="<<"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Mueva un registro hacia atrás")%> Class="formpagebutton">
| <input type="text" size="8" Value="<%=Session("CurRec")%> de
| <%=Session("NumOfRecs")%>" Class="formpagebutton">
| <input type="button" value=">>"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para ir para registrar después")%>
| Class="formpagebutton">
| <input type="button" value=">¦"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para ir al último registro")%>
| Class="formpagebutton">
| <p>
|
| <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
| salvar sus cambios")%> Class="formpagebutton">
| <input type="button" value="Borrar"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
| Class="formpagebutton">
| <input type="button" value="Nuevo"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
| Class="formpagebutton" style="float: right">
| <input type="button" value="Print"
| onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
| <%=ShowTextOnPic("Click here to print the current record")%>
| Class="formpagebutton"><input type="hidden" name="autonumber"
| value="<%=session("autonumber")%>">
| <input type="Hidden"name="cmd" value="Save">
| <% Else %>
| <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para salvar
| el nuevo registro")%> Class="formpagebutton">
| <input type="button" value="Anular"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
| <%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
| Class="formpagebutton">
| <input type="hidden" name="cmd" value="SaveNew">
| <%End If %>
| </td></tr>
|
| Can someone tell me what that means and how to debug that?
|
| Thanks
| Klaus
 
A

Amateur

Hello Stefan

did read your suggestions, for which I'm very thankful. I tried what you
said - actually I'm relatively new to this and (to be honest) did not really
understand what I'm doing - and still dont understand in detail what you ment.
Just for security I send to you the complete code with the hope that you can
point me with some easier to understand words in the right direction.

CODE:

<!--#include File ="globalsub.asp"-->
<%

If Request.QueryString("dbcmd")="new" then
response.redirect "contactos_web.asp?cmd=New"
End if
If Request.QueryString("dbcmd")="delete" then
Set conntemp = server.CreateObject("adodb.Connection")
conntemp.open
"DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
SqlStr = "DELETE FROM contactos_1001 WHERE autonumber="+
Request.QueryString("db_autonumber")
conntemp.Execute (SqlStr)
conntemp.Close
SqlStr=""
End if

If Request.QueryString("dbcmd")="save" then
Set conntemp = server.CreateObject("adodb.Connection")
conntemp.open
"DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
SqlStr = "UPDATE contactos_1001 SET "

Sqlstr=SqlStr+"firstname='"+FixDbFieldSave(Request.QueryString("db_firstname")) + "', "

Sqlstr=SqlStr+"lastname='"+FixDbFieldSave(Request.QueryString("db_lastname"))
+ "', "

Sqlstr=SqlStr+"telephone='"+FixDbFieldSave(Request.QueryString("db_telephone")) + "', "

Sqlstr=SqlStr+"mobilephone='"+FixDbFieldSave(Request.QueryString("db_mobilephone")) + "', "
Sqlstr=SqlStr+"sendbrochure="+Request.QueryString("db_sendbrochure") + ", "
Sqlstr=SqlStr+"sendpostvisit="+Request.QueryString("db_sendpostvisit") +
", "

Sqlstr=SqlStr+"information='"+FixDbFieldSave(Request.QueryString("db_information")) + "', "
SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
SqlStr = SqlStr + " WHERE autonumber="+
Request.QueryString("db_autonumber")+ " "
If Instr(sqlstr," SE ")<=0 Then
conntemp.Execute (SqlStr)
End if
conntemp.close
SqlStr=""
End if
gui = request.querystring("gui")
curpage = request.querystring("Curpage")
If Curpage = "" Then Curpage = 1
Interval = request.querystring("Interval")
If Interval = "" Then Interval = 5
prefix=trim(Request.querystring("prefix"))
If prefix = "" then
prefix = "*"
End if
prefix_Operator=trim(Request.querystring("prefix_Operator"))
If prefix_Operator = "" then
prefix_Operator = "OR"
End if
If prefix_Operator = "OR" then
prefix_Operator_ORvar=" checked"
prefix_Operator_ANDvar=""
Else
prefix_Operator_ORvar=""
prefix_Operator_ANDvar=" checked"
End if
If (prefix<>"") And (prefix <> "*") then
SqlStr = SqlStr+"prefix LIKE '%"+prefix+"%' " + prefix_Operator + " "
End if
If SqlStr <> "" Then
SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001
Where "+ SqlStr
SqlStrCount = Mid(SqlStrCount,1,len(SqlStrCount)-4)
Else
SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001"
End if
If SqlStr <> "" Then
SqlStr ="SELECT * FROM contactos_1001 WHERE "+ SqlStr
SqlStr = Mid(SqlStr,1,len(SqlStr)-4)
Else
Sqlstr ="SELECT * FROM contactos_1001"
End if
SqlStr = SqlStr + " ORDER BY autonumber"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="ATAF Version 6.1.0">
<title>Contactosweb</title>
<base target="_self">
<link rel="stylesheet" type="text/css" href="globalcss.css">

<script Language="JavaScript">
function winopenexcel (sqlstr)
{
msg=open("","NewWindow","toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=150");
msg.location = "toexcel.asp?sqlstr="+sqlstr;
msg.focus()
}
</script>

</head>
<body class="formpage" topmargin="0" leftmargin="0" rightmargin="0"
bottommargin="0" marginwidth="0" marginheight="0" style="background-color:
#DFDFDF">
<table width="556" border="0" height="399">
<tr>
<td></tr>
<td></tr>
<td height="2"></td>
</tr>
<tr>
<td></td>
<td align="left"><img border="0" src="../../../BIE/images/c1_top.GIF"
width="556" height="17"></td>
<td height="21"></td>
</tr>
<tr>
<td></td>
<td valign="Default" >
<form method="GET" action="contactos_web.asp" name="contactos_1001"
onSubmit="return Checkform(this);">

<table border="0" cellpadding="0" cellspacing="0" class="formpagetable"
width="556" style="border-width: 0">
<tr>
<td colspan="2">
<table width="552" border="0">

</table>
<tr><td colspan="2" align="centre" class="listpagetablelabel" height="19">
<p align="center">
<input type="submit" value="Lista" Class="listpagebutton"
<%=ShowTextOnPic("Chasquido aquí para poner sus archivos en una lista")%>>
Ver<%=CreateDropDownBox(Cstr(interval), "5;10", "interval", "1",
"class='listpagetablelabel'", Cstr(interval))%> Archivos por página
</td>
</tr>

<p align="left"></td></tr>
<input type="hidden" name="cmd" value="Find">
</table>
</form>
<table border="0" cellpadding="0" cellspacing="0">
<%
If (Request.Querystring("cmd")="Find") Then
Set conntemp = server.CreateObject("adodb.Connection")
conntemp.open
"DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
Set rs = conntemp.Execute(SqlStrCount)
NoOfRecs = rs("NoOfRecs")
Set rs = conntemp.Execute(SqlStr)
If rs.EOF <> True Then
End If
If CInt(curpage) > 1 Then
MoveForward = CInt(Interval) * (CInt(curpage) - 1)
For xx = 1 To MoveForward
If rs.EOF <> True Then
rs.MoveNext
End If
Next
End If
End if
If (Request.Querystring("cmd")="Find") Then
If (rs.EOF<>True) Then
Response.write " <tr class='listpageresultheader'>"
Response.write "<td></td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Nombre"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Apellido"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Teléfono"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Movil"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Bro."
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Carta"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Informaciön"
Response.write " </td>"
Response.write "<td></td>"
Response.write "</tr>"
End if
End if
countrecs=0
If (Request.Querystring("cmd")="Find") Then
If (rs.EOF=True) Then
Response.write "¡Lamentable!, ningunos archivos encontrados"
End if
End if
If (Request.Querystring("cmd")="Find") Then
While (rs.EOF <> True) And (Request.Querystring("cmd")="Find") AND
(countrecs<CInt(Interval))
If lastWas = True Then
Varclass = "listpageresultline"
lastWas = False
Else
Varclass = "listpageresultlinealt"
lastWas = True
End If
Response.write "<form method="+qu+"GET"+qu+"
name="+qu+"db"+CStr(Rs("autonumber"))+qu+" target="+qu+"_self"+qu+">"
Response.write "<input type="+qu+"hidden"+qu+"
name="+qu+"db_autonumber"+qu+" value="+qu+CStr(Rs("autonumber"))+qu+">"
Response.write "<input type="+qu+"hidden"+qu+" name="+qu+"dbcmd"+qu+"
value="+qu+"save"+qu+">"
For Each Item In request.querystring
If (Item <> "dbcmd") And (Mid(item,1,3)<>"db_") Then
Response.Write "<input type="+qu+"hidden"+qu+" name="+qu+item+qu+"
value="+qu+request.querystring(Item)+qu+">"
End If
Next
Response.write "<tr title="+qu+"Chasquido aquí para corregir registro"+qu+"
class="+qu+varclass+qu+"
onClick="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
='listbutselect';"+qu+"
onMouseout="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
='listbutnotselect';"+qu+">"
Response.write "<td><input type="+qu+"button"+qu+" value="+qu+" "+qu+"
name="+qu+"select_button"+qu+"
onClick="+qu+"window.top.frames['I1'].location.href='contactos_1001form.asp?cmd=Fromlist&autonumber="+CStr(Rs("autonumber"))+"'"+qu+"></td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_firstname"+qu+" value="+qu+FillEmpty(rs("firstname"))+qu+"
size="+qu+"8"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_lastname"+qu+" value="+qu+FillEmpty(rs("lastname"))+qu+"
size="+qu+"17"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_telephone"+qu+" value="+qu+FillEmpty(rs("telephone"))+qu+"
size="+qu+"15"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_mobilephone"+qu+" value="+qu+FillEmpty(rs("mobilephone"))+qu+"
size="+qu+"15"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_sendbrochure"+qu+"
value="+qu+FillEmpty(rs("sendbrochure"))+qu+" size="+qu+"2"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_sendpostvisit"+qu+"
value="+qu+FillEmpty(rs("sendpostvisit"))+qu+" size="+qu+"2"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_information"+qu+" value="+qu+FillEmpty(rs("information"))+qu+"
size="+qu+"18"+qu+">"
Response.write "</td>"
Response.write "</td><td>"
Response.write "</td>"
Response.write "</form>"
Response.write "</tr>"+Crlf
countrecs=countrecs+1
Rs.movenext
Wend
End if
If (Request.Querystring("cmd")="Find") Then
rs.Close
Set rs = Nothing
conntemp.Close
Set conntemp = Nothing
End if
%>
</table>

<%
If (Request.Querystring("cmd")="Find") Then%>
<center>
<div align="center">
<%=IntervalBox(curpage, Interval, NoOfRecs, "contactos_web.asp",
request.querystring, "#000000", "2")%>
</center>
</div>
<%End If
%>
</td><td height="45"></td>
</tr>
<tr>
<td></td>
<td> </td>
<td height="239"></td>
</tr>
<tr>
<td valign="top" align="middle" width="4"></td><td width="552"></td>
<td height="80" width="0"></td>
</tr>
</table>
<script language="JavaScript">
<!--
function Checkform(thisform) {
// Init val
strError = 'ATAF Version 6.1.0, Database : contactos_web\n\nYou have to
correct the following error(s)\nbefore you can start your search.\n\n';
intError = 0;
if (intError == 1) {
alert (strError)
return false;
}
}
// -->
</script>
<%
If Err <> 0 Then
pad="Sql Script Errors Occured!\n"
pad = pad + "Error Number= #" & Err.Number & "\n"
pad = pad + "Error Desc.= " & Err.Description &"\n\n"
pad = pad + "Data not saved !!!\n"
pad=Replace(pad,"'","´")
response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
response.write "<!--"+CrLf
response.write "strError = '"+pad+"';"+Crlf
response.write "alert (strError);"+CrLf
response.write "// -->"+CrLf
response.write "</script>"+CrLf
End If

If Session("Err") <> 0 Then
pad="Sql Script Errors Occured!\n"
pad=pad + "Error Number= #<b>" & Session("Err") & "\n"
pad=pad + "Error Desc.= <b>" & Session("Description") &"\n\n"
pad = pad + "Data not saved !!!\n"
pad=Replace(pad,"'","´")
response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
response.write "<!--"+CrLf
response.write "strError = '"+pad+"';"+Crlf
response.write "alert (strError);"+CrLf
response.write "// -->"+CrLf
response.write "</script>"+CrLf
Session("Err")=0
End If
%>

</body>
</html>




Stefan B Rusynko said:
You are using the following general syntax for your buttons
(broken up by the button tag parameters)

<input
type="button"
value="text"
onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=X' "
<%=ShowTextOnPic("Some text here")%>
Class="formpagebutton">

It appears your client side code is properly delimited
(with appropriate single and/or double quotes where needed)

The server side Function <%=ShowTextOnPic("Some text here")%> must evaluate correctly server side
- as a valid client side attribute of the input tag

Without seeing the ASP server side Function in your page ShowTextOnPic()
- it is hard to debug your server side code
- but it needs to write (server side) a valid form tag attribute
(like say: title="Some text here")

Test your Function first (on a ASP page w/ just the function returns) with your string variables to verify it is working
<%
pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
Response .write pictext1
'...etc
%>

PS
You could also do all your server side code evaluation of the functions using the same technique
<%
pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
%>
And in your buttons as say:
<input type="button" value="text" onClick="... " <%=pictext1%> Class="formpagebutton">

--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________


| Dear Sirs,
| If I preview my ASP page I receive an error "unterminated string error" for
| most of the follwing code lines:
|
| <tr><td align="center" colspan="3">
| <p>
| <% If cmd<>"New" And cmd<>"Copy" Then %>
| <input type="button" value="¦<"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para ir al primer registro")%>
| Class="formpagebutton">
| <input type="button" value="<<"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Mueva un registro hacia atrás")%> Class="formpagebutton">
| <input type="text" size="8" Value="<%=Session("CurRec")%> de
| <%=Session("NumOfRecs")%>" Class="formpagebutton">
| <input type="button" value=">>"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para ir para registrar después")%>
| Class="formpagebutton">
| <input type="button" value=">¦"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para ir al último registro")%>
| Class="formpagebutton">
| <p>
|
| <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
| salvar sus cambios")%> Class="formpagebutton">
| <input type="button" value="Borrar"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
| Class="formpagebutton">
| <input type="button" value="Nuevo"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
| <%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
| Class="formpagebutton" style="float: right">
| <input type="button" value="Print"
| onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
| <%=ShowTextOnPic("Click here to print the current record")%>
| Class="formpagebutton"><input type="hidden" name="autonumber"
| value="<%=session("autonumber")%>">
| <input type="Hidden"name="cmd" value="Save">
| <% Else %>
| <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para salvar
| el nuevo registro")%> Class="formpagebutton">
| <input type="button" value="Anular"
| onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
| <%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
| Class="formpagebutton">
| <input type="hidden" name="cmd" value="SaveNew">
| <%End If %>
| </td></tr>
|
| Can someone tell me what that means and how to debug that?
|
| Thanks
| Klaus
 
S

Stefan B Rusynko

None of the code provided includes the code for the Function you created called ShowTextOnPic
- it is probably in the include file globalsub.asp
Find the Function there and post the code

As for all you other code it is to extensive for debugging in any newsgroup
Since you say you are relatively new to ASP
- it looks like the code you posted was created by someone else or some downloaded template
(suggest you restart with the unmodified code and test after every change you make to see where the error was introduced)
For more help see http://www.w3schools.com/asp/default.asp

--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________


| Hello Stefan
|
| did read your suggestions, for which I'm very thankful. I tried what you
| said - actually I'm relatively new to this and (to be honest) did not really
| understand what I'm doing - and still dont understand in detail what you ment.
| Just for security I send to you the complete code with the hope that you can
| point me with some easier to understand words in the right direction.
|
| CODE:
|
| <!--#include File ="globalsub.asp"-->
| <%
|
| If Request.QueryString("dbcmd")="new" then
| response.redirect "contactos_web.asp?cmd=New"
| End if
| If Request.QueryString("dbcmd")="delete" then
| Set conntemp = server.CreateObject("adodb.Connection")
| conntemp.open
| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
| SqlStr = "DELETE FROM contactos_1001 WHERE autonumber="+
| Request.QueryString("db_autonumber")
| conntemp.Execute (SqlStr)
| conntemp.Close
| SqlStr=""
| End if
|
| If Request.QueryString("dbcmd")="save" then
| Set conntemp = server.CreateObject("adodb.Connection")
| conntemp.open
| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
| SqlStr = "UPDATE contactos_1001 SET "
|
| Sqlstr=SqlStr+"firstname='"+FixDbFieldSave(Request.QueryString("db_firstname")) + "', "
|
| Sqlstr=SqlStr+"lastname='"+FixDbFieldSave(Request.QueryString("db_lastname"))
| + "', "
|
| Sqlstr=SqlStr+"telephone='"+FixDbFieldSave(Request.QueryString("db_telephone")) + "', "
|
| Sqlstr=SqlStr+"mobilephone='"+FixDbFieldSave(Request.QueryString("db_mobilephone")) + "', "
| Sqlstr=SqlStr+"sendbrochure="+Request.QueryString("db_sendbrochure") + ", "
| Sqlstr=SqlStr+"sendpostvisit="+Request.QueryString("db_sendpostvisit") +
| ", "
|
| Sqlstr=SqlStr+"information='"+FixDbFieldSave(Request.QueryString("db_information")) + "', "
| SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
| SqlStr = SqlStr + " WHERE autonumber="+
| Request.QueryString("db_autonumber")+ " "
| If Instr(sqlstr," SE ")<=0 Then
| conntemp.Execute (SqlStr)
| End if
| conntemp.close
| SqlStr=""
| End if
| gui = request.querystring("gui")
| curpage = request.querystring("Curpage")
| If Curpage = "" Then Curpage = 1
| Interval = request.querystring("Interval")
| If Interval = "" Then Interval = 5
| prefix=trim(Request.querystring("prefix"))
| If prefix = "" then
| prefix = "*"
| End if
| prefix_Operator=trim(Request.querystring("prefix_Operator"))
| If prefix_Operator = "" then
| prefix_Operator = "OR"
| End if
| If prefix_Operator = "OR" then
| prefix_Operator_ORvar=" checked"
| prefix_Operator_ANDvar=""
| Else
| prefix_Operator_ORvar=""
| prefix_Operator_ANDvar=" checked"
| End if
| If (prefix<>"") And (prefix <> "*") then
| SqlStr = SqlStr+"prefix LIKE '%"+prefix+"%' " + prefix_Operator + " "
| End if
| If SqlStr <> "" Then
| SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001
| Where "+ SqlStr
| SqlStrCount = Mid(SqlStrCount,1,len(SqlStrCount)-4)
| Else
| SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001"
| End if
| If SqlStr <> "" Then
| SqlStr ="SELECT * FROM contactos_1001 WHERE "+ SqlStr
| SqlStr = Mid(SqlStr,1,len(SqlStr)-4)
| Else
| Sqlstr ="SELECT * FROM contactos_1001"
| End if
| SqlStr = SqlStr + " ORDER BY autonumber"
| %>
| <html>
| <head>
| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
| <meta name="GENERATOR" content="ATAF Version 6.1.0">
| <title>Contactosweb</title>
| <base target="_self">
| <link rel="stylesheet" type="text/css" href="globalcss.css">
|
| <script Language="JavaScript">
| function winopenexcel (sqlstr)
| {
|
msg=open("","NewWindow","toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=150");
| msg.location = "toexcel.asp?sqlstr="+sqlstr;
| msg.focus()
| }
| </script>
|
| </head>
| <body class="formpage" topmargin="0" leftmargin="0" rightmargin="0"
| bottommargin="0" marginwidth="0" marginheight="0" style="background-color:
| #DFDFDF">
| <table width="556" border="0" height="399">
| <tr>
| <td></tr>
| <td></tr>
| <td height="2"></td>
| </tr>
| <tr>
| <td></td>
| <td align="left"><img border="0" src="../../../BIE/images/c1_top.GIF"
| width="556" height="17"></td>
| <td height="21"></td>
| </tr>
| <tr>
| <td></td>
| <td valign="Default" >
| <form method="GET" action="contactos_web.asp" name="contactos_1001"
| onSubmit="return Checkform(this);">
|
| <table border="0" cellpadding="0" cellspacing="0" class="formpagetable"
| width="556" style="border-width: 0">
| <tr>
| <td colspan="2">
| <table width="552" border="0">
|
| </table>
| <tr><td colspan="2" align="centre" class="listpagetablelabel" height="19">
| <p align="center">
| <input type="submit" value="Lista" Class="listpagebutton"
| <%=ShowTextOnPic("Chasquido aquí para poner sus archivos en una lista")%>>
| Ver<%=CreateDropDownBox(Cstr(interval), "5;10", "interval", "1",
| "class='listpagetablelabel'", Cstr(interval))%> Archivos por página
| </td>
| </tr>
|
| <p align="left"></td></tr>
| <input type="hidden" name="cmd" value="Find">
| </table>
| </form>
| <table border="0" cellpadding="0" cellspacing="0">
| <%
| If (Request.Querystring("cmd")="Find") Then
| Set conntemp = server.CreateObject("adodb.Connection")
| conntemp.open
| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
| Set rs = conntemp.Execute(SqlStrCount)
| NoOfRecs = rs("NoOfRecs")
| Set rs = conntemp.Execute(SqlStr)
| If rs.EOF <> True Then
| End If
| If CInt(curpage) > 1 Then
| MoveForward = CInt(Interval) * (CInt(curpage) - 1)
| For xx = 1 To MoveForward
| If rs.EOF <> True Then
| rs.MoveNext
| End If
| Next
| End If
| End if
| If (Request.Querystring("cmd")="Find") Then
| If (rs.EOF<>True) Then
| Response.write " <tr class='listpageresultheader'>"
| Response.write "<td></td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Nombre"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Apellido"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Teléfono"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Movil"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Bro."
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Carta"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Informaciön"
| Response.write " </td>"
| Response.write "<td></td>"
| Response.write "</tr>"
| End if
| End if
| countrecs=0
| If (Request.Querystring("cmd")="Find") Then
| If (rs.EOF=True) Then
| Response.write "¡Lamentable!, ningunos archivos encontrados"
| End if
| End if
| If (Request.Querystring("cmd")="Find") Then
| While (rs.EOF <> True) And (Request.Querystring("cmd")="Find") AND
| (countrecs<CInt(Interval))
| If lastWas = True Then
| Varclass = "listpageresultline"
| lastWas = False
| Else
| Varclass = "listpageresultlinealt"
| lastWas = True
| End If
| Response.write "<form method="+qu+"GET"+qu+"
| name="+qu+"db"+CStr(Rs("autonumber"))+qu+" target="+qu+"_self"+qu+">"
| Response.write "<input type="+qu+"hidden"+qu+"
| name="+qu+"db_autonumber"+qu+" value="+qu+CStr(Rs("autonumber"))+qu+">"
| Response.write "<input type="+qu+"hidden"+qu+" name="+qu+"dbcmd"+qu+"
| value="+qu+"save"+qu+">"
| For Each Item In request.querystring
| If (Item <> "dbcmd") And (Mid(item,1,3)<>"db_") Then
| Response.Write "<input type="+qu+"hidden"+qu+" name="+qu+item+qu+"
| value="+qu+request.querystring(Item)+qu+">"
| End If
| Next
| Response.write "<tr title="+qu+"Chasquido aquí para corregir registro"+qu+"
| class="+qu+varclass+qu+"
| onClick="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
| ='listbutselect';"+qu+"
| onMouseout="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
| ='listbutnotselect';"+qu+">"
| Response.write "<td><input type="+qu+"button"+qu+" value="+qu+" "+qu+"
| name="+qu+"select_button"+qu+"
|
onClick="+qu+"window.top.frames['I1'].location.href='contactos_1001form.asp?cmd=Fromlist&autonumber="+CStr(Rs("autonumber"))+"'"+qu+"></td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_firstname"+qu+" value="+qu+FillEmpty(rs("firstname"))+qu+"
| size="+qu+"8"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_lastname"+qu+" value="+qu+FillEmpty(rs("lastname"))+qu+"
| size="+qu+"17"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_telephone"+qu+" value="+qu+FillEmpty(rs("telephone"))+qu+"
| size="+qu+"15"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_mobilephone"+qu+" value="+qu+FillEmpty(rs("mobilephone"))+qu+"
| size="+qu+"15"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_sendbrochure"+qu+"
| value="+qu+FillEmpty(rs("sendbrochure"))+qu+" size="+qu+"2"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_sendpostvisit"+qu+"
| value="+qu+FillEmpty(rs("sendpostvisit"))+qu+" size="+qu+"2"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_information"+qu+" value="+qu+FillEmpty(rs("information"))+qu+"
| size="+qu+"18"+qu+">"
| Response.write "</td>"
| Response.write "</td><td>"
| Response.write "</td>"
| Response.write "</form>"
| Response.write "</tr>"+Crlf
| countrecs=countrecs+1
| Rs.movenext
| Wend
| End if
| If (Request.Querystring("cmd")="Find") Then
| rs.Close
| Set rs = Nothing
| conntemp.Close
| Set conntemp = Nothing
| End if
| %>
| </table>
|
| <%
| If (Request.Querystring("cmd")="Find") Then%>
| <center>
| <div align="center">
| <%=IntervalBox(curpage, Interval, NoOfRecs, "contactos_web.asp",
| request.querystring, "#000000", "2")%>
| </center>
| </div>
| <%End If
| %>
| </td><td height="45"></td>
| </tr>
| <tr>
| <td></td>
| <td> </td>
| <td height="239"></td>
| </tr>
| <tr>
| <td valign="top" align="middle" width="4"></td><td width="552"></td>
| <td height="80" width="0"></td>
| </tr>
| </table>
| <script language="JavaScript">
| <!--
| function Checkform(thisform) {
| // Init val
| strError = 'ATAF Version 6.1.0, Database : contactos_web\n\nYou have to
| correct the following error(s)\nbefore you can start your search.\n\n';
| intError = 0;
| if (intError == 1) {
| alert (strError)
| return false;
| }
| }
| // -->
| </script>
| <%
| If Err <> 0 Then
| pad="Sql Script Errors Occured!\n"
| pad = pad + "Error Number= #" & Err.Number & "\n"
| pad = pad + "Error Desc.= " & Err.Description &"\n\n"
| pad = pad + "Data not saved !!!\n"
| pad=Replace(pad,"'","´")
| response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
| response.write "<!--"+CrLf
| response.write "strError = '"+pad+"';"+Crlf
| response.write "alert (strError);"+CrLf
| response.write "// -->"+CrLf
| response.write "</script>"+CrLf
| End If
|
| If Session("Err") <> 0 Then
| pad="Sql Script Errors Occured!\n"
| pad=pad + "Error Number= #<b>" & Session("Err") & "\n"
| pad=pad + "Error Desc.= <b>" & Session("Description") &"\n\n"
| pad = pad + "Data not saved !!!\n"
| pad=Replace(pad,"'","´")
| response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
| response.write "<!--"+CrLf
| response.write "strError = '"+pad+"';"+Crlf
| response.write "alert (strError);"+CrLf
| response.write "// -->"+CrLf
| response.write "</script>"+CrLf
| Session("Err")=0
| End If
| %>
|
| </body>
| </html>
|
|
|
|
| "Stefan B Rusynko" wrote:
|
| > You are using the following general syntax for your buttons
| > (broken up by the button tag parameters)
| >
| > <input
| > type="button"
| > value="text"
| > onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=X' "
| > <%=ShowTextOnPic("Some text here")%>
| > Class="formpagebutton">
| >
| > It appears your client side code is properly delimited
| > (with appropriate single and/or double quotes where needed)
| >
| > The server side Function <%=ShowTextOnPic("Some text here")%> must evaluate correctly server side
| > - as a valid client side attribute of the input tag
| >
| > Without seeing the ASP server side Function in your page ShowTextOnPic()
| > - it is hard to debug your server side code
| > - but it needs to write (server side) a valid form tag attribute
| > (like say: title="Some text here")
| >
| > Test your Function first (on a ASP page w/ just the function returns) with your string variables to verify it is working
| > <%
| > pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
| > Response .write pictext1
| > '...etc
| > %>
| >
| > PS
| > You could also do all your server side code evaluation of the functions using the same technique
| > <%
| > pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
| > %>
| > And in your buttons as say:
| > <input type="button" value="text" onClick="... " <%=pictext1%> Class="formpagebutton">
| >
| > --
| >
| > _____________________________________________
| > SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
| > "Warning - Using the F1 Key will not break anything!" (-;
| > _____________________________________________
| >
| >
| > | Dear Sirs,
| > | If I preview my ASP page I receive an error "unterminated string error" for
| > | most of the follwing code lines:
| > |
| > | <tr><td align="center" colspan="3">
| > | <p>
| > | <% If cmd<>"New" And cmd<>"Copy" Then %>
| > | <input type="button" value="¦<"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
| > | <%=ShowTextOnPic("Chasquido para ir al primer registro")%>
| > | Class="formpagebutton">
| > | <input type="button" value="<<"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
| > | <%=ShowTextOnPic("Mueva un registro hacia atrás")%> Class="formpagebutton">
| > | <input type="text" size="8" Value="<%=Session("CurRec")%> de
| > | <%=Session("NumOfRecs")%>" Class="formpagebutton">
| > | <input type="button" value=">>"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
| > | <%=ShowTextOnPic("Chasquido para ir para registrar después")%>
| > | Class="formpagebutton">
| > | <input type="button" value=">¦"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
| > | <%=ShowTextOnPic("Chasquido para ir al último registro")%>
| > | Class="formpagebutton">
| > | <p>
| > |
| > | <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
| > | salvar sus cambios")%> Class="formpagebutton">
| > | <input type="button" value="Borrar"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
| > | <%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
| > | Class="formpagebutton">
| > | <input type="button" value="Nuevo"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
| > | <%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
| > | Class="formpagebutton" style="float: right">
| > | <input type="button" value="Print"
| > | onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
| > | <%=ShowTextOnPic("Click here to print the current record")%>
| > | Class="formpagebutton"><input type="hidden" name="autonumber"
| > | value="<%=session("autonumber")%>">
| > | <input type="Hidden"name="cmd" value="Save">
| > | <% Else %>
| > | <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para salvar
| > | el nuevo registro")%> Class="formpagebutton">
| > | <input type="button" value="Anular"
| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
| > | <%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
| > | Class="formpagebutton">
| > | <input type="hidden" name="cmd" value="SaveNew">
| > | <%End If %>
| > | </td></tr>
| > |
| > | Can someone tell me what that means and how to debug that?
| > |
| > | Thanks
| > | Klaus
| >
| >
| >
 
S

Stefan B Rusynko

PS
Specifically Contact ATAF for support with their code at
http://www.ccr.dk/design/default.asp
(since your application was generated from their application /code generator)

--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________


| None of the code provided includes the code for the Function you created called ShowTextOnPic
| - it is probably in the include file globalsub.asp
| Find the Function there and post the code
|
| As for all you other code it is to extensive for debugging in any newsgroup
| Since you say you are relatively new to ASP
| - it looks like the code you posted was created by someone else or some downloaded template
| (suggest you restart with the unmodified code and test after every change you make to see where the error was introduced)
| For more help see http://www.w3schools.com/asp/default.asp
|
| --
|
| _____________________________________________
| SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
| "Warning - Using the F1 Key will not break anything!" (-;
| _____________________________________________
|
|
|| Hello Stefan
||
|| did read your suggestions, for which I'm very thankful. I tried what you
|| said - actually I'm relatively new to this and (to be honest) did not really
|| understand what I'm doing - and still dont understand in detail what you ment.
|| Just for security I send to you the complete code with the hope that you can
|| point me with some easier to understand words in the right direction.
||
|| CODE:
||
|| <!--#include File ="globalsub.asp"-->
|| <%
||
|| If Request.QueryString("dbcmd")="new" then
|| response.redirect "contactos_web.asp?cmd=New"
|| End if
|| If Request.QueryString("dbcmd")="delete" then
|| Set conntemp = server.CreateObject("adodb.Connection")
|| conntemp.open
|| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
|| SqlStr = "DELETE FROM contactos_1001 WHERE autonumber="+
|| Request.QueryString("db_autonumber")
|| conntemp.Execute (SqlStr)
|| conntemp.Close
|| SqlStr=""
|| End if
||
|| If Request.QueryString("dbcmd")="save" then
|| Set conntemp = server.CreateObject("adodb.Connection")
|| conntemp.open
|| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
|| SqlStr = "UPDATE contactos_1001 SET "
||
|| Sqlstr=SqlStr+"firstname='"+FixDbFieldSave(Request.QueryString("db_firstname")) + "', "
||
|| Sqlstr=SqlStr+"lastname='"+FixDbFieldSave(Request.QueryString("db_lastname"))
|| + "', "
||
|| Sqlstr=SqlStr+"telephone='"+FixDbFieldSave(Request.QueryString("db_telephone")) + "', "
||
|| Sqlstr=SqlStr+"mobilephone='"+FixDbFieldSave(Request.QueryString("db_mobilephone")) + "', "
|| Sqlstr=SqlStr+"sendbrochure="+Request.QueryString("db_sendbrochure") + ", "
|| Sqlstr=SqlStr+"sendpostvisit="+Request.QueryString("db_sendpostvisit") +
|| ", "
||
|| Sqlstr=SqlStr+"information='"+FixDbFieldSave(Request.QueryString("db_information")) + "', "
|| SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
|| SqlStr = SqlStr + " WHERE autonumber="+
|| Request.QueryString("db_autonumber")+ " "
|| If Instr(sqlstr," SE ")<=0 Then
|| conntemp.Execute (SqlStr)
|| End if
|| conntemp.close
|| SqlStr=""
|| End if
|| gui = request.querystring("gui")
|| curpage = request.querystring("Curpage")
|| If Curpage = "" Then Curpage = 1
|| Interval = request.querystring("Interval")
|| If Interval = "" Then Interval = 5
|| prefix=trim(Request.querystring("prefix"))
|| If prefix = "" then
|| prefix = "*"
|| End if
|| prefix_Operator=trim(Request.querystring("prefix_Operator"))
|| If prefix_Operator = "" then
|| prefix_Operator = "OR"
|| End if
|| If prefix_Operator = "OR" then
|| prefix_Operator_ORvar=" checked"
|| prefix_Operator_ANDvar=""
|| Else
|| prefix_Operator_ORvar=""
|| prefix_Operator_ANDvar=" checked"
|| End if
|| If (prefix<>"") And (prefix <> "*") then
|| SqlStr = SqlStr+"prefix LIKE '%"+prefix+"%' " + prefix_Operator + " "
|| End if
|| If SqlStr <> "" Then
|| SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001
|| Where "+ SqlStr
|| SqlStrCount = Mid(SqlStrCount,1,len(SqlStrCount)-4)
|| Else
|| SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001"
|| End if
|| If SqlStr <> "" Then
|| SqlStr ="SELECT * FROM contactos_1001 WHERE "+ SqlStr
|| SqlStr = Mid(SqlStr,1,len(SqlStr)-4)
|| Else
|| Sqlstr ="SELECT * FROM contactos_1001"
|| End if
|| SqlStr = SqlStr + " ORDER BY autonumber"
|| %>
|| <html>
|| <head>
|| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
|| <meta name="GENERATOR" content="ATAF Version 6.1.0">
|| <title>Contactosweb</title>
|| <base target="_self">
|| <link rel="stylesheet" type="text/css" href="globalcss.css">
||
|| <script Language="JavaScript">
|| function winopenexcel (sqlstr)
|| {
||
|
msg=open("","NewWindow","toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,copyhistory=no,width=400,height=150");
|| msg.location = "toexcel.asp?sqlstr="+sqlstr;
|| msg.focus()
|| }
|| </script>
||
|| </head>
|| <body class="formpage" topmargin="0" leftmargin="0" rightmargin="0"
|| bottommargin="0" marginwidth="0" marginheight="0" style="background-color:
|| #DFDFDF">
|| <table width="556" border="0" height="399">
|| <tr>
|| <td></tr>
|| <td></tr>
|| <td height="2"></td>
|| </tr>
|| <tr>
|| <td></td>
|| <td align="left"><img border="0" src="../../../BIE/images/c1_top.GIF"
|| width="556" height="17"></td>
|| <td height="21"></td>
|| </tr>
|| <tr>
|| <td></td>
|| <td valign="Default" >
|| <form method="GET" action="contactos_web.asp" name="contactos_1001"
|| onSubmit="return Checkform(this);">
||
|| <table border="0" cellpadding="0" cellspacing="0" class="formpagetable"
|| width="556" style="border-width: 0">
|| <tr>
|| <td colspan="2">
|| <table width="552" border="0">
||
|| </table>
|| <tr><td colspan="2" align="centre" class="listpagetablelabel" height="19">
|| <p align="center">
|| <input type="submit" value="Lista" Class="listpagebutton"
|| <%=ShowTextOnPic("Chasquido aquí para poner sus archivos en una lista")%>>
|| Ver<%=CreateDropDownBox(Cstr(interval), "5;10", "interval", "1",
|| "class='listpagetablelabel'", Cstr(interval))%> Archivos por página
|| </td>
|| </tr>
||
|| <p align="left"></td></tr>
|| <input type="hidden" name="cmd" value="Find">
|| </table>
|| </form>
|| <table border="0" cellpadding="0" cellspacing="0">
|| <%
|| If (Request.Querystring("cmd")="Find") Then
|| Set conntemp = server.CreateObject("adodb.Connection")
|| conntemp.open
|| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
|| Set rs = conntemp.Execute(SqlStrCount)
|| NoOfRecs = rs("NoOfRecs")
|| Set rs = conntemp.Execute(SqlStr)
|| If rs.EOF <> True Then
|| End If
|| If CInt(curpage) > 1 Then
|| MoveForward = CInt(Interval) * (CInt(curpage) - 1)
|| For xx = 1 To MoveForward
|| If rs.EOF <> True Then
|| rs.MoveNext
|| End If
|| Next
|| End If
|| End if
|| If (Request.Querystring("cmd")="Find") Then
|| If (rs.EOF<>True) Then
|| Response.write " <tr class='listpageresultheader'>"
|| Response.write "<td></td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Nombre"
|| Response.write " </td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Apellido"
|| Response.write " </td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Teléfono"
|| Response.write " </td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Movil"
|| Response.write " </td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Bro."
|| Response.write " </td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Carta"
|| Response.write " </td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
|| class="+qu+"listsave"+qu+">"
|| Response.write "Informaciön"
|| Response.write " </td>"
|| Response.write "<td></td>"
|| Response.write "</tr>"
|| End if
|| End if
|| countrecs=0
|| If (Request.Querystring("cmd")="Find") Then
|| If (rs.EOF=True) Then
|| Response.write "¡Lamentable!, ningunos archivos encontrados"
|| End if
|| End if
|| If (Request.Querystring("cmd")="Find") Then
|| While (rs.EOF <> True) And (Request.Querystring("cmd")="Find") AND
|| (countrecs<CInt(Interval))
|| If lastWas = True Then
|| Varclass = "listpageresultline"
|| lastWas = False
|| Else
|| Varclass = "listpageresultlinealt"
|| lastWas = True
|| End If
|| Response.write "<form method="+qu+"GET"+qu+"
|| name="+qu+"db"+CStr(Rs("autonumber"))+qu+" target="+qu+"_self"+qu+">"
|| Response.write "<input type="+qu+"hidden"+qu+"
|| name="+qu+"db_autonumber"+qu+" value="+qu+CStr(Rs("autonumber"))+qu+">"
|| Response.write "<input type="+qu+"hidden"+qu+" name="+qu+"dbcmd"+qu+"
|| value="+qu+"save"+qu+">"
|| For Each Item In request.querystring
|| If (Item <> "dbcmd") And (Mid(item,1,3)<>"db_") Then
|| Response.Write "<input type="+qu+"hidden"+qu+" name="+qu+item+qu+"
|| value="+qu+request.querystring(Item)+qu+">"
|| End If
|| Next
|| Response.write "<tr title="+qu+"Chasquido aquí para corregir registro"+qu+"
|| class="+qu+varclass+qu+"
|| onClick="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
|| ='listbutselect';"+qu+"
|| onMouseout="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
|| ='listbutnotselect';"+qu+">"
|| Response.write "<td><input type="+qu+"button"+qu+" value="+qu+" "+qu+"
|| name="+qu+"select_button"+qu+"
||
|
onClick="+qu+"window.top.frames['I1'].location.href='contactos_1001form.asp?cmd=Fromlist&autonumber="+CStr(Rs("autonumber"))+"'"+qu+"></td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_firstname"+qu+" value="+qu+FillEmpty(rs("firstname"))+qu+"
|| size="+qu+"8"+qu+">"
|| Response.write "</td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_lastname"+qu+" value="+qu+FillEmpty(rs("lastname"))+qu+"
|| size="+qu+"17"+qu+">"
|| Response.write "</td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_telephone"+qu+" value="+qu+FillEmpty(rs("telephone"))+qu+"
|| size="+qu+"15"+qu+">"
|| Response.write "</td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_mobilephone"+qu+" value="+qu+FillEmpty(rs("mobilephone"))+qu+"
|| size="+qu+"15"+qu+">"
|| Response.write "</td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_sendbrochure"+qu+"
|| value="+qu+FillEmpty(rs("sendbrochure"))+qu+" size="+qu+"2"+qu+">"
|| Response.write "</td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_sendpostvisit"+qu+"
|| value="+qu+FillEmpty(rs("sendpostvisit"))+qu+" size="+qu+"2"+qu+">"
|| Response.write "</td>"
|| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
|| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
|| name="+qu+"db_information"+qu+" value="+qu+FillEmpty(rs("information"))+qu+"
|| size="+qu+"18"+qu+">"
|| Response.write "</td>"
|| Response.write "</td><td>"
|| Response.write "</td>"
|| Response.write "</form>"
|| Response.write "</tr>"+Crlf
|| countrecs=countrecs+1
|| Rs.movenext
|| Wend
|| End if
|| If (Request.Querystring("cmd")="Find") Then
|| rs.Close
|| Set rs = Nothing
|| conntemp.Close
|| Set conntemp = Nothing
|| End if
|| %>
|| </table>
||
|| <%
|| If (Request.Querystring("cmd")="Find") Then%>
|| <center>
|| <div align="center">
|| <%=IntervalBox(curpage, Interval, NoOfRecs, "contactos_web.asp",
|| request.querystring, "#000000", "2")%>
|| </center>
|| </div>
|| <%End If
|| %>
|| </td><td height="45"></td>
|| </tr>
|| <tr>
|| <td></td>
|| <td> </td>
|| <td height="239"></td>
|| </tr>
|| <tr>
|| <td valign="top" align="middle" width="4"></td><td width="552"></td>
|| <td height="80" width="0"></td>
|| </tr>
|| </table>
|| <script language="JavaScript">
|| <!--
|| function Checkform(thisform) {
|| // Init val
|| strError = 'ATAF Version 6.1.0, Database : contactos_web\n\nYou have to
|| correct the following error(s)\nbefore you can start your search.\n\n';
|| intError = 0;
|| if (intError == 1) {
|| alert (strError)
|| return false;
|| }
|| }
|| // -->
|| </script>
|| <%
|| If Err <> 0 Then
|| pad="Sql Script Errors Occured!\n"
|| pad = pad + "Error Number= #" & Err.Number & "\n"
|| pad = pad + "Error Desc.= " & Err.Description &"\n\n"
|| pad = pad + "Data not saved !!!\n"
|| pad=Replace(pad,"'","´")
|| response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
|| response.write "<!--"+CrLf
|| response.write "strError = '"+pad+"';"+Crlf
|| response.write "alert (strError);"+CrLf
|| response.write "// -->"+CrLf
|| response.write "</script>"+CrLf
|| End If
||
|| If Session("Err") <> 0 Then
|| pad="Sql Script Errors Occured!\n"
|| pad=pad + "Error Number= #<b>" & Session("Err") & "\n"
|| pad=pad + "Error Desc.= <b>" & Session("Description") &"\n\n"
|| pad = pad + "Data not saved !!!\n"
|| pad=Replace(pad,"'","´")
|| response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
|| response.write "<!--"+CrLf
|| response.write "strError = '"+pad+"';"+Crlf
|| response.write "alert (strError);"+CrLf
|| response.write "// -->"+CrLf
|| response.write "</script>"+CrLf
|| Session("Err")=0
|| End If
|| %>
||
|| </body>
|| </html>
||
||
||
||
|| "Stefan B Rusynko" wrote:
||
|| > You are using the following general syntax for your buttons
|| > (broken up by the button tag parameters)
|| >
|| > <input
|| > type="button"
|| > value="text"
|| > onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=X' "
|| > <%=ShowTextOnPic("Some text here")%>
|| > Class="formpagebutton">
|| >
|| > It appears your client side code is properly delimited
|| > (with appropriate single and/or double quotes where needed)
|| >
|| > The server side Function <%=ShowTextOnPic("Some text here")%> must evaluate correctly server side
|| > - as a valid client side attribute of the input tag
|| >
|| > Without seeing the ASP server side Function in your page ShowTextOnPic()
|| > - it is hard to debug your server side code
|| > - but it needs to write (server side) a valid form tag attribute
|| > (like say: title="Some text here")
|| >
|| > Test your Function first (on a ASP page w/ just the function returns) with your string variables to verify it is working
|| > <%
|| > pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
|| > Response .write pictext1
|| > '...etc
|| > %>
|| >
|| > PS
|| > You could also do all your server side code evaluation of the functions using the same technique
|| > <%
|| > pictext1 = ShowTextOnPic("Chasquido para ir al primer registro")
|| > %>
|| > And in your buttons as say:
|| > <input type="button" value="text" onClick="... " <%=pictext1%> Class="formpagebutton">
|| >
|| > --
|| >
|| > _____________________________________________
|| > SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
|| > "Warning - Using the F1 Key will not break anything!" (-;
|| > _____________________________________________
|| >
|| >
|| > | Dear Sirs,
|| > | If I preview my ASP page I receive an error "unterminated string error" for
|| > | most of the follwing code lines:
|| > |
|| > | <tr><td align="center" colspan="3">
|| > | <p>
|| > | <% If cmd<>"New" And cmd<>"Copy" Then %>
|| > | <input type="button" value="¦<"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=First&autonumber=<%=Session("autonumber")%>'"
|| > | <%=ShowTextOnPic("Chasquido para ir al primer registro")%>
|| > | Class="formpagebutton">
|| > | <input type="button" value="<<"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Prev&autonumber=<%=Session("autonumber")%>'"
|| > | <%=ShowTextOnPic("Mueva un registro hacia atrás")%> Class="formpagebutton">
|| > | <input type="text" size="8" Value="<%=Session("CurRec")%> de
|| > | <%=Session("NumOfRecs")%>" Class="formpagebutton">
|| > | <input type="button" value=">>"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Next&autonumber=<%=Session("autonumber")%>'"
|| > | <%=ShowTextOnPic("Chasquido para ir para registrar después")%>
|| > | Class="formpagebutton">
|| > | <input type="button" value=">¦"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Last&autonumber=<%=Session("autonumber")%>'"
|| > | <%=ShowTextOnPic("Chasquido para ir al último registro")%>
|| > | Class="formpagebutton">
|| > | <p>
|| > |
|| > | <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido aquí para
|| > | salvar sus cambios")%> Class="formpagebutton">
|| > | <input type="button" value="Borrar"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=Del&autonumber=<%=Session("autonumber")%>'"
|| > | <%=ShowTextOnPic("Chasquido para borrar el registro corriente")%>
|| > | Class="formpagebutton">
|| > | <input type="button" value="Nuevo"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp?cmd=New&autonumber=<%=Session("autonumber")%>'"
|| > | <%=ShowTextOnPic("Chasquido para crear un nuevo registro")%>
|| > | Class="formpagebutton" style="float: right">
|| > | <input type="button" value="Print"
|| > | onClick="parent.location='contactos_list.asp?cmd=Fromlist&autonumber=<%=CStr(Session("autonumber"))%>'"
|| > | <%=ShowTextOnPic("Click here to print the current record")%>
|| > | Class="formpagebutton"><input type="hidden" name="autonumber"
|| > | value="<%=session("autonumber")%>">
|| > | <input type="Hidden"name="cmd" value="Save">
|| > | <% Else %>
|| > | <input type="submit" value="Ahorrar" <%=ShowTextOnPic("Chasquido para salvar
|| > | el nuevo registro")%> Class="formpagebutton">
|| > | <input type="button" value="Anular"
|| > | onClick="javascript:top.frames['I1'].location='contactos_1001form.asp'"
|| > | <%=ShowTextOnPic("Chasquido para anular creación de un nuevo registro")%>
|| > | Class="formpagebutton">
|| > | <input type="hidden" name="cmd" value="SaveNew">
|| > | <%End If %>
|| > | </td></tr>
|| > |
|| > | Can someone tell me what that means and how to debug that?
|| > |
|| > | Thanks
|| > | Klaus
|| >
|| >
|| >
|
|
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top