Forums

This topic is locked

asp validate form problem

Posted 27 Dec 2001 22:20:37
1
has voted
27 Dec 2001 22:20:37 Leon Radley posted:
Hi
I've been working on this insert page and i have a insert with identity and a pure asp upload 2.0 and what i want to do is before i upload the file and insert the records is to check them to se that the form is correctly filled out. so i checked the net and found this asp/vb code that should validate the form and then if not correctly filled out turn the "field name" red.

what i don't really know is what to do with the MM_EditAction that the form is set to i tried to put it in the if statment at the bottom of the validation script and not have any action on the form.. but that doesn't work
and i dont really know how to check if the errorarray of the validation so if none of the errors are set to true that it should upload and insert..

maybe something like this

'check for errors
if errorArray(0) = "True" Then
if errorArray(1) = "True" Then
if errorArray(2) = "True" Then
if errorArray(3) = "True" Then
if errorArray(4) = "True" Then
if errorArray(5) = "True" Then
if errorArray(6) = "True" Then
if errorArray(7) = "True" Then
if errorArray(8) = "True" Then
if errorArray(9) = "True" Then
if errorArray(10) = "True" Then
if errorArray(11) = "True" Then
if errorArray(12) = "True" Then
else
MM_editAction
end if

Here's the code for the page

Cheers

and a happy new year...


<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Do Not Cache Page
' *** MagicBeat Server Behavior - 2005 - by Jag S. Sidhu - www.magicbeat.com
Response.Expires=-1000
Response.CacheControl="no-cache"
%>
<!--#include file="../../Connections/connfyndet.asp" -->
<!--#include file="../../ScriptLibrary/incPureUpload.asp" -->
<%
'*** Pure ASP File Upload -----------------------------------------------------
' Copyright (c) 2001 George Petrov, www.UDzone.com
' Process the upload
' Version: 2.0.6
'------------------------------------------------------------------------------
'*** File Upload to: """images""", Extensions: "GIF,JPG,JPEG,BMP,PNG", Form: insertform, Redirect: "", "file", "80", "uniq", "false", "40", "40" , "600", "2000", "fmwidth", "fmheight", "600", "fileCopyProgress.htm", "300", "100"

Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction, UploadRequest
PureUploadSetup

