Search code examples
asp-classicvbscriptexternalizing

Classic asp include

I am trying to separate some asp logic out into a separate page. For now, I am trying to call a simple function.

Here is the simple index page that I am using

<html>
<head>
<title>Calling a webservice from classic ASP</title>
</head>
<body>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
 %>
  <!--#include file="aspFunctions.asp"-->
  <%
  doStuff()
End If
%>
<FORM method=POST name="form1" ID="Form1">
ID:
<INPUT type="text" name="corpId" ID="id" value="050893">
<BR><BR>
<INPUT type="submit" value="GO" name="submit1" ID="Submit1" >
</form>
</body>
</html>

Here is aspfunctions.asp

sub doStuff()
    Response.Write("In Do Stuff")
end sub

When i hit the submit button on my form i get the below sub doStuff() Response.Write("In Do Stuff") end sub

Microsoft VBScript runtime error '800a000d'

Does anyone have any idea what i could be doing wrong?

Any help is greatly appreciated

Thanks Damien Type mismatch: 'doStuff'

/uat/damien/index.asp, line 15

Solution

  • aspfunctions.asp should be inside tags so the asp is "executed", e.g.

    aspfunctions.asp file:

    <%
sub doStuff()
    Response.Write("In Do Stuff")
end sub
%>

    Otherwise the asp in aspfunctions.asp is just seen as plain-text, so as far as the server is concerned, doStuff has never been defined.