Problemer med at submitte formen
Mit problem er at finde en måde at få idFormDims.submit til at fungerer. Action bliver sat korrekt, så det er ikke der problemet ligger. Det skal laves i VBScript og ikke JavaScript... så det jeg søger er en løsning på nedenstående, håber nogen herinde er i stand til finde frem til en brugbar løsning :-)Tak...
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Generator" Content="Microsoft NotePAD XP Pro">
<link rel="stylesheet" href="/includes/post.css">
<script language="VBScript">
Sub ValidateFields
dim iErrorError
iError = 0
if (isNull(idFormDims.idClaims.value) or idFormDims.idClaims.value = Empty) then
iError = 1
MsgBox "Du skal finde, den txt fil, som skal uploades...", 0, "Fejl"
idFormDims.idClaims.focus
end if
if iError = 0 then
Call openProgressBar
idFormDims.action = "claims_import_file_1.asp"
idFormDims.submit
end if
End Sub
Sub openProgressBar
window.open "progressbar.asp","ProgressBar","width=400,height=180,toolbar=0,status=0,location=0,menubar=0,scrollbars=0"
End Sub
</script>
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"<%if (intNote <> 0) then%> onLoad="alert('<%=(strAlert)%>')"<%end if%>>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3"><img src="/images/spacer.gif" width="3" height="1"></td>
<td width="397" colspan="4"> </td>
</tr>
<tr>
<td width="3"><img src="/images/spacer.gif" width="3" height="1"></td>
<td width="397" colspan="4" align="center" class="OverskriftStor">Importer afregning fra Nokia</td>
</tr>
<tr>
<td width="400" colspan="5"><img src="../images/spacer.gif" width="1" height="80"></td>
</tr>
<form method="post" id="idFormDims" name="FormDims">
<tr>
<td width="3"><img src="/images/spacer.gif" width="3" height="1"></td>
<td width="397" colspan="4" class="OverskriftStor">Importer txt-fil:</td>
</tr>
<tr>
<td width="400" colspan="5"><img src="../images/spacer.gif" width="1" height="5"></td>
</tr>
<tr>
<td width="3"><img src="/images/spacer.gif" width="3" height="1"></td>
<td width="397" colspan="4"><input type="file" id="idClaims" name="claims" class="FileBrowserBox390"></td>
</tr>
<tr>
<td width="400" colspan="5"><img src="../images/spacer.gif" width="1" height="10"></td>
</tr>
<tr>
<td width="3"><img src="/images/spacer.gif" width="3" height="1"></td>
<td width="397" colspan="4" align="right"><input type="button" name="submit" value="Claims import" language="VBScript" onClick="ValidateFields"></td>
</tr>
</form>
<tr>
<td width="400" colspan="5"><img src="../images/spacer.gif" width="1" height="50"></td>
</tr>
</table>
</body>
</html>
