Ayuda con este código

loetitia
12 de Mayo del 2005
Necesito ayuda con este formulario para introducir datos y una imagen. El caso es que si el usuario no introduce ninguna imagen pues me da error. ¿Alguien sabría decirme como modificar el código para que no de error si el usuario deja ese apartado en blanco?
Gracias .
Este es el código de la página formulario:
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
MM_logoutRedirectPage = "default.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<%
' *** Redirect If Session Variable Does Not Exist
If Session("MM_Username") = "" Then
Response.Redirect("insertaEmpresa.asp")
End If
%>

<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Abandon
MM_logoutRedirectPage = "../default.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<!--#include file="../Connections/directorio.asp" -->
<%
'*** File Upload to: images, Extensions: "GIF,JPG,JPEG,BMP,PNG"

Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
if PosEnd = 0 then
Response.Write "<b>El formulario fue aceptado con no ENCTYPE=""multipart/form-data""</b><br>"
Response.Write "Por favor, corrige los datos del formulario e inténtalo de nuevo."
Response.End
end if
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile<PosBound) Then
'Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
FileName = Mid(FileName,InStrRev(FileName,"")+1)
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = FileName
ValueBeg = PosBeg-1
ValueLen = PosEnd-Posbeg
Else
'Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
ValueBeg = 0
ValueEnd = 0
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value
UploadControl.Add "ValueBeg" , ValueBeg
UploadControl.Add "ValueLen" , ValueLen
'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub

'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

Function UploadFormRequest(name)
on error resume next
if UploadRequest.Item(name) then
UploadFormRequest = UploadRequest.Item(name).Item("Value")
end if
End Function

'Process the upload
UploadQueryString = Replace(Request.QueryString,"GP_upload=true","")
if mid(UploadQueryString,1,1) = "&" then
UploadQueryString = Mid(UploadQueryString,2)
end if

GP_uploadAction = CStr(Request.ServerVariables("URL")) & "?GP_upload=true"
If (Request.QueryString <> "") Then
if UploadQueryString <> "" then
GP_uploadAction = GP_uploadAction & "&" & UploadQueryString
end if
End If

If (CStr(Request.QueryString("GP_upload")) <> "") Then
GP_redirectPage = ""
If (GP_redirectPage = "") Then
GP_redirectPage = CStr(Request.ServerVariables("URL"))
end if

RequestBin = Request.BinaryRead(Request.TotalBytes)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

GP_keys = UploadRequest.Keys
for GP_i = 0 to UploadRequest.Count - 1
GP_curKey = GP_keys(GP_i)
'Save all uploaded files
if UploadRequest.Item(GP_curKey).Item("FileName") <> "" then
GP_value = UploadRequest.Item(GP_curKey).Item("Value")
GP_valueBeg = UploadRequest.Item(GP_curKey).Item("ValueBeg")
GP_valueLen = UploadRequest.Item(GP_curKey).Item("ValueLen")

if GP_valueLen = 0 then
Response.Write "<B>¡Un error ha ocurrido al subir el archivo!</B><br><br>"
Response.Write "Archivo: " & Trim(GP_curPath) & UploadRequest.Item(GP_curKey).Item("FileName") & "<br>"
Response.Write "El archivo no existe o está vacio.<br>"
Response.Write "Por favor , revisa y <A HREF=""javascript:history.back(1)"">prueba de nuevo</a>"
response.End
end if

'Create a Stream instance
Dim GP_strm1, GP_strm2
Set GP_strm1 = Server.CreateObject("ADODB.Stream")
Set GP_strm2 = Server.CreateObject("ADODB.Stream")

'Open the stream
GP_strm1.Open
GP_strm1.Type = 1 'Binary
GP_strm2.Open
GP_strm2.Type = 1 'Binary

GP_strm1.Write RequestBin
GP_strm1.Position = GP_ValueBeg
GP_strm1.CopyTo GP_strm2,GP_ValueLen

