Home › 4_2005-2006 › mixes ASP and Javasript
Advertisement
4_2005-2006 Databases/ Data Access/ DAO/ ADO #161964

mixes ASP and Javasript

Serge Munoz
★★★★★
4.8 · Downloads: 2,341

A small script mixes ASP and Javasript to make messages alert or for the debugage.

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source 
<p><font face="Verdana" size="2">&lt;%' To be able to continue the code<br>
 Sub Debug(Msg)<br>
 Msg = Replace(Msg,&quot;'&quot;,&quot;\'&quot;)<br>
 Response.Write &quot;&lt;SCRIPT LANGUAGE='JavaScript'&gt;&quot;<br>
 Response.Write &quot;if(!confirm('&quot;&amp;Msg&amp;&quot;'))&quot;<br>
 Response.Write &quot;{&quot;<br>
 Response.Write &quot;location.href = 'Stop.asp';&quot;<br>
 Response.Write &quot;}&quot;<br>
 Response.Write &quot;&lt;/SCRIPT&gt;&quot;<br>
 End Sub <br>
 %&gt; <br>
 <br>
 <br>
 <br>
 </font></p>
<p><font face="Verdana" size="2">&lt;%'To stop the code<br>
 Sub Debug(Msg)<br>
 Msg = Replace(Msg,&quot;'&quot;,&quot;\'&quot;)<br>
 Response.Write &quot;&lt;script language='JavaScript'&gt;&quot;<br>
 Response.Write &quot;alert('&quot;&amp;Msg&amp;&quot;');&quot;<br>
 Response.Write &quot;history.back();&quot;<br>
 Response.Write &quot;&lt;/script&gt;&quot;<br>
 Response.End<br>
 End Sub<br>
 %&gt;<br>
 <br>
 &lt;%If Request(&quot;Mail&quot;) = &quot;&quot; Then Msg = &quot;Mail no valide&quot; 
 : Debug Msg%&gt; </font></p>
Original Comments (3)
Recovered from Wayback Machine