Springen naar inhoud


- - - - -

hulp gevraagd bij asp en bijlages


  • Log in a.u.b. om te beantwoorden
Er zijn 9 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:04

graag gedaan en suc6 verder.

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:04

ge zijt ne schat

da werkt inderdaad nu

heel fel bedankt voor de hulp, nu kan k weer verder

mvg

G_asp

#3 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:04

maak er even dit van, je hebt wat veel aanhalingstekens in de regel staan en deze ziet asp als einde van de opdracht.

sHTML.Append ""

#4 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

nu heb ik het zo eens geprobeerd:

-----------------------------------

sHTML.Append""
  sHTML.Append "Bijlage"
  sHTML.Append "" & fldTextBox ("Bijlage", objMessage.Subject, 40, 100, False, "", blnEdit) & ""
  sHTML.Append """"
sHTML.Append""

dan krijg ik deze error:

----------------------

Error Type:
Compilatiefout Microsoft VBScript (0x800A0401)
Einde van de instructie wordt verwacht
/ecvohz/message_new.asp, line 158, column 26
sHTML.Append """"
-------------------------^


sorry als ik mss wat dom over kom maar het is de eerste keer in mijn leven dat ik met asp werk

mvg

G_asp

#5 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

of je het binnen de tag zet heeft alleen invloed op de plaats waar hij getoond wordt. Dat javascript wat je gebruikt is niet nodig, want dat wordt al geregeld met type="file".

Het daadwerkelijk uploaden van de file kan je laten doen in de submit van het formulier.

#6 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

idd da bedoel ik

deze regel



kent hij niet als ik dat erbij zet

mss binnen de tag zetten?

mvg

G_asp

#7 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

dat maakt volgens mij niet uit hoor, dat moet in ieder formulier gewoon werken. Het enige wat niet werkt is in een input type="file"
een waarde plaatsen, als dat is wat je bedoelt (?)

#8 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

merci voor je antwoord, maar dit heb ik al eens geprobeerd

en aangezien het form dynamisch word aangemaakt werkt dit niet http://www.vbib.be/p...tyle_emoticons/default/icon_cool.gif

mvg

G_asp

#9 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

gebruik

#10 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 30 april 2011 - 11:03

heyla,

ik heb dus een pagina gemaakt waarbij men berichten kan sturen tussen studenten-studenten of tussen leraar-studenten.Nu is er ook een knop voor bijlagen te selecteren bij.

Heeft iemand mss de code voor de actie achter deze knop om te kunnen bladeren en een bijlage te kiezen?

ik zal de code van mn file ff plakken hieronder, dan kan je even kijken , ik zal de code van het bijlage gedeelte aanduiden in het rood

mvg

G_asp

----------------------------------------------------


<%
CVOAccess(Request.ServerVariables("SCRIPT_NAME") & GetURLParameters ())

Dim intMessageID

If Request("btnReply") & "" <> "" Then
intMessageID = CLng(nvl(Request("message_id"),-1))
Else
intMessageID = -1
End If

arrButtons = Array (cstNavButton_Home, cstNavButton_Message, cstNavButton_Write)
Set colMenu = BuildPageMenu (cstHeadLevel_Messages)
%>
<script language="Javascript1.2"></script>

ID="Table1">

  
  
  


  
  
  


  
  
  

./imgs/randen.gif./imgs/randen.gif./imgs/randen.gif
./imgs/randen.gif
  

Bericht


   <%=ShowMessage(intMessageID,True)%>
  
./imgs/rechts.gif
./imgs/randen.gif./imgs/onder.gif./imgs/hoekje.gif



<script language="javascript1.2">
var config = new Object();    // create new config object

config.width = "90%";
config.height = "200px";
config.bodyStyle = 'background-color: white; font-family: "Verdana"; font-size: x-small;';
config.debug = 0;

// NOTE:  You can remove any of these blocks and use the default config!

config.toolbar = [
    ['bold','italic','underline','separator'],
    ['justifyleft','justifycenter','justifyright','separator'],
    ['OrderedList','UnOrderedList','Outdent','Indent','separator'],
    ['htmlmode','separator'],
];

editor_generate('body',config);

// SUBMIT FUNCTION
function SendMessage() {
document.f.action = 'message_send.asp';
document.f.submit();
}

