Home
My profile
" Response.Write "Hello" Response.Write "
# ...to the WAP site of Hicon Hosting & Internet Consultancy BV, Holland # Enter our site # # # # #
\n"; print "\n"; print "$num"; print "\n"; &print_footer_info(); } else { &print_header_info("Error!"); print "Count file \"$array{'file'}\" not writable or non-existant.\n"; &print_footer_info(); } ################################################################################################################ # Print the WML page opening tags and the required WML page header. Of course you don't need this as a # procedure and you can code this inline for the counter, but now you can use this procedure over and over # again for all your WAP based Perl scripts sub print_header_info { local ($title) = @_; print "Content-type: text/vnd.wap.wml\n\n"; print "\n"; print "<\!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">\n"; print "\n"; print "\n"; } ################################################################################################################ # Print the WML page ending tags sub print_footer_info { print"
Hello, from si180 !
Enter WAP URL http://
Go
Browser Type: <%useragent = new String(Request.ServerVariables("HTTP_USER_AGENT")); Response.Write(useragent);%>
# Send message to: # # Your e-mail address: # # Subject (optional): # # Message text: # # # Send # # # # # # # #
\n"; } ################################################################################################################ # Print the WML page ending tags sub print_footer_info { print"