'Create and Write to a File
GP_curPath = Request.ServerVariables("PATH_INFO")
GP_curPath = Trim(Mid(GP_curPath,1,InStrRev(GP_curPath,"/")) & "imagenes")
if Mid(GP_curPath,Len(GP_curPath),1) <> "/" then
GP_curPath = GP_curPath & "/"
end if
on error resume next
GP_strm2.SaveToFile Trim(Server.mappath(GP_curPath))& "" & UploadRequest.Item(GP_curKey).Item("FileName"),2
if err then
Response.Write "<B>¡Un error ha ocurrido al subir el archivo!</B><br><br>"
Response.Write "Archivo: " & Trim(GP_curPath) & UploadRequest.Item(GP_curKey).Item("FileName") & "<br>"
Response.Write "Quizás el directorio de destino no existe, o no tienes permiso.<br>"
Response.Write "Por favor, revisa y <A HREF=""javascript:history.back(1)"">prueba de nuevo</a>"
err.clear
response.End
end if
end if
next

'*** GP NO REDIRECT
end if
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if

%>
<%
' *** 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_directorio_STRING
MM_editTable = "EMPRESAS"
MM_editRedirectUrl = "gracias.asp"
MM_fieldsStr = "EMPRESA_USUARIO|value|CAT_ID|value|SUB_ID|value|EMPRESA_NOMBRE|value|EMPRESA_CONTACTO|value|EMPRESA_CIF|value|EMPRESA_DIRECCION|value|EMPRESA_LOCALIDAD|value|EMPRESA_CP|value|EMPRESA_TELEFONO|value|EMPRESA_FAX|value|EMPRESA_EMAIL|value|EMPRESA_LINK|value|EMPRESA_IMAGEN|value|EMPRESA_DESCRIPCION|value"
MM_columnsStr = "EMPRESA_USUARIO|',none,''|CAT_ID|',none,''|SUB_ID|',none,''|EMPRESA_NOMBRE|none,none,NULL|EMPRESA_CONTACTO|none,none,NULL|EMPRESA_CIF|none,none,NULL|EMPRESA_DIRECCION|none,none,NULL|EMPRESA_LOCALIDAD|none,none,NULL|EMPRESA_CP|none,none,NULL|EMPRESA_TELEFONO|none,none,NULL|EMPRESA_FAX|none,none,NULL|EMPRESA_EMAIL|none,none,NULL|EMPRESA_LINK|none,none,NULL|EMPRESA_IMAGEN|none,none,NULL|EMPRESA_DESCRIPCION|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
%>
<%
Dim rsCat__MMColParam
rsCat__MMColParam = "1"
if (Request.QueryString("cat_id") <> "") then rsCat__MMColParam = Request.QueryString("cat_id")
%>
<%
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_directorio_STRING
rsCat.Source = "SELECT * FROM CATEGORIAS WHERE CAT_ID = " + Replace(rsCat__MMColParam, "'", "''") + " ORDER BY CAT_NOMBRE ASC"
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 3
rsCat.Open()
rsCat_numRows = 0
%>
<%
Dim rsSub__MMColParam
rsSub__MMColParam = "1"
if (Request.QueryString("cat_id") <> "") then rsSub__MMColParam = Request.QueryString("cat_id")
%>
<%
set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.ActiveConnection = MM_directorio_STRING
rsSub.Source = "SELECT DISTINCTROW CATEGORIAS.CAT_ID, SUBS.CAT_ID, SUB_NAME, SUB_ID, CAT_NOMBRE FROM SUBS, CATEGORIAS WHERE SUBS.CAT_ID = CATEGORIAS.CAT_ID AND CATEGORIAS.CAT_ID = " + Replace(rsSub__MMColParam, "'", "''") + ""
rsSub.CursorType = 0
rsSub.CursorLocation = 2
rsSub.LockType = 3
rsSub.Open()
rsSub_numRows = 0
%>
<html>
<head>
<title>Nueva empresa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="css/css.css" type="text/css">
<script language="JavaScript">
<!--
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' debe contener una direccion de email.n';
} else if (test!='R') {
if (isNaN(val)) errors+='- '+nm+' debe contener un numero.n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (val<min || max<val) errors+='- '+nm+' debe contener un numero entre '+min+' y '+max+'.n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' es necesario.n'; }
} if (errors) alert('Los siguientes errores han sido encontrados:n'+errors);
document.MM_returnValue = (errors == '');
}