function SearchRespondent (sText) {
window.open('message_filter.asp?filter='+sText,'search ','scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar =no,width=700,height=500');
}


function AskDelete (intID, intTypeID, strName) {
var strList;
if (confirm('Bent u zeker dat u '+strName+' van de lijst van bestemmelingen wil verwijderen?')) {
  switch (intTypeID+'') {
   case '1':
    strList = document.f.to_person.value;
    break;
   case '2':
    strList = document.f.to_class.value;
    break;
   default:
    strList = '';
    break;
   }
  strList = ','+strList+',';
  strList = strList.replace(','+intID+',',',');
  strList = strList.substring (1, strList.length-1);
  if (strList == ',') { strList = ''; }
  switch (intTypeID+'') {
   case '1':
    document.f.to_person.value = strList;
    break;
   case '2':
    document.f.to_class.value = strList;
    break;
   default:
    strList = '';
    break;
   }
  document.f.submit();
  }
}
</script>
<%
Function ShowMessage (intMessageID, blnEdit)
Dim objMessage
Dim arr, i
Dim sHTML, strHTML
Dim strRespondents
Dim strFiles
Dim strToPerson, strToClass

strToPerson = Request("to_person")
strToClass = Request("to_class")

Set objMessage = New VMessage
Call objMessage.FillMessage (nvl(Request("subject"), ""), nvl(Request("body"), ""), lngPersonID, Now(), objMessage.BuildRespondentList (intMessageID, strToPerson, strToClass))
strRespondents = ShowRespondents(objMessage.Respondents)
  
Set sHTML = New FastString
sHTML.Append "
"
sHTML.Append btnEvent ("btnSend", " Verzenden ", " onclick=""Javascript:SendMessage();""") & "  "
sHTML.Append btnEvent ("btnCancel", " Annuleren ", " onclick=""Javascript:location.assign('message_overview.asp') ;""") & "  

"
sHTML.Append fldHidden ("to_person", strToPerson)
sHTML.Append fldHidden ("to_class", strToClass)
sHTML.Append ""
sHTML.Append ""
  sHTML.Append ""
  sHTML.Append ""
sHTML.Append ""
sHTML.Append ""
  sHTML.Append ""
  sHTML.Append ""
sHTML.Append ""
sHTML.Append ""
  sHTML.Append ""
  sHTML.Append ""
sHTML.Append ""
sHTML.Append ""
  sHTML.Append ""
  sHTML.Append ""
sHTML.Append ""
sHTML.Append""
  sHTML.Append ""
  sHTML.Append ""
  sHTML.Append""

sHTML.Append ""
  sHTML.Append ""
sHTML.Append ""
sHTML.Append "
Datum" & FormatDate_Time(objMessage.CreationDate) & " 
Van" & objMessage.CreationUserName & "
Aan" & ConcatSeparator(strRespondents,fldTextBox ("fldFilterTo", "", 40, 100, False, "", blnEdit),"
")
  sHTML.Append " " & btnEvent ("btnSearch", "Zoek Persoon", " onclick=""Javascript:SearchRespondent(document.f.fldFilterTo .value);""") & "
Onderwerp" & fldTextBox ("subject", objMessage.Subject, 40, 100, False, "", blnEdit) & "
Bijlage" & ConcatSeparator(strFiles,fldTextBox ("fldFilterTo", "", 40, 100, False, "", blnEdit),"
")
  sHTML.Append " " & btnEvent ("btnAttach", "Bladeren...","onclick=""Javascript:location.assign('upload_ file.asp');""") & "
" & fldTextArea("body", objMessage.Body, 60, 12, blnEdit) & " 
"
sHTML.Append "
"
strHTML = sHTML.concat
Set sHTML = Nothing

Set objMessage = Nothing
ShowMessage = strHTML
End Function

Function ShowRespondents (arr)
Dim sHTML, strHTML
Dim strRespondent, strList
Dim i

Set sHTML = New FastString
If IsArray(arr) Then
  For i=lbound(arr,2) to ubound(arr,2)
   strRespondent = """[url=""#"]" & arr(cstRespondent_Name, i) & "[/url]"""
   strList = ConcatSeparator(strList,strRespondent,";
")
  Next
  sHTML.Append strList
Else
  sHTML.Append ""
End If
strHTML = sHTML.concat
Set sHTML = Nothing

ShowRespondents = strHTML
End Function
%>




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)