فيه الكثير من الأخطاء
أولا
funhction ---> function
و ثانيا
كود:
Function SayHello(Name)
SayHello="Hello " & name
End Function
Response.write Hello("MR.ASP")
'Or
msg=Hello("MR.ASP")
Response.write msg
من الكود أعلاه الدالة دائما تعطي قيمة
الخطا في كودك هو
funhction header (tob_test)
المفروض تكون
Sub header (tob_test)
لانها تؤدي عدة اعمال و لا تعطي قيمة معينه للدالة
الكود الصحيح
كود:
<%@ Language=VBScript %>
<% Sub header (tob_test) %>
<title> الصفحة الشخصية
<% Response.Write (tob_test) %>
</title>
<table border="1" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" height="42">
<p align="center"><img border = "0" src="../pic/ksa.gif" width="100" height="100"></p>
</td>
<td width="70%" height="42">
<p align="center"><font color ="#f3f3f3" face="tahoma" size="3"><b>الصفحة الشخصية</font></b></p>
</td>
<td width="15%" height="42">
<p align="center"><img border = "0" src="../pic/ksa.gif" width="100" height="100"></p>
</td> </tr> <tr> <hr>
<font face="tahoma" color="#000080" size="2">
<b><% Response.Write(tob_test) %> </b>
</font><hr> </tr> </table>
<% End Sub%>
كود صفحة العرض فيه خطا كبير و السكربت ماراح تشتغل
الخطا وضع هذه الكود في السطر الرابع
<%@ Language=VBScript %>
تعريف اللغة يجب ان يكون في اول السكرب
اول سطر
كود:
<%@ Language=VBScript %>
<html dir=rtl lang=ar>
<head>
<%response.charset="windows-1256" %>
</head>
<% header "تمت العملية بنجاح " %>
<!--#include file = "stander_tob_down.asp" !-->
</html>