function getFileExtension(filePath) { //v1.0
fileName = ((filePath.indexOf('/') > -1) ? filePath.substring(filePath.lastIndexOf('/')+1,filePath.length) : filePath.substring(filePath.lastIndexOf('\')+1,filePath.length));
return fileName.substring(fileName.lastIndexOf('.')+1,fileName.length);
}

function checkFileUpload(form,extensions) { //v1.0
document.MM_returnValue = true;
if (extensions && extensions != '') {
for (var i = 0; i<form.elements.length; i++) {
field = form.elements[i];
if (field.type.toUpperCase() != 'FILE') continue;
if (field.value == '') continue;
if (extensions.toUpperCase().indexOf(getFileExtension(field.value).toUpperCase()) == -1) {
alert('¡No es posible subir este archivo!');
document.MM_returnValue = false;field.focus();break;
} } }
}

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 link="#000033" vlink="#000033" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="766" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#99CC99">
<tr>
<td width="268" align="left" valign="top"><img src="assets/horizontalBar.gif" width="100%" height="1"></td>
</tr>
<tr align="left">
<td valign="top">&nbsp;</td>
</tr>
<tr align="center">
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle"> <form ACTION="<%=MM_editAction%>" METHOD="POST" enctype="multipart/form-data" name="form2" id="form2" onSubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG');return document.MM_returnValue">
<table width="653" align="center">
<tr valign="middle">
<td width="194" align="right" nowrap><font color="#660000"><b><font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif">USUARIO</font></b></font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif"><font size="2">
<input name="EMPRESA_USUARIO" type="hidden" id="EMPRESA_USUARIO" value="<%= Session("MM_Username") %>" size="20">
<font color="#000033"><%= Session("MM_Username") %></font></font></font></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><font color="#000033" size="2">&nbsp;</font></td>
<td>&nbsp;</td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">CATEGORIA:</font></b></td>
<td> <select name="CAT_ID" id="CAT_ID">
<%
While (NOT rsCat.EOF)
%>
<option value="<%=(rsCat.Fields.Item("CAT_ID").Value)%>" <%if (CStr(rsCat.Fields.Item("CAT_ID").Value) = CStr(rsCat.Fields.Item("CAT_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsCat.Fields.Item("CAT_NOMBRE").Value)%></option>
<%
rsCat.MoveNext()
Wend
If (rsCat.CursorType > 0) Then
rsCat.MoveFirst
Else
rsCat.Requery
End If
%>
</select> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#0000FF">
</font></b></font> </td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">SUBCATEGORIA
:</font></b></td>
<td> <select name="SUB_ID" id="SUB_ID">
<%
While (NOT rsSub.EOF)
%>
<option value="<%=(rsSub.Fields.Item("SUB_ID").Value)%>" <%if (CStr(rsSub.Fields.Item("SUB_ID").Value) = CStr(rsSub.Fields.Item("SUB_ID").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsSub.Fields.Item("SUB_NAME").Value)%></option>
<%
rsSub.MoveNext()
Wend
If (rsSub.CursorType > 0) Then
rsSub.MoveFirst
Else
rsSub.Requery
End If
%>
</select> <font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong></strong></font><font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><em>Si
no encuentra una Subcategoria remita su propuesta al <a href="mailto:[email protected]">administrador</a></em></strong></font></td>
</tr>
<tr valign="middle">
<td height="26" align="right" nowrap><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">NOMBRE:</font></b></td>
<td> <input name="EMPRESA_NOMBRE" type="text" id="EMPRESA_NOMBRE" value="" size="50" maxlength="20">
</td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">PERSONA
DE CONTACTO:</font></b></td>
<td> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="2">
<input name="EMPRESA_CONTACTO" type="text" id="EMPRESA_CONTACTO" value="" size="50" maxlength="20">
</font></font> </td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">CIF-NIF:</font></b></td>
<td><b><font face="Verdana, Arial, Helvetica, sans-serif"><font size="2">
<input name="EMPRESA_CIF" type="text" id="EMPRESA_CIF" value="" size="50" maxlength="50">
</font></font></b></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">DIRECCION:</font></b></td>
<td><b><font face="Verdana, Arial, Helvetica, sans-serif"><font size="2">
<input name="EMPRESA_DIRECCION" type="text" id="EMPRESA_DIRECCION" value="" size="50" maxlength="50">
</font></font></b></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">LOCALIDAD:</font></b></td>
<td> <input name="EMPRESA_LOCALIDAD" type="text" id="EMPRESA_LOCALIDAD" value="castro urdiales" size="30" maxlength="20">
</td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">CODIGO
POSTAL :</font></b></td>
<td> <input name="EMPRESA_CP" type="text" id="EMPRESA_CP" size="15" maxlength="5">
<font size="1" color="#FF0000"><i></i></font></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">TELEFONO:</font></b></td>
<td><input name="EMPRESA_TELEFONO" type="text" id="EMPRESA_TELEFONO" value="" size="15" maxlength="20"></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">FAX:</font></b></td>
<td><input name="EMPRESA_FAX" type="text" id="EMPRESA_FAX" value="" size="15" maxlength="20"></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">EMAIL:</font></b></td>
<td><input name="EMPRESA_EMAIL" type="text" id="EMPRESA_EMAIL" value="" size="50" maxlength="50"></td>
</tr>
<tr valign="middle">
<td nowrap align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">
PAGINA WEB:</font></b></td>
<td> <input name="EMPRESA_LINK" type="text" id="EMPRESA_LINK" value="http://www." size="60" maxlength="50">
</td>
</tr>
<tr valign="middle" bgcolor="#FF9933">
<td align="right" nowrap><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">
IMAGEN EMPRESA:</font></b></td>
<td> <input name="EMPRESA_IMAGEN" type="file" id="EMPRESA_IMAGEN" size="35">
<div align="center"><font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><em>Si
no tiene una imagen disponible deje este punto en blanco
</em> </strong></font></div></td>
</tr>
<tr valign="middle">
<td colspan="2" align="right" valign="top" nowrap bgcolor="#FF9933"><div align="center"><em><strong><font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif">Tama&ntilde;o
de imagen : </font></strong><font color="#000033"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Anchura
m&aacute;xima aceptada = 600 pixels.</font></strong></font></em></div>
<div align="center"><em><strong><font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif">Tama&ntilde;o
de imagen: </font></strong><font color="#000033"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Altura
m&aacute;xima aceptada = 600 pixels.</font></strong></font></em></div>
<div align="center"><em><font color="#000033"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Archivos
aceptados &quot;gif, jpg, jpeg , bmp , png&quot;</font></strong></font></em></div>
<div align="center"> </div></td>
</tr>
<tr valign="middle">
<td nowrap align="right" valign="top"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033">DESCRIPCION:</font></b></td>
<td> <textarea name="EMPRESA_DESCRIPCION" cols="60" id="EMPRESA_DESCRIPCION">aquí puedes escribir, la actividad de tu
empresa , los servicios que realiza y
que ámbitos abarca</textarea>
</td>
</tr>
<tr valign="middle">
<td colspan="2" align="right" nowrap><div align="center">
<input name="submit" type="submit" onClick="MM_validateForm('EMPRESA_NOMBRE','','R','EMPRESA_LOCALIDAD','','R','EMPRESA_CP','','RisNum','EMPRESA_DESCRIPCION','','R');return document.MM_returnValue" value="Insertar">
</div></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form2">
</form></td>
</tr>
</table></td>
</tr>
</table>
<p>&nbsp;</p>
</body>
</html>
<%
rsCat.Close()
%>
<%
rsSub.Close()
%>