Documento sin título

<%@LANGUAGE="VBSCRIPT"%> <% '***************************************** '* * '* INSERT RECORD AND UPLOAD * '* if remove this comment Dreamveaver * '* don't recognize the behavior * '* * '***************************************** server.ScriptTimeout = 5400 Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, RG_typeArray, RG_z, UploadStatus, NumFile Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord Set Form = New ASPForm Dim UploadID UploadID = Form.NewUploadID ProgressBar = "progress-LittleBar.asp" editRedirectUrl = "RedirectPage.asp" RG_Connection = MM_cnnAgro_STRING RG_editTable = "Tablon" RG_Files = "imganun/;1;;;;0;Foto;3;;;;0;;;Foto@_@_@1@_@_@2@_@_@0;100;100;80;-1;;;80;0;_small;-1;0" RG_formName = "Opinion" UploadType="Insert" UploadStatus = "" NumFile = 0 if len(Request.QueryString("UploadID"))>0 then Form.UploadID = Request.QueryString("UploadID") end if if (Request.QueryString <> "") Then editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID else editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID End If Const fsCompletted = 0 If Form.State = fsCompletted Then if Form.State = 0 then Set ParamVal = CreateObject("Scripting.Dictionary") tmp = split(RG_Files,"@_@_@") ParamList = split(tmp(0),"|") MaxFieldNumber = ubound(ParamList) for x=0 to Ubound(ParamList) TmpVal = Split(ParamList(x),";") for y=0 to ubound(TmpVal) Key = cstr(x) & cstr(y) ParamVal.add Key, TmpVal(y) next next Form.Files.Save RG_fieldsStr = "Nombre|value|Apellidos|value|Pais|value|Email|value|Titulo|value|Opinion|value|Fecha|value" RG_columnsStr = "Nombre|',none,''|Apellidos|',none,''|Pais|',none,''|Email|',none,''|Titulo|',none,''|Anuncio|',none,''|Fecha|',none,NULL" Form.Files.DataBaseInsert response.write(getRedirect()) response.end End If ElseIf Form.State > 10 then response.write "
Some form error.
" End If function GetFolderName(str): GetFolderName = Ris : end function function myGetFileName(str): myGetFileName = Ris : end function %> Documento sin título