en simpel funktion der ikke virker
jeg har lavet følgende kode i en fil:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Trim(Request.Form("visForum")) = "boards" Then
Response.write visBoards()
else If Trim(Request.Form("visForum")) = "strings" Then
Response.write visStrings()
else If Trim(Request.Form("visForum")) = "posts" Then
Response.write visPosts()
else
response.Redirect(forum.asp)
end if
%>
<html>
<head>
<title>Forum</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/forum.css" rel="stylesheet" type="text/css">
</head>
<body>
<h1>Forum </h1>
<%
Function visBoards
response.write "<table width='90%' align='center'>"
response.write " <tr>"
response.write " <td width='15%'>Oprettet d.</td>"
response.write " <td width='65%'>Her er en liste over de diskutionsboards der er oprettet"
response.write " i forummet.</td>"
response.write " <td width='25%'>Moderator:</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td colspan='3'>"
response.write " <table width='100%' class='tabel'><tr>"
response.write " <td width='15%'>fsd</td>"
response.write " <td width='60%'>fsd</td>"
response.write " <td width='25%'>fsd</td>"
response.write " </tr></table>"
response.write " </td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td> </td>"
response.write " <td>Opret ny board</td>"
response.write " <td> </td>"
response.write " </tr>"
response.write "</table>"
End Function
...
Herefter kommer så de følgende to funktioner.
Jeg kalder scriptet fra en formular og jeg kan godt se variablen, hvis jeg skriver den ud ex: "boards". Hvorfor får jeg en fejl i IE når jeg kører dette ?
fejlen lyder bare "'End' var ventet" også henvises til end linien i den sidste funktion.
Jeg er ikke særligt kendt med funktioner, så det er nok en simpel fejl. :)