If (CStr(Request.QueryString("GP_upload") <> "" Then
GP_redirectPage = ""
Server.ScriptTimeout = 600

RequestBin = Request.BinaryRead(Request.TotalBytes)
Set UploadRequest = CreateObject("Scripting.Dictionary"
BuildUploadRequest RequestBin, """images""", "file", "80", "uniq"

If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert") <> "" or CStr(UploadFormRequest("MM_update") <> "") Then
If (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And UploadQueryString <> "" Then
GP_redirectPage = GP_redirectPage & "?" & UploadQueryString
End If
Response.Redirect(GP_redirectPage)
end if
else
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if
end if
' End Pure Upload
'------------------------------------------------------------------------------
%>
<%
' *** Edit Operations: (Modified for File Upload) declare variables

MM_editAction = CStr(Request.ServerVariables("URL") 'MM_editAction = CStr(Request("URL")
If (UploadQueryString <> "" Then
MM_editAction = MM_editAction & "?" & UploadQueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: (Modified for File Upload) set variables

If (CStr(UploadFormRequest("MM_insert") <> "" Then

MM_editConnection = MM_connfyndet_STRING
MM_editTable = "dbo.mcsell"
MM_editRedirectUrl = "insertokey.asp"
MM_fieldsStr = "fmname|value|fmemail|value|fmphone|value|fmshowphone|value|fmpassword2|value|fmcounty|value|fmheadline|value|fmtext|value|fmpris|value|fmmilage|value|fmyear|value|fmmodel|value|fmmake|value|fmcylvol|value|fmlink|value|fmlinkheadline|value|fmpic|value|fmwidth|value|fmheight|value|host|value|ipnumber|value|fmbook|value|fmverified|value"
MM_columnsStr = "mcname|',none,''|mcemail|',none,''|mcphone|',none,''|mcshowphone|none,1,0|mcpassword|',none,''|mccounty|none,none,NULL|mcheadline|',none,''|mctext|',none,''|mcprice|none,none,NULL|mcmilage|none,none,NULL|mcyear|none,none,NULL|mcmodel|none,none,NULL|mcmake|none,none,NULL|mccylinder|none,none,NULL|mclink|',none,''|mclinkheadline|',none,''|mcpicurl|',none,''|mcpicwidth|none,none,NULL|mcpicheight|none,none,NULL|mchost|',none,''|mcip|',none,''|mcbook|none,none,NULL|mcverified|none,none,NULL"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"
MM_columns = Split(MM_columnsStr, "|"

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(UploadFormRequest(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "" Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "" Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If

End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

If (CStr(UploadFormRequest("MM_insert") <> "" Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),","
Delim = MM_typeArray(0)
If (Delim = "none" Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none" Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none" Then EmptyVal = ""
If (FormVal = "" Then
FormVal = EmptyVal
Else
If (AltVal <> "" Then
FormVal = AltVal
ElseIf (Delim = "'" Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''" & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & " values (" & MM_dbValues & ""

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
'----------------------------------------------------------------------------------
' *** Check the form for errors ***

const numFields = 14
dim errorArray()
redim preserve errorArray(numFields)


if request.form("isSubmitted" = "yes" then
fmname = Request.Form("fmname"
fmemail = request.form("fmemail"
fmphone = request.form("fmphone"
fmpassword = request.form("fmpassword"
fmpassword2 = request.form("fmpassword2"
fmcounty = request.form("fmcounty"
fmheadline = request.form("fmheadline"
fmtext = request.form("fmtext"
fmpris = request.form("frmpris"
fmmilage = request.form("fmmilage"
fmyear = request.form("fmyear"
fmmodel = request.form("fmmodel"
fmmake = request.form("fmmake"
fmcylvol = request.form("fmcylvol"

dim re, results
set re = New RegExp

'fmname
if Len(fmname) = "" then
errorArray(0) = "True"
else
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
re.Global = True
re.IgnoreCase = True
results = re.Test(fmname)
if results then
errorArray(0) = "False"
else
errorArray(0) = "True"
end if
end if

'fmemail
if Len(fmemail) = "" then
errorArray(1) = "True"
else
re.Pattern = "^\w+@\w+\.\w+"
results = re.Test(email)
if results then
errorArray(1) = "False"
else
errorArray(1) = "True"
end if
end if

'fmphone
if Len(fmphone) = 0 then
errorArray(2) = "True"
else
re.Pattern = "^\d$"
results = re.Test(fmphone)
if results then
errorArray(2) = "False"
else
errorArray(2) = "True"
end if
end if

'fmpassword
if Len(fmpassword) = "" then
errorArray(3) = "True"
else
re.Pattern = "^\w+"
results = re.Test(fmpassword)
if results then
errorArray(3) = "False"
else
errorArray(3) = "True"
end if
end if
'fmpassword2
if Len(fmpassword2) = "" then
errorArray(4) = "True"
else
re.Pattern = "^\w+"
results = re.Test(fmpassword2)
if results then
errorArray(4) = "False"
else
errorArray(4) = "True"

end if
end if

'fmcounty
if Len(fmcounty) = 0 then
errorArray(5) = "True"
else
errorArray(5) = "False"
end if

'fmheadline

if Len(fmheadline) = "" then
errorArray(6) = "True"
else
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
re.Global = True
re.IgnoreCase = True
results = re.Test(fmheadline)
if results then
errorArray(6) = "False"
else
errorArray(6) = "True"
end if
end if

'fmtext

if Len(fmtext) = "" then
errorArray(7) = "True"
else
re.Pattern = "^\w+"
results = re.Test(fmpassword2)
if results then
errorArray(7) = "False"
else
errorArray(7) = "True"

end if
end if

'fmpris

if Len(fmpris) = 0 then
errorArray(8) = "True"
else
errorArray(8) = "False"
end if

'fmmilage

if Len(fmmilage) = 0 then
errorArray(8) = "True"
else
errorArray(8) = "False"
end if

'fmyear

if Len(fmyear) = 0 then
errorArray(9) = "True"
else
errorArray(9) = "False"
end if

'fmmodel

if Len(fmmodel) = 0 then
errorArray(10) = "True"
else
errorArray(10) = "False"
end if

'fmmake

if Len(fmmake) = 0 then
errorArray(11) = "True"
else
errorArray(11) = "False"
end if

'fmcylvol

if Len(fmcylvol) = 0 then
errorArray(12) = "True"
else
errorArray(12) = "False"
end if

End if



'--------------------------------------------------------------------------------------
%>

<html>
<head>
<title>Fyndet.se, prylar på nätet</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../cssstyles/styles.css" type="text/css">
<script language="JavaScript">
<!--
function checkFileUpload(form,extensions,requireUpload,sizeLimit,minWidth,minHeight,maxWidth,maxHeight,saveWidth,saveHeight) { //v2.0
document.MM_returnValue = true;
if (extensions != '') var re = new RegExp("\.(" + extensions.replace(/,/gi,"|".replace(/s/gi,"" + "$","i";
for (var i = 0; i<form.elements.length; i++) {
field = form.elements[i];
if (field.type.toUpperCase() != 'FILE') continue;
if (field.value == '') {
if (requireUpload) {alert('File is required!');document.MM_returnValue = false;field.focus();break;}
} else {
if(extensions != '' && !re.test(field.value)) {
alert('This file type is not allowed for uploading.\nOnly the following file extensions are allowed: ' + extensions + '.\nPlease select another file and try again.');
document.MM_returnValue = false;field.focus();break;
}
document.PU_uploadForm = form;
re = new RegExp(".(gif|jpg|png|bmp|jpeg)$","i";
if(re.test(field.value) && (sizeLimit != '' || minWidth != '' || minHeight != '' || maxWidth != '' || maxHeight != '' || saveWidth != '' || saveHeight != '')) {
checkImageDimensions(field,sizeLimit,minWidth,minHeight,maxWidth,maxHeight,saveWidth,saveHeight);
} } }
}

function showImageDimensions(fieldImg) { //v2.0
var isNS6 = (!document.all && document.getElementById ? true : false);
var img = (fieldImg && !isNS6 ? fieldImg : this);
if ((img.minWidth != '' && img.minWidth > img.width) || (img.minHeight != '' && img.minHeight > img.height)) {
alert('Uploaded Image is too small!\nShould be at least ' + img.minWidth + ' x ' + img.minHeight); return;}
if ((img.maxWidth != '' && img.width > img.maxWidth) || (img.maxHeight != '' && img.height > img.maxHeight)) {
alert('Uploaded Image is too big!\nShould be max ' + img.maxWidth + ' x ' + img.maxHeight); return;}
if (img.sizeLimit != '' && img.fileSize > img.sizeLimit) {
alert('Uploaded Image File Size is too big!\nShould be max ' + (img.sizeLimit/1024) + ' KBytes'); return;}
if (img.saveWidth != '') document.PU_uploadForm[img.saveWidth].value = img.width;
if (img.saveHeight != '') document.PU_uploadForm[img.saveHeight].value = img.height;
document.MM_returnValue = true;
}

function checkImageDimensions(field,sizeL,minW,minH,maxW,maxH,saveW,saveH) { //v2.0
if (!document.layers) {
var isNS6 = (!document.all && document.getElementById ? true : false);
document.MM_returnValue = false; var imgURL = 'file:///' + field.value.replace(/\\/gi,'/');
if (!field.gp_img || (field.gp_img && field.gp_img.src != imgURL) || isNS6) {field.gp_img = new Image();
with (field) {gp_img.sizeLimit = sizeL*1024; gp_img.minWidth = minW; gp_img.minHeight = minH; gp_img.maxWidth = maxW; gp_img.maxHeight = maxH;
gp_img.saveWidth = saveW; gp_img.saveHeight = saveH; gp_img.onload = showImageDimensions; gp_img.src = imgURL; }
} else showImageDimensions(field.gp_img);}
}

function showProgressWindow(progressFile,popWidth,popHeight) { //v2.0
if (document.MM_returnValue) {
var w = 480, h = 340;
if (document.all || document.layers || document.getElementById) {
w = screen.availWidth; h = screen.availHeight;}
var leftPos = (w-popWidth)/2, topPos = (h-popHeight)/2;
document.progressWindow = window.open(progressFile,'ProgressWindow','toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=' + popWidth + ',height='+popHeight);
document.progressWindow.moveTo(leftPos, topPos);document.progressWindow.focus();
window.onunload = function () {document.progressWindow.close();};
} }
//-->

function tmt_compareField(f1,f2,rule,errorMsg){
var myErr = "";
if(eval("MM_findObj('"+f1+"').value"+rule+"MM_findObj('"+f2+"').value"){
alert(unescape(errorMsg));myErr += 'errorMsg';}
document.MM_returnValue = (myErr == "";
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?")>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><br>
</div>
<table width="1" cellspacing="0" bgcolor="#CCCCCC" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<form action="" method="POST" name="insertform" enctype="multipart/form-data" onSubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,80,40,40,600,2000,'fmwidth','fmheight');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
<table width="600" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#6699CC" width="100"> </td>
<td colspan="2" bgcolor="#6699CC" class="mediumwhitetx">Person
uppgifter : </td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="100">
<div align="right">
<% if errorArray(0) = "True" then %>
<font color="red"><b>
<% end if %>Namn : <% if errorArray(0) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="1" type="text" name="fmname" size="50" maxlength="50" class="smalltx" style="width:200">
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(1) = "True" then %>
<font color="red"><b>
<% end if %>Epost : <% if errorArray(1) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="2" type="text" name="fmemail" size="50" class="smalltx" style="width:200">
Exempel. </td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(2) = "True" then %>
<font color="red"><b>
<% end if %>Telefon : <% if errorArray(2) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="3" type="text" name="fmphone" size="50" class="smalltx" style="width:200">
<input tabindex="4" type="checkbox" name="fmshowphone" value="0">
visa ej mitt telefonnummer. Exempel. 019123456 </td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(3) = "True" then %>
<font color="red"><b>
<% end if %>Lösenord : <% if errorArray(3) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="5" type="password" name="fmpassword" size="50" class="smalltx" style="width:200">
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(4) = "True" then %>
<font color="red"><b>
<% end if %>Verifiera Lösenord : <% if errorArray(4) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="6" type="password" name="fmpassword2" size="50" class="smalltx" style="width:200" onChange="tmt_compareField('fmpassword','fmpassword2','!=','L%F6senorden%20st%E4mmer%20inte%20%F6verens%20!!');return document.MM_returnValue">
fyll i samma lösenord en gång till.</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(5) = "True" then %>
<font color="red"><b>
<% end if %>Län : <% if errorArray(5) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<select tabindex="7" name="fmcounty" class="smalltx" style="width:110">
<option value="0" selected>Välj ett län</option>
<option value="1">Blekinge län </option>
<option value="2">Dalarnas län </option>
<option value="3">Gotlands län </option>
<option value="4">Gävleborgs län </option>
<option value="5">Hallands län </option>
<option value="6">Jämtlands län </option>
<option value="7">Jönköpings län </option>
<option value="8">Kalmar län </option>
<option value="9">Kronobergs län </option>
<option value="10">Norrbottens län </option>
<option value="11">Skåne län </option>
<option value="12">Stockholms län </option>
<option value="13">Södermanlands län </option>
<option value="14">Uppsala län </option>
<option value="15">Värmlands län </option>
<option value="16">Västerbottens län </option>
<option value="17">Västernorrlands län </option>
<option value="18">Västmanlands län </option>
<option value="19">Västra Götalands län </option>
<option value="20">Örebro län </option>
<option value="21">Östergötlands län </option>
</select>
</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#6699CC" width="100">
<div align="right"></div>
</td>
<td colspan="2" bgcolor="#6699CC" class="mediumwhitetx">Annonsen
: </td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(6) = "True" then %>
<font color="red"><b>
<% end if %>Rubrik : <% if errorArray(6) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="8" type="text" name="fmheadline" size="51" maxlength="50" class="smalltx" style="width:200">
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(7) = "True" then %>
<font color="red"><b>
<% end if %>Text : <% if errorArray(7) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<textarea tabindex="9" name="fmtext" rows="10" cols="50" class="smalltx" style="width:300"></textarea>
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(8) = "True" then %>
<font color="red"><b>
<% end if %>Pris : <% if errorArray(8) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="10" type="text" name="fmpris" size="15" maxlength="7" class="smalltx" style="width:200">
Exempel. 50000</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(9) = "True" then %>
<font color="red"><b>
<% end if %>Miltal : <% if errorArray(9) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<input tabindex="11" type="text" name="fmmilage" size="15" maxlength="7" class="smalltx" style="width:200">
Exempel. 1000</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(10) = "True" then %>
<font color="red"><b>
<% end if %>År : <% if errorArray(10) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<select tabindex="12" name="fmyear" size="1" class="smalltx" style="width:110">
<option value="0">äldre</option>
<option value="1971">1971</option>
<option value="1972">1972</option>
<option value="1973">1973</option>
<option value="1974">1974</option>
<option value="1975">1975</option>
<option value="1976">1976</option>
<option value="1977">1977</option>
<option value="1978">1978</option>
<option value="1979">1979</option>
<option value="1980">1980</option>
<option value="1981">1981</option>
<option value="1982">1982</option>
<option value="1983">1983</option>
<option value="1984">1984</option>
<option value="1985">1985</option>
<option value="1986">1986</option>
<option value="1987">1987</option>
<option value="1988">1988</option>
<option value="1989">1989</option>
<option value="1990">1990</option>
<option value="1991">1991</option>
<option value="1992">1992</option>
<option value="1993">1993</option>
<option value="1994">1994</option>
<option value="1995">1995</option>
<option value="1996">1996</option>
<option value="1997">1997</option>
<option value="1998">1998</option>
<option value="1999">1999</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option selected>Välj</option>
</select>
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(11) = "True" then %>
<font color="red"><b>
<% end if %>Model : <% if errorArray(11) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<select tabindex="13" name="fmmodel" class="smalltx" style="width:110">
<option selected>Välj</option>
<option value="1">Landsväg</option>
<option value="2">Cross-Enduro</option>
<option value="3">Touring</option>
<option value="4">Sport</option>
<option value="5">Custom</option>
<option value="6">Offroad</option>
<option value="7">Scooter</option>
<option value="8">Moped</option>
<option value="9">Sidovagn-Släp</option>
</select>
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(12) = "True" then %>
<font color="red"><b>
<% end if %>Märke : <% if errorArray(12) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<select tabindex="14" name="fmmake" class="smalltx" style="width:110">
<option selected>Välj</option>
<option value="1">Aprilia</option>
<option value="2">BMW</option>
<option value="3">Benelli</option>
<option value="4">Beta</option>
<option value="5">Buell</option>
<option value="6">Cagiva</option>
<option value="7">Crescent</option>
<option value="8">Daelim</option>
<option value="9">Derbi</option>
<option value="10">Ducati</option>
<option value="11">GasGas</option>
<option value="12">Gilera</option>
<option value="13">Harley-Davidson</option>
<option value="14">Honda</option>
<option value="15">Husaberg</option>
<option value="16">Husqvarna</option>
<option value="17">Hyosung</option>
<option value="18">Italjet</option>
<option value="19">Jincheng</option>
<option value="20">KTM</option>
<option value="21">Kawasaki</option>
<option value="22">Kymco</option>
<option value="23">Malaguti</option>
<option value="24">Moto Guzzi</option>
<option value="25">Motorhispania</option>
<option value="26">PGO</option>
<option value="27">Peugeot</option>
<option value="28">Piaggio</option>
<option value="29">Rieju</option>
<option value="30">Royal Enfield</option>
<option value="31">SYM</option>
<option value="32">Suzuki</option>
<option value="33">Triumph</option>
<option value="34">VOR</option>
<option value="35">Vespa</option>
<option value="36">Yamaha</option>
<option value="37">Annan modell</option>
</select>
</td>
</tr>
<tr>
<td width="100">
<div align="right"><% if errorArray(13) = "True" then %>
<font color="red"><b>
<% end if %>Cylinder volym : <% if errorArray(13) = "True" then %>
</b></font><% end if %></div>
</td>
<td colspan="2">
<select tabindex="15" name="fmcylvol" size="1" class="smalltx" style="width:110">
<option value="0" selected>Välj</option>
<option value="50">50 </option>
<option value="125">125 </option>
<option value="250">250 </option>
<option value="350">350 </option>
<option value="400">400</option>
<option value="500">500 </option>
<option value="550">550</option>
<option value="600">600 </option>
<option value="650">650</option>
<option value="700">700</option>
<option value="750">750 </option>
<option value="900">900 </option>
<option value="1000">1000 </option>
<option value="1100">1100 </option>
<option value="1300">1300 </option>
<option value="9999999">över 1300</option>
</select>
</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#6699CC" width="100">
<div align="right"></div>
</td>
<td colspan="2" bgcolor="#6699CC" class="mediumwhitetx">Länk
till mer information :</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="100">
<div align="right">Länk : </div>
</td>
<td colspan="2">
<input tabindex="16" type="text" name="fmlink" size="50" class="smalltx" style="width:200">
Exempel. www.minsida.com</td>
</tr>
<tr>
<td width="100">
<div align="right">Länktext : </div>
</td>
<td colspan="2">
<input tabindex="17" type="text" name="fmlinkheadline" size="50" maxlength="50" class="smalltx" style="width:200">
Exempel. min mc</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#6699CC" width="100">
<div align="right"></div>
</td>
<td colspan="2" bgcolor="#6699CC" class="mediumwhitetx">Ladda
upp en bild :</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="100">
<div align="right">Bild : </div>
</td>
<td>
<input tabindex="18" type="file" name="fmpic" class="smalltx" onChange="checkFileUpload(this.form,'GIF,JPG,JPEG,BMP,PNG',false,80,40,40,600,2000,'fmwidth','fmheight')">
</td>
<td>bilden får högst vara 600 pixlar bred och vara
max 80kb stor.</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#6699CC" width="100"> </td>
<td colspan="2" bgcolor="#6699CC" class="mediumwhitetx">Skicka
in annons :</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2">
<input tabindex="19" type="submit" name="fmsubmit" value=" Ok ">
<input type="reset" name="fmreset" value=" Rensa ">
<input type="hidden" name="isSubmitted" value="yes">
<input type="hidden" name="fmwidth">
<input type="hidden" name="fmheight">
<input type="hidden" name="host" value="<%= Request.ServerVariables("REMOTE_HOST" %>">
<input type="hidden" name="ipnumber" value="<%= Request.ServerVariables("REMOTE_ADDR" %>">
<input type="hidden" name="fmbook" value="0">
<input type="hidden" name="fmverified" value="0">
</td>
</tr>
<tr>
<td width="100"> </td>
<td colspan="2"> </td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="true">
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"></div>
</body>
</html>


// Leon

Replies

Replied 02 Jan 2002 20:06:47
02 Jan 2002 20:06:47 Tolu Ayoola replied:
go to www.massimocorner.com and download the extension

The initial fright of failure is the beginning of failure itself -Tolu

Reply to this